perl - 在 Perl 中删除部分字符串

Question

my $input1 = "hours";
my $input2 = "Total hours";
my ($matching_key) = grep { /$input2/ } $input1;
print "Matching key :: $matching_key";

我想要的是从 $input2 中去除“Total”并将其分配回 input2 以便我的 grep 行匹配。我怎样才能去掉那个词？

Answer 1

如果我正确理解你的问题，你想要

$input2 =~ s/Total //;

但是，您也滥用了 grep() ;它在其第二个参数(也应该是一个列表)中返回一个元素数组，该数组与第一个参数中给出的模式相匹配。虽然它实际上会在标量上下文中以您使用它的方式返回“小时”，但这几乎是巧合。