Perl_分割字符串_split(/\t/,$_,4)
cat file1
A\t2\t7\tD
B\t4\t2\tC
D\t2\t4\tE
例
open IN,"/ifs1/ST_MED/USER/oumin/test/file1" or die ;
while(<IN>)
{
chomp;
my @array=split(/\t/,4);
foreach (@array)
{
print $_."!!!";
}
print "\n";
}
A!!!2!!!7!!!D!!!
B!!!4!!!2!!!C!!!
D!!!2!!!4!!!E!!!
例
open IN,2); #把上面的4改成2
foreach (@array)
{
print $_."!!!";
}
print "\n";
}
A!!!2\t7\tD!!!
B!!!4\t2\tC!!!
D!!!2\t4\tE!!!
例
open IN,3); #把上面的4改成3 foreach (@array) { print $_."!!!"; } print "\n"; } A!!!2!!!7\tD!!! B!!!4!!!2\tC!!! D!!!2!!!4\tE!!!
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
