Perl怎么遍历一个字符串啊？？

mrzhaili

我有一个很笨的办法，就是先用length函数取字符串长度，然后用substr一个一个取，貌似效率很低。。。

初学Perl，可能问得不太恰当，希望各位大侠赐教。

apile

@string = split(//,$str);
for(@string){ print $_."\n";}
看你要作什麽吧...

shucho

unpack可以的吧

mrzhaili

原帖由 apile 于 2006-9-15 14:57 发表
@string = split(//,$str);
for(@string){ print $_."\n";}
看你要作什麽吧...

哦，这样就可以啊。。。

有一个小加密算法，要依次读每个字符的ASCII，然后再计算

shucho

@chars  = unpack("A1" x length($string), $string);