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更清晰。