我可以使用解壓將字符串拆分爲Perl中的字符嗎？

Question

一個共同的「Perlism」被以這種形式在生成一個列表的東西循環：

for($str=~/./g) { print "the next character from \"$str\"=$_\n"; }

在這種情況下，全局匹配正則表達式返回一個列表，又一個字符從字符串$str，並且將該值分配給$_

代替一個正則表達式的，split可以以相同的方式使用或'a'..'z'，map等

我在指示unpack通過字段的字段解釋來生成字段。我一直髮現unpack對於我的大腦工作方式來說並不那麼簡單，我從來沒有真正深入到這一點。

作爲一個簡單的例子，我要生成一個列表，是利用解壓在字符串中的每個元素的一個字符（是的 - 我知道我可以split(//,$str)和/./g做，但我真的想看看是否能解包用這種方法...）

顯然，我可以使用一個字段列表解壓縮，這是unpack("A1" x length($str), $str)，但有沒有其他方式看起來像globbing？即，我可以在列表上下文中還是在循環中調用unpack(some_format,$str)，以便解壓縮將返回格式組中的下一組字符，直到$ str被取消爲止？

我已閱讀The Perl 5.12 Pack pod和Perl 5.12 pack tutorial和the Perkmonks tutorial

下面是示例代碼：

#!/usr/bin/perl 
use warnings; 
use strict; 

my $str=join('',('a'..'z', 'A'..'Z')); #the alphabet... 

$str=~s/(.{1,3})/$1 /g;    #...in groups of three 
print "str=$str\n\n"; 

for ($str=~/./g) { 
print "regex: = $_\n"; 
} 

for(split(//,$str)) { 
print "split: \$_=$_\n"; 
} 

for(unpack("A1" x length($str), $str)) { 
print "unpack: \$_=$_\n"; 
} 

Answer 1

pack和unpack模板可以使用括號組東西很像正則表達式即可。該組可以跟隨重複計數。作爲重複計數的*意味着「重複，直到你用完東西打包/解包」。

for(unpack("(A1)*", $str)) { 
    print "unpack: \$_=$_\n"; 
} 

你必須運行一個基準來找出哪些是最快的。