Thread Array of Hashes aus Datei anlegen (53 answers)
Opened by Flips87 at 2020-02-04 11:19

Flips87
 2020-02-05 09:15
#191292 #191292
User since
2020-01-27
13 Artikel
BenutzerIn

user image
Hallo hlubenow

Mein aktueller Stand seit gestern Abend nachdem ich die Ideen von Raubtier, Linuxer und Rosti nach bestem Wissen umgesetzt habe:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
use strict;
use warnings;
use Data::Dumper qw(Dumper);

sub nurKleinbuchstaben{
        my $string = shift(@_);
        
        $string = lc($string);
        $string =~ s/\W+|\d|_/ /g;
        $string =~ s/^\s+|\s+$//;
}

my $datei = 'test.txt';
open(my $inputFH, '<', $datei) or die "Fehler: $!";
my @zeilen = $inputFH;

foreach (@zeilen) {
        nurKleinbuchstaben($_);
}

for my $zeile (@zeilen) {
        my %wordCounter;
        for my $word (split(/ /, $zeile)) {
                ++$wordCounter{$word};
        }
        #  $zeile mit Referenz auf den Hash ersetzen
        
}

close($inputFH);


Bei euren Vorschlägen fällt mir natürlich auf, dass jeder von euch so eigene Erfahrungen gemacht hat und dementsprechende Vorlieben hat, wie gutes Coden aussieht. Ich muss daher auch schauen, wie ich was am besten umsetzen kann. Ich beschäftige mich erst seit knapp 4 Wochen mit Perl.

Binäre Grüße
Flips

View full thread Array of Hashes aus Datei anlegen