如何一行一行的输出一个多行字符串标量？

darkslack

有一个多行字符串标量
$ms="aaaaaa\nbbbbbbbb\ncccccc\n";  #实际情况$ms非常的大
现在我想一行一行的处理$ms，可以么？
就是在一个循环里
第一次处理aaaaa
第二次处理bbbb
。。。。。

有办法么？
谢谢

flw

perldoc -f open

1. D:\MoChou>sed "/__END__/,$d" ttt.pl
   
2. my $str = qq(hello
   
3. world
   
4. nihao
   
5. 123
   
6. 456);
   
7. 
   
8. open FH, '<', \$str;
   
9. while(<FH>){
   
10.     print;
    
11. }
    
12. 
    
13. D:\MoChou>ttt
    
14. hello
    
15. world
    
16. nihao
    
17. 123
    
18. 456
    
19. D:\MoChou>

复制代码

[ 本帖最后由 flw 于 2008-3-14 23:26 编辑 ]

Lonki

my $ms="aaaaaa\nbbbbbbbb\ncccccc\n";

for my $line ($ms =~ /(.*)\n/g) {
    print "<$line>\n";
}

flw

原帖由 Lonki 于 2008-3-15 00:05 发表
my $ms="aaaaaa\nbbbbbbbb\ncccccc\n";

for my $line ($ms =~ /(.*)\n/g) {
    print "\n";
}

用正则表达式还不如用 split 呢。

agaric

flw的code就是那么滴简单。

Lonki

原帖由 flw 于 2008-3-15 09:53 发表

用正则表达式还不如用 split 呢。

split肯定是可以的.
考虑到LZ的字符串可能有很多行, split一次生成数组效率就比较X了