首頁(yè) 猿問(wèn) perl...

perl 是否有比split函數(shù)更高效的拆分?jǐn)?shù)據(jù)的方法?

正則表達(dá)式

蕪湖不蕪 2019-03-06 21:07:39

查看完整描述

3 回答

嚕嚕噠

TA貢獻(xiàn)1784條經(jīng)驗(yàn) 獲得超7個(gè)贊

perl只有split一個(gè)函數(shù)分割字符串，沒(méi)有完成同樣功能的其它函數(shù)了。split因?yàn)橐褂谜齽t，要啟動(dòng)正則引擎，開(kāi)銷當(dāng)然要大一點(diǎn)。

如果想加快速度，只有自己用index搜索|，然后用substr獲取指定的字段，自己編程循環(huán)搜索來(lái)代替split的功能，理論上效率要提高一點(diǎn)，但是能提高多少只有你自己實(shí)踐了才知道。

反對(duì) 回復(fù) 2019-03-30

慕森王

TA貢獻(xiàn)1777條經(jīng)驗(yàn) 獲得超3個(gè)贊

my @a = split /[_|-]/, $b;
my ($a)=(split /[_|-]/, $b;)[1];
my ($a,$c)=(split /[_|-]/, $b;)[1,3];
my ($a,$b,$c)=(split /[_|-]/, $b;)[0..2];

反對(duì) 回復(fù) 2019-03-30

白衣染霜花

TA貢獻(xiàn)1796條經(jīng)驗(yàn) 獲得超10個(gè)贊

substr map split 這些函數(shù)好像都可以吧，反正方法很多，就舉個(gè)例子吧

$a="111111111111111111111111111111111111";
@b = $a =~ /\w{3}/g;
print "@b\n";

@c = unpack("(A3)*", $a);
print "@c\n";

for ($i=1;$i<=13;$i=$i+3)
{
$b=substr($a,$i,3);
push @d,$b;
}
print "@d";