Re: [MacPerl-AnyPerl] question about "my" declarations

On Thu, 27 Sep 2001 09:30:19 -0700 (PDT), Tejasvini Prasad wrote:

>I am trying to read data from a series of files as
>references into an array. Every element of my array is
>a reference to another array containing the values in
>one of the files.

OK, I hope I understand you correctly... will this do?

	my $argv = '';
	my(@contents, $current);
	while(<ARGV>) {
	     if($ARGV ne $argv) {
	          push @contents, $current = [];
	          $argv = $ARGV;
	     }
	     push @$current, $_;
	}

If you  accept a hash of files instead of an array, things can get a lot
easier, as Perl's built-in magic can take care of a lot of the nitty
gritty:

#! perl -w
	@ARGV = glob('test.*');
	my %contents;
	while(<ARGV>) {
	     push @{$contents{$ARGV}}, $_;
	}

-- 
	Bart.