Opened by Gast at 2005-04-05 10:00
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
@Thorium: Respekt, das hat Stil - ist nur für einen Anfänger vieleicht etwas viel.
Ein kleines Beispiel (beinahe schäme ich mich) wie die Textdateien durchforstet werden können:
Ein kleines Beispiel (beinahe schäme ich mich) wie die Textdateien durchforstet werden können:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %seen_err;
while(<DATA>) {$seen_err{$2} += $1 if (/(\d+)\s(\w+\s\w+)/)}
print Dumper \%seen_err;
_ _DATA_ _
Bla bla
4 Leichte Fehler
2 Mittlere Fehler
3 Schwere Fehler
wbuiuigb
wogo 5 Mittlere Fehler