2014年8月11日
perl按固定长度分裂字符串
摘要： $a="111111111111111111111111111111111111";@b = $a =~ /\w{3}/g; print "@b\n";@c = unpack("(A3)*", $a);print "$c[7]\n"; for ($i=1;$i<=13;$i=$i+3){$b=sub... 阅读全文
posted @ 2014-08-11 18:18 xiujun7 阅读(751) 评论(0) 推荐(0) 编辑