perl - 結合機能が機能しない

Question

以下のスクリプトは、すべての「E」でシーケンスを中断し、その後、「E」が各フラグメントに追加されます。しかし、最後の要素に「E」が付いていないのはなぜですか？

use strict;
use warnings;

my $s = 'ABCDEABCDEABCDEABCDEABCDE';
my @a = split /E(?!P)/, $s;

my $result = join "E,", @a; 
my @final  = split /,/, $result;
print "@final\n";

Answer 1

Aは、連続する要素間のjoin最初の引数を結合します。最後の「E」を追加する場合は、次のようにするだけです。

$s = 'ABCDEABCDEABCDEABCDEABCDE';
@a = split(/E(?!P)/, $s);
print join ("E ", @a), "E\n"; 

Answer 2

のドキュメントを参照してくださいsplit：

デフォルトでは、空の先頭フィールドは保持され、空の末尾フィールドは削除されます。