[PredeX]

#!/usr/bin/perl -w

#Text anhand Whitespace aufteilen
while(defined($zeile=<>)){
   chomp $zeile;
   my @word = split( m/\s/, $zeile);

  foreach (@word){
     s/\W/ /g; #nichtwortzeichen in $_ entfernen
     next if $_ eq ' ';
     $hash{$_}++; #Wert um eins erhöhen
  }
 }

foreach(sort { $hash{$b} <=> $hash{$a} } keys %hash){
    print "$_ -> $hash{$_}\n";
  }

Was genau bedeutet: m/\s/ und s/\W /g ?? Wo find ich da eine Liste oder Erklärungen?


MfG
Sebastian Gabmeyer aka PredeX