なぜpop/shiftがperlのmap/grepで動作しないのですか

Question

mapとgrepオペレーション アレイの最初または最後の要素を取得したいのですが。 shiftとpopの演算子をmapとgrep と使用しても動作しないようです。助言がありますか？ map の結果を配列変数に保存してポップしても、1行でやりたいと思っています。

:$ cat map.pl 
use strict; 
use warnings; 
my @arr = (1,2,3,4); 
my $ele = pop (map{10* $_ } @arr) ; 
print "\n element is $ele"; 
:$ perl map.pl 
Not an ARRAY reference at map.pl line 4. 

Answer 1

map{10* $_ } @arr 

その要素10乗じ@arrの要素に対応しているリストを生成します。 は配列を生成しません。したがって、あなたはそれから何もpopすることはできません。あなたはしかし、最後の要素にアクセスすることができます

(map 10 * $_, @arr)[-1] 

ただし、マップが@arrは変更されません。そうしたい場合は、

$_ *= 10 for @arr; 

がmapより適切です。

Answer 2

リストコンテキストで

、mapとgrep農産物リストが、shift/unshift及びpush/popは、アレイ上で動作します。 Lists and arrays are not the same thing in Perl。すべてを1行でやってみることに心配する必要はなく、正しいコードを書くことを心配する必要があります。

Answer 3

最初か最後か？最初にあなたが

use strict; 
    use warnings; 
    my @arr = (1,2,3,4); 
    my ($ele) = map{10* $_ } @arr; 
    print "\n element is $ele\n\n"; 

Answer 4

を使用することができますについてshiftとpopの最初の引数は、配列（@NAMEまたは@BLOCK）、ではない（配列とは関係ありません）mapまたはgrepオペレータである必要があります。

shift/popの配列を作成できます。

my $first_ele = shift @{ [ map { 10 * $_ } @arr ] };   # If you want first 
my $last_ele = pop @{ [ map { 10 * $_ } @arr ] };   # If you want last 

しかし、それは非常に無駄です。リストの割り当てやリストのスライスを使用して、配列の作成を避けることができます。

my ($first_ele) = map { 10 * $_ } @arr;      # If you want first 
my $first_ele = (map { 10 * $_ } @arr)[0];     # If you want first 
my $last_ele = (map { 10 * $_ } @arr)[-1];     # If you want last 
my ($first_ele, $last_ele) = (map { 10 * $_ } @arr)[0, -1]; # If you want both 

しかし、それでも無駄です。最後の製品のみが必要な場合は、すべての要素を掛ける必要はありません。リストコンテキストで

my $first_ele = 10 * $arr[0];         # If you want first 
my $last_ele = 10 * $arr[-1];         # If you want last 
my ($first_ele, $last_ele) = map { 10 * $_ } @arr[0, -1];  # If you want both