Bee wrote:

I would suggest to write in this way : my @res = (); foreach( @ARGV ) { open IN, $_ or die "Couldn't open $_: $!\n"; my @data = <IN>; close IN;

        s/\s+//g  for @data;
        @res = ( @res, @data );

You are copying the @res array. It would be more efficient using push.

        push @res, @data;


John -- use Perl; program fulfillment

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>




Reply via email to