從Perl中分割過濾數組中的空字符串？

Question

我最初是由這個疑惑：我只是努力在Perl，字符分割功能時，我注意到了這一點：

DB<56> map(print("-", $_, "\n"), split(//, "test") ); 
-t 
-e 
-s 
-t 

    DB<57> map(print("-", $_, "\n"), split(/./, "test") ); 

    DB<58> map(print("-", $_, "\n"), split(/(.)/, "test") ); 
- 
-t 
- 
-e 
- 
-s 
- 
-t 

我已經知道了if the empty regex // is used, the string is split into individual characters;但我不清楚/(.)/正則表達式中的那些空字符串來自哪裏 - 但只是幾句話後，頁面指出「如果正則表達式有分組，那麼生成的列表包含來自分組的匹配子字符串...因爲$ x的第一個字符與正則表達式匹配，所以split將一個空的初始元素添加到列表中。「所以，這是預期的行爲。 （althgouh，我仍然不清楚爲什麼取消分組/./不會做任何事情）

但是，我也在Python工作，並遇到類似的問題（在分裂的結果空字符串） - 我在那裏發現一個filter(None, list)函數，在此調用中，該函數只是從列表中刪除空字符串。在Perl中使用什麼來實現相同的功能？

Answer 1

split的第一個參數定義了什麼分離您正在解析的列表的術語。在最後兩個片段中，您告訴split任何字符都是有效的分隔符，因此split返回輸入字符之間的內容：五個空字符串。

>perl -E"say qq{<$_>} for split /./, 'test', -1;" 
<> 
<> 
<> 
<> 
<> 

（尾隨空字符串默認過濾掉。）

的解決方法是不啓動過濾掉你問split產生非常的事。無論哪種解決您的分離

my @chars = split /(?<=.)|(?=.)/s; 
my @chars = split //; 

或使用更好的工具

my @chars = /(.)/s; 
my @chars = unpack '(a)*', $_;