map { ... } @valami

stsmork cikke a Torokgeek rovatból, 2006. november 29. szerda, 22:44 | 7 hozzászólás

A címben szereplő {} és @ jelek nem obszcén szavakat hivatottak helyettesíteni, hanem egy felettébb hasznos Perl utasítás szintaxisát jelölik. Évek óta programozom Perlben, a map léte azonban mindaddig rejtve maradt előttem, amíg egyszer eszpee fel nem hívta rá a figyelmem, azzal a megjegyzéssel, hogy ő imádja. Utánanéztem, hogy mit csinál, és azóta én is imádom (mármint nem eszpee-t, hanem a map utasítást).

A hash listát gyakran használják adatstruktúrák tárolására, többek között a mySQL adatbázis API is ilyen formában adja vissza a lekérdezés eredményeit. A hash listáról a -> operátor segítségével tetszetős módon nyerhetők ki az egyes értékek:

my $name = $hit->{'name'};
my $user_id = $hit->{'user_id'};
my $email = $hit->{'email'};
...

Elég gyakori eset, hogy az SQL lekérdezés eredménye több sorból áll, ilyenkor egy tömböt kapunk vissza, amelynek elemei hash listák, a fenti módon összerakva. De mi van, ha mi csak simán a neveket akarjuk, egy tömbben? Ekkor:

my @names;
foreach my $hit (@hits)
{
  push @names, $hit->{'name'};
}

Nos, pontosan ez az, amit frankón be lehet tömöríteni egyetlen sorba, a map utasítás segítségével:

my @names = map { $_->{'name'} } @hits

Ez pontosan ugyanazt csinálja, mint az előző ciklus: végigiterál a paraméterként megadott tömb elemein, behelyettesíti őket a $_ változóba, végrehajtja a { } zárójelek közé zárt kódot, a kiértékelés ereményét bedig bedugja az egyenlőségjel bal oldalán álló tömbbe. Mindezt, nagyon Perl-szerűen, egyetlen sorban.

Akik idáig jutottak az olvasással, azoknak ráadásként következik egy fejtörő. Hogyan lehet hash referenciák segítségével duplikálni egy hash listát? Adva van egy hash listánk:

my $foo = {};
$foo->{'one'} = 1;
$foo->{'two'} = 2;
$foo->{'thee'} = 3;

Erről a listáról szeretnénk egy másolatot, a $bar változóval referálva. A kézenfekvő

my $bar = $foo

megoldás nyilván hibás, mert így mind $foo, mind $bar ugyanarra a hash listára mutatna, tehát a $bar->{'one'} = "egy" utasítás után $foo->{'one'} értéke is "egy" lenne, pedig mi azt szeretnénk, ha "1" maradna. (Elnézést kérek azoktól, akiknek ez olyan bonyolultan hangzik, mint a bridzs rovat a Füles rejtvényújságban.) Egysorosnál hosszabb megoldásokat nyilván nem fogadunk el :-)

» Ugorj a hozzászóló ablakhoz

Megosztások Facebookon

Hozzászólások

Eddigi hozzászólások (7)