删除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(); 它返回第二个参数(也应该是一个列表)中的元素数组,它与第一个参数中给出的模式匹配.虽然它实际上会在标量上下文中返回"小时",但是你正在使用它,这非常巧合.

Answer 2

我不确定我是否完全理解你的问题，无论如何你可以像这样剥离 Total：

$input2 =~ s/Total //;

在此之后 $input2 将具有 value "hours"。

我不完全理解“将它分配回 input2 以便我的 grep 行将匹配”部分......