Hashkey nach Spalten sortiert ausgeben - #65600 (Allgemeines zu Perl)

bloonix

2006-05-11 10:46

User since
2005-12-17
1615 Artikel
HausmeisterIn

hää??

hast du dich irgendwie im Thread verirrt? :)

in deinem Codebeispiel sind ziemlich heftige Mängel!

manches kann man auch um einiges besser machen...

Code: (dl )

open(DATEI, "<./Konfigurationsdaten/20060310.DOCFIELD") || die "Datei nicht gefunden";

Das ist ein bisschen mager, findest du nicht? Schreibe lieber
sowas wie "Fehler beim öffnen von Datei $datei - $!", denn
vielleicht gibt es die Datei, nur der Prozess hat keine Leserechte...

Code: (dl )

my @Zeilen = <DATEI>;

Das könnte ich verstehen, wenn du den Inhalt irgendwann
nochmal gebrauchen könntest, aber in deinem Codesegment
ist nichts davon zu sehen. Dann durchlaufe die Datei doch
ganz simple mit while (my $zeile = <DATEI>) {}

Code: (dl )

my $old_doc = "x";

my $old_doc; reicht eigentlich.

Code: (dl )

      if (/(\w+)\;(\d+)\;(\d+)/){
        $dokuart =  $1;
        $zahl1 =  $2;
        $zahl2 =  $3;

Wenn du nur die ersten drei "Spalten" benötigst, dann geht
es auch so my ($dokuart,$zahl1,$zahl2) = (split /;/,$zeile)[0..2];

Code: (dl )

if(/^$zahl2;([^;]+)/){

Nicht schlecht...

Quote
Code: (dl )
foreach my $ele (%hash2){
wieso gibt er mir nichts aus?

na denk mal ganz scharf nach... wie durchläuft man einen Hash? =)

Für mehr hab ich grad keine Zeit, aber du bist damit eh' im
falschen Thread. Ohne dir damit auf die Füße treten zu wollen,
aber mir wäre es lieb, wenn man die beiden Antworten in den
original Thread verschieben könnte, wenn das geht.

Einen lieben Gruß an die Moderatoren hier :-)

opi\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.