Doppeleinträge erkennen (Allgemeines zu Perl)

[thread]13336[/thread]

Doppeleinträge erkennen

Leser: 16

Articles: hide open all | hide show old branches

+3 replies
Zolo

2009-04-04 17:20

User since
2009-04-04
1 Artikel
BenutzerIn

Hi,

ich hab hier eine Textdatei, in dieser ist jede Zeile nach dem gleichen Prinzip aufgebaut:

[WORT] [Uhrzeit] [Andere Information]

Das Wort ist immer gleich, die Uhrzeit natürlich verschieden und die "Anderen Informationen" auch.

Ich will nun diese Textdatei auf Doppeleinträge überprüfen.
Dabei sollen nur die "Anderen Informationen" überprüft werden.
Nur irgendwie steh ich aufm Schlauch wie ich das machen soll außer:

Lese 1. Zeile in Variable ein, vergleiche mit allen anderen usw.
Das muss doch einfach/effektiver gehen?

Grüße
- +2 replies
- murphy
  
  2009-04-04 17:33
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Mit einem Hash koenntest Du jedem auftretenden Inhalt der "anderen Informationen" jeweils einen Zaehler zuordnen...
  When C++ is your hammer, every problem looks like your thumb.
  - havi
    
    2009-04-04 17:40
    User since
    2003-08-04
    2036 Artikel
    BenutzerIn
    
    Viell. hift dir folgender Codeabschnitt...
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    @Satz = split($Trz,$EinSatz); $TeilSatz = ""; for ($i = 0;$i <= $#FNrTab;++$i) { $FeldNr = $FNrTab[$i]; # FeldNr aus Tabelle $ZStr = ""; if (defined($Satz[($FeldNr - 1)])) {$ZStr = $Satz[($FeldNr - 1)]} $TeilSatz .= $ZStr; if ($i < $#FNrTab) {$TeilSatz .= $Trz} } unless($SatzAnz{$TeilSatz}++) {push(@Uniq,$EinSatz)} else {push(@Dubs,$EinSatz)} ++$SatzAnz % 1000 or print chr(13),"Lese Satz ",$SatzAnz; }
    
    Gruss, havi
    http://havranek.at/gernot/ ;)
    Last edited: 2009-04-04 17:44:27 +0200 (CEST)
    Perl-Zeitung - http://perl-zeitung.at/
    Perl-Blog - http://usr-bin-perl.blogspot.com/

View all threads created 2009-04-04 17:20.