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

发布时间：2020-12-16 00:25:27 所属栏目：大数据来源：网络整理

导读：Perl_分割字符串_split(/t/,$_,4) ? cat file1 At2t7tD Bt4t2tC Dt2t4tE ? 例 open IN,"/ifs1/ST_MED/USER/oumin/test/file1" or die ; while(IN) { ??? chomp; ??? my @array=split(/t/,4); ??? foreach (@array) ??? { ??????? print $_."!!!";

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

cat file1
At2t7tD
Bt4t2tC
Dt2t4tE

例
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!!!2t7tD!!!
B!!!4t2tC!!!
D!!!2t4tE!!!

例
open IN,3);??#把上面的4改成3 ??? foreach (@array) ??? { ??????? print $_."!!!"; ??? } ??? print "n"; } A!!!2!!!7tD!!! B!!!4!!!2tC!!! D!!!2!!!4tE!!!

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

Perl_分割字符串_split(/&#92;t/,$_,4)

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