- or download this
@files = map { -f $_ ? $_ : () } @ARGV;
- or download this
@files = grep { -f $_ } @ARGV;
- or download this
while ( <> ) {
chomp;
push @files, $_;
}
- or download this
chomp( @files = <> );
- or download this
chomp( @files = @ARGV ? grep { -f $_ } @ARGV : <> );