perl分割字符串的问题

显示全部楼层 · 2019-11-5 08:47:27

substrmapsplit这些函数好像都可以吧，反正方法很多，就举个例子吧$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";几个例子，自己摸索一下吧

千问 · 2019-11-5 08:47:27

substr map split 这些函数好像都可以吧，反正方法很多，就举个例子吧$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";几个例子，自己摸索一下吧