Perl - Frage: Die Zweite...

[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

[PredeX]

Aja und da wäre noch was:

while(defined($zeile=<> )){
   chomp $zeile;

was wird durch das defined überprüft, sprich wie stellt er fest ab wann der Ausruck false ist?

Und...

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

Wieso wird $hash{$_}++ inkrementiert?? Is das notwendig, und wenn ja: wieso??

MfG
PredeX

[mcs_]

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

bin kein meister, aber ich glaub, \s bedeutet "whitespace", also leerzeichen und tab und zeilenumbruch.

\W bedeutet "kein zeichen" - der großbuchstabe bedeutet immer das gegenteil vom kleinbuchstaben.

[_m3]

Original geschrieben von PredeX

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

"perldoc -q regex"
"perldoc perlop"

\w Match a "word" character (alphanumeric plus "_")
\W Match a non-"word" character

while(defined($zeile=<> )){
   chomp $zeile;

was wird durch das defined überprüft, sprich wie stellt er fest ab wann der Ausruck false ist?

CTRL-D bzw. EOF (end of file)

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

Wieso wird $hash{$_}++ inkrementiert?? Is das notwendig, und wenn ja: wieso??

AFAIK zehlt er damit mit, wie oft ein wort vorkommt. Du koenntest auch einfach "= 1" hinschreiben.