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!!!