perl：grep和map在一个操作中

Question

有没有办法在perl的单个操作中执行grep和map ？ 类似于python可以执行列表理解的方式：

files = [{ 'path':'/path/to/file1',
           'size':123},
         { 'path':'/path/to/file2',
           'size':987},
         { 'path':'/path/file3',
           'size':1234},
         { 'path':'/path/to/file4',
           'size':543},
         { 'path':'/path/to/my/file5',
           'size':1357}]
large_filepaths = [file['path'] for file in files if file['size'] > 1024]

在Perl中，我需要执行grep来过滤掉大文件，然后使用map来获取我想要的特定值：

my $files = [ { path=>'/path/to/file1',
                size=>123},
              { path=>'/path/to/file2',
                size=>987},
              { path=>'/path/file3',
                size=>1234},
              { path=>'/path/to/file4',
                size=>543},
              { path=>'/path/to/my/file5',
                size=>1357} ];
my @large = grep { $_->{size} > 1024 } $files;
my @large_filepaths = map { $_->{path} } @large;

有一种简单的方法可以在一次操作中运行它，还是我必须使用2个语句（或一个复合语句）？

Answer 1

使用map { ... } grep { ... } @$files一个语句是执行它的“标准”方式，也是与Python中所做的最接近的方式。

从技术上讲，它可以在一个map ，因为map可以为每个输入值返回任意数量的值，包括零 - 所以你可以做类似的事情
map { $_->{size} > 1024 ? $_->{path} : () } @$files map { $_->{size} > 1024 ? $_->{path} : () } @$files ，但这一点不太清楚，我不推荐它。

Answer 2

1. $files是一个数组引用，因此values $files没有意义。

2. map BLOCK和grep BLOCK分别比map EXPR和grep EXPR慢。 如果可以的话，更喜欢后者。

my @large_filepaths =
    map $_->{path},
    grep $_->{size} > 1024,
    @$files;

Answer 3

有一种简单的方法可以在一次操作中运行它，

您可以将其作为一个复合语句来执行：

my @large_paths = map { $_->{path} } grep ...;

Answer 4

如果需要，只需调用map即可完成此操作

my @large_filepaths = map { $_->{size} > 1024 ? ( $_->{path} ) : ( ) } @$files;

但我认为组合的map / grep更清晰。