マップを使用したオブジェクト関数からの配列の作成

Question

の配列は、HTML::TreeBuilderとHTML::Element->findから得られており、他の変数にはas_textの値を割り当てる必要があります。私は本当に簡単に

my ($var1, $var2) = ($arr[0]->as_text, $arr[1]->as_text); 

を行うことができます知っているが、私は配列の少なくとも8つの要素があるとしてだけでコードは少し読みやすくするために代わりにmapを使用することができ期待していました。私はPerlには本当に新しいので、私は何をすべきかについてはあまりよく分かりません。

誰でも正しい方向に向けることができますか？

Answer 1

あなたがよくperldoc -f mapに精通している場合、それはかなり明らかだ：

my @as_texts = map { $_->as_text } @arr; 

あなたがスカラーのリストに割り当てたい場合にも作品：

my($var1, $var2, $var3, ...) = map { $_->as_text } @arr; 

しかし、もちろん配列バージョン未知数の要素の方が良いです。

my($var1, $var2) = map { $_->as_text } @arr; 

が@arrのすべての要素の$_->as_textを呼び出します：あなただけ@arrの最初の2つの要素をマップする場合、

Answer 2

注意。その場合には、不要な呼び出しを回避するために、配列スライスを使用する：

my($var1, $var2) = map { $_->as_text } @arr[0 .. 1]; 

例：

#!/usr/bin/perl 

use strict; 
use warnings; 

my @arr = 'a' .. 'z'; 
my $count; 
my ($x, $y) = map { $count++; ord } @arr; 

print "$x\t$y\t$count\n"; 

$count = 0; 
($x, $y) = map { $count++; uc } @arr[0 .. 1]; 

print "$x\t$y\t$count\n"; 

出力：ucが呼び出されたのに対し、

 
C:\Temp> jk 
97  98  26 
A  B  2 

ordが@arrの各要素を求めました私たちが興味を持っていた要素についてのみ。