s/// in map? - Arrayzuweisung kürzer schreiben (gelöst) - #146318 (Allgemeines zu Perl)

Taulmarill

2011-03-08 13:59

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

2011-03-08T11:02:57 Sven_123
(ich schreib das ganze jetzt in einen Hash, da fällt map natürlich weg)

Nicht unbedingt, so finde ich das eigentlich recht ansprechend:

Code (perl): (dl )

use strict;
use warnings;
use Data::Dumper;

my @bsp = (
   "a b 3 4 eins.txt",
   "c d 7 2 zwei.txt",
   "e f 4 4 drei.txt"
);

my %hash = map {
    my( $Zahl, $andereZahl, $name ) = /(\d+)\s+(\d+)\s+(.+)\.txt$/;
    $name => [$Zahl, $andereZahl];
} @bsp;

print Dumper(\%hash);

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B