Quote

Code: (dl )

1
2
3
4
5
6
7
8

my @output;
while (my $line = <$inputFH>) {
    my %wordCounter;
    for my $word (splitLine($line)) { # splitLine muss du machen
        ++$wordCounter{$word};
    }
    push @output, \%wordCounter;
}

Mir ist gerade aufgefallen, dass anscheinend die Subroutine "splitLine" in Perl nicht existiert. Meine IDE beschwert sich deshalb auch. Oder hab ich etwas übersehen?

Gruß
Flips