perl - 为什么我的 Perl 映射列表只返回 1？

Question

我写的代码如下:

#!/usr/bin/perl 

my @input = ( "a.txt" , "b.txt" , "c.txt" ) ;
my @output = map { $_ =~ s/\..*$// } @input ;

print @output ;

我的意图是让没有扩展名的文件名存储在数组 @output 中.
而是存储 s/// 返回的值而不是 @output 中更改的文件名，所以结果看起来像

1
1
1

那么正确的使用方法是什么 map在这种情况下？

Answer 1

好的，首先，您可能打算拥有 $_ =~ s/\..*$// — 注意丢失的 s在你的例子中。另外，您的意思可能是 map不是 grep .

其次，这不会做你想要的。这实际上修改了 @input !内grep (和 map 和其他几个地方)，$_实际上是每个值的别名。所以你实际上是在改变这个值。

另请注意，模式匹配不会返回匹配的值；它返回真(如果有匹配)或假(如果没有)。这就是你看到的所有 1。

相反，请执行以下操作:

my @output = map {
    (my $foo = $_) =~ s/\..*$//;
    $foo;
} @input ;

第一份 $_至 $foo ，然后修改 $foo .然后，它返回修改后的值(存储在 $foo 中)。您不能使用 return $foo ，因为它是一个块，而不是一个子程序。