Perl_分割字符串_split(/\t/,$_,4)

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,"/ifs1/ST_MED/USER/oumin/test/file1" or die ;
while(<IN>)
{
    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(<IN>)
{
    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!!!