的毗連字符串分隔

Question

$ ls /tmp/foo/ 
foo10.txt foo11.txt foo15.txt 

$ cat ./foo.pl 
use warnings; 
use strict; 
use Cwd; 
my $dir = cwd(); 
chdir '/tmp/foo'; 
my @files = glob "foo*.txt"; 
my $b = ""; 
for (0..$#files) { 
    my ($a) = $files[$_] =~ m/foo(.*)\.txt/; 
    $b = $b.",".$a; 
} 
chdir $dir; 
print "$b\n"; 

輸出：

$ perl ./foo.pl 
,10,11,15 

如何避免第一個逗號，只是前10名？如果有比這更好的邏輯，也請提出建議。

Answer 1

say join ', ', map { /foo(.*)\.txt/ } glob "foo*.txt"; 

先建立列表/數組，然後使用join。