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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
