Zitat:
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"
Zitat:
\w Match a "word" character (alphanumeric plus "_")
\W Match a non-"word" character
|
Zitat:
Code:
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)
Zitat:
Code:
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.