hash: doppelt vorkommende Schlüssel/werte aufs - #54020 (Allgemeines zu Perl)

Strat

2005-04-20 20:18

User since
2003-08-04
5246 Artikel
ModeratorIn

Code (perl): (dl )

my %hashartikel = ();
while (<INFILE>) {
  my ($artikelNr, $artikelZahl) = split(/ /, $_, 2); 
  if (exists $hashartikel{$artikelNr}) {
    $hashartikel{$artikelNr} += $artikelZahl;
  }
  else {
    $hashartikel{$artikelNr} = $artikelZahl;
  }
} # while

oder kuerzer:

Code (perl): (dl )

my %hashartikel = ();
while (<INFILE>) {
  my ($artikelNr, $artikelZahl) = split(/ /, $_, 2); 
  $hashartikel{$artikelNr} += $artikelZahl;
} # while

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