3 Hashes aus einem Hash erzeugen - #55692 (Allgemeines zu Perl)

Strat

2005-06-23 11:33

User since
2003-08-04
5246 Artikel
ModeratorIn

alles, was mit PM_ beginnt, aus %INPUT herauszuziehen kannst du z.B. auch mit:

Code: (dl )

%hash =
  map { $_, $INPUT{$_} } # schluessel/wertpaare zurueckgeben
  grep { /^PM_/ } # gibt liste aller keys zurueck, die mit PM_ beginnen
  keys %INPUT;

wenn du sie in %INPUT loeschen willst:

Code: (dl )

%hash =
  map { $_, delete $INPUT{$_} } # schluessel/wertpaare zurueckgeben und in %INPUT loeschen
  grep { /^PM_/ } # gibt liste aller keys zurueck, die mit PM_ beginnen
  keys %INPUT;

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/