perl读字符串

lseeo

请问用perl如何读取一个字符串中的每个字符？从第一个到最后一个，依次读到一遍

flw

1. while( $str =~ /./g ){
   
2.     my $char = $&;
   
3. 
   
4.     # do something with $char
   
5. }

复制代码

lseeo

牛！
后来想到可以这样：
foreach (split //, $input) {
    print;
}

flw

原帖由 lseeo 于 2008-11-15 09:26 发表
牛！
后来想到可以这样：
foreach (split //, $input) {
    print;
}

大字符串的效率可能不如我那个。