Search Results

Hi,

Test next 'perl' script:

$ cat script.pl
use warnings;
use strict;

my $filea_name = $ARGV[0] || "";
my @filea;
my $modline = 0;
while ( <> ) {
chomp;
do { push...