Perl_默认变量_$_and_@_

Perl_默认变量_$_and_@_

 

cat file1
A\t2\t7\tD
B\t4\t2\tC
D\t2\t4\tE

 

例
my $fil=/dir/file1;
open IN,$fil || die "$!\n";
while(<IN>) {
    chomp;
    split(/\n/,$_,2);
    print $_[0];
    print "!!!";
    print $_[1];
    print "\n";
}

A!!!2\t7\tD B!!!4\t2\tC D!!!2\t4\tE