请教遍历字符串的问题，谢谢

earth2mars

一个字符串如下
$str='"aSFDSFDF","1248932","TTT","哈","AFD"
"11111111aSFDSFDF","1248932","TTT","哈","AFD"
"222222aSFDSFDF","1FXXX248932","YYY","噢哦","HH"';

我要去substr 第1位到第一个换行符的子串
然后取第1个换行符到第2个换行符的子串，依次类推
可以这样
substr($str,0,39)
substr($str,40,45)
这样的话substr函数会不会每次都从$str的开头位置进行扫描读取啊？那真是晕了
我希望一次扫描$str取得多有子串

当然正则的 /g 配合 pos 好像可以做到，但是字符串很大，用正则比较慢
最好是简单的遍历字符串

谢谢啊！

q1208c

如果只是换行的话, 直接 split 不就行了?

earth2mars

q1208c 发表于 2012-11-23 11:53
如果只是换行的话, 直接 split 不就行了?

split 到数组？那不是慢了么？数组本来就很慢

earth2mars

reallyfly_1 发表于 2012-11-23 13:22
用
open IN, '

这样比较慢

mcshell

LZ谁告诉你perl的正则慢了

wsxedcer

1. while($str =~ /^(.*)$/gm){
   
2.         print "$1\n";
   
3. }

复制代码

q1208c

回复 3# earth2mars


好几天, 你一直在扯这个问题.

我建议你直接用C写一个吧.

或者建议你们老板换人吧.

wsxedcer

回复 8# q1208c


    (⊙o⊙)…，好像最近这几天还真是同一个ID扯字符串、读入速度的问题

mcshell

回复 9# wsxedcer

导致perl的发帖数有时候比shell还多....原来都是一个人顶起来的
   

earth2mars

q1208c 发表于 2012-11-23 16:42
回复 3# earth2mars

恩,没事,我不是搞PERL的