Perl

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() {     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,"/ifs1/ST_MED/USER/oumin/test/file1" or die ; while() {     chomp;     my @array=split(/\t/,$_,2);  #把上面的4改成2     foreach (@array)     {         print $_."!!!";     }     print "\n"; }

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

例 open IN,"/ifs1/ST_MED/USER/oumin/test/file1" or die ; while() {     chomp;     my @array=split(/\t/,$_,3);  #把上面的4改成3     foreach (@array)     {         print $_."!!!";     }     print "\n"; } A!!!2!!!7\tD!!! B!!!4!!!2\tC!!! D!!!2!!!4\tE!!!