Perl - 在同一行上進行多個匹配，並進行替換

Question

我需要在一行中爲一個字符串提取多個匹配項。該行看起來是這樣的：

./staticRoutes.10.10.30_VC;./staticRoutes.10.10.40_FEEDS

我需要提取每個文件名，並把它在某些@array。行上的文件名由分開;。所以在上面的例子中，我想只提取staticRoutes.10.10.30_VC和staticRoutes.10.10.40_FEEDS

任何幫助極大的讚賞。

非常感謝

約翰

Answer 1

這將是正則表達式版本，它不會包含在結果中的領先./。如果這是值得的，你可以使用這個，否則我更喜歡拆分解決方案。

my $s = "./staticRoutes.10.10.30_VC;./staticRoutes.10.10.40_FEEDS"; 
my @res = $s =~ m~[^/]+(?=;|$)~g; 

這將匹配任何字符不是一個/（在[^/]+部），;或字符串的結尾（在(?=;|$)部分）

Answer 2

my $some_string = './staticRoutes.10.10.30_VC;./staticRoutes.10.10.40_FEEDS'; 
my @array = split /;/, $some_string;