Opened by gmafx at 2010-02-26 16:44
User since
2009-11-19
47 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2009-11-19
47 Artikel
BenutzerIn
Hallo,
irgendwie funktionieren beide Lösungen für mich nicht, wahrscheinlich liegt es daran, dass ich es jeweils nicht wirklich verstanden habe.
Zu Lösung zwei:
wie komme ich den an die Daten von @Liste, irgendwie komme ich nicht dahinter?
Ich habe es so probiert:
Aber das ergibt: ARRAY(0x800c9c)1
1. Lösung: verstehe ich nicht und funktioniert so, wie ich es getestet habe auch nicht:
Ergebnis: runterzählen vom Ende bis 1, dann bekomme ich die erste Zeile von Test.tab ausgedruckt.
Offensichtlich werden hier Datenstrukturen genutzt, die meinen Horizont überschreiten (ich kann Skalar, Array und ein Grundlagen mit Hashs, leider verstehe ich zB. nicht so etwas wie: $uniqe{$line}- sieht aus wie eine Referenz, oder? Dann muss man das auch wieder dereferenzieren, um es zu drucken, oder?
Zudem bedeuten beide Ansätze, dass ich die Struktur meiner Daten erst invertieren muss (ich habe die Spalten in einzelnen Arrays, jetzt brauche ich jeweils Reihe für Reihe als Element eines einzigen Arrays).
Da muss ich erst mal meine Daten "übersetzen".
gma
irgendwie funktionieren beide Lösungen für mich nicht, wahrscheinlich liegt es daran, dass ich es jeweils nicht wirklich verstanden habe.
Zu Lösung zwei:
wie komme ich den an die Daten von @Liste, irgendwie komme ich nicht dahinter?
Ich habe es so probiert:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
@liste = `cat test.tab`;
my %unique=map{(join(',',@$_),1)}@liste;
@liste=map{[split(',',$_)]}keys(%unique);
foreach $liste (@liste)
{$count++;
print $liste;
}
print "$count\n";
Aber das ergibt: ARRAY(0x800c9c)1
1. Lösung: verstehe ich nicht und funktioniert so, wie ich es getestet habe auch nicht:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
@liste = `cat test.tab`;
my %uniqe=();
# durchlaufe das Array rückwärts
for my $cnt (reverse (0..$#liste))
{
# ein String generieren der "eindeutig" ist
my $line=join(',',@{$liste[$cnt]});## print $line printet nichts!!!
# entferne die Zeile aus dem Array wenn sie schon einmal gefunden wurde
splice(@liste, $cnt,1) if($uniqe{$line});
# setze diese Zeile als gefunden;
$uniqe{$line}++;print "$cnt\n";
}
foreach $liste (@liste)
{print $liste;}
Ergebnis: runterzählen vom Ende bis 1, dann bekomme ich die erste Zeile von Test.tab ausgedruckt.
Offensichtlich werden hier Datenstrukturen genutzt, die meinen Horizont überschreiten (ich kann Skalar, Array und ein Grundlagen mit Hashs, leider verstehe ich zB. nicht so etwas wie: $uniqe{$line}- sieht aus wie eine Referenz, oder? Dann muss man das auch wieder dereferenzieren, um es zu drucken, oder?
Zudem bedeuten beide Ansätze, dass ich die Struktur meiner Daten erst invertieren muss (ich habe die Spalten in einzelnen Arrays, jetzt brauche ich jeweils Reihe für Reihe als Element eines einzigen Arrays).
Da muss ich erst mal meine Daten "übersetzen".
gma