如何在Perl中執行一般模式分配？

Question

$ cat names 
projectname_flag_jantemp 
projectname_flag_febtemp 
projectname_flag_marchtemp 
projectname_flag_mondaytemp 
$ 

Perl代碼：

my $infile = "names"; 
open my $fpi, '<', $infile or die "$!"; 
while (<$fpi>) { 
    my $temp = # what should come here? # 
    func($temp); 
} 

我想溫度分別有

jan 
feb 
march 
monday 

。

模式始終保持不變

projectname_flag_<>temp 

怎麼辦提取？

Answer 1

my ($temp) = /^projectname_flag_(.+)temp$/; 

注意，需要圍繞$temp括號，這樣的模式匹配列表中的上下文中運行。如果沒有他們，$temp最終只會包含一個真或假的值，指示匹配是否成功。

更一般地說，列表上下文中的模式匹配返回捕獲的子模式（如果匹配失敗，則返回空列表）。例如：

my $str = 'foo 123 456 bar'; 
my ($i, $j) = $str =~ /(\d+) +(\d+)/; # $i==123 $j==456 

Answer 2

while (<$fpi>) { 
     chomp; 
     s{projectname_flag_(.*?)temp}{$1}; 
     # $_ will now have jan, feb, ... 
} 

Answer 3

我想：

/^projectname_flag_([a-z]+)temp$/ 

Answer 4

while (<$fpi>) { 
    my ($temp) =($_ =~ m/projectname_flag_(.*?)temp/); 
    func($temp); 
} 

Answer 5

如果需要與舊perl兼容的操作系統，我會用FM's answer（只需確保通過，如果$month定義檢查成功的比賽）。

截至5.10，可以使用指定的捕獲：

my $month; 
if (/^ projectname _flag_ (?<month> [a-z]+) temp \z/x) { 
    $month = $+{month}; 
}