LINUX.ORG.RU

perl добавить элементы в массив, cоздать массив...

 ,


0

1

Суть проблемы, к примеру такой код:

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Data::Dumper;
local @ARGV = ('1.txt', '2.txt');
while (<>) 
{
    if (/YES/i)
    {
    	my @List = ();
    	
    	push (@List, $ARGV);
    	#print "$ARGV\n" ;
    	say Dumper \@List
    }
} 
continue 
{
   	close ARGV if eof;
}
на выходе получается вот такое:
$VAR1 = [
          '1.txt'
        ];

$VAR1 = [
          '2.txt'
        ];
а хочется вот такое:
$VAR1 = [
          '1.txt'
          '2.txt'
        ];


Ответ на: комментарий от Difrex

спасибо, и say Dumper \@List после цикла нужно сделать.

ving2 ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.