perl读字符串

lseeo

1^# lseeo 发表于 2008-11-14 19:28

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

flw

2^# flw 发表于 2008-11-14 20:59

[Copy to clipboard] [ - ]

CODE:

while( $str =~ /./g ){
my $char = $&;

# do something with $char
}

lseeo

3^# lseeo 发表于 2008-11-15 09:26

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

flw

4^# flw 发表于 2008-11-15 10:21

QUOTE:

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

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