Thread Doppelte Zeichenketten über Hash entdecken (3 answers)
Opened by pabu1983 at 2010-08-02 15:31

Gast pabu1983
 2010-08-02 15:31
#140241 #140241
Hallo Zusammen,

ich wollte gerade ein Perlskript schreiben um doppelte Zeichenketten aus einem Textfile zu entdecken.

Input = Beispiel.txt:
blub
blab
blib
blib
blub
bleb
blfb
Output = output.txt:
blub => 2
blab => 1
blib => 2
bleb => 1
blfb => 1

Mein bisheriger Versuch sieht so aus:

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

#!/usr/local/bin/perl -w
#

############
$INFILE = "Beispiel.txt";
$OUTFILE = "output.txt";

open(FILEIN,"$INFILE") or die "Fehler beim Oeffnen von ".$INFILE."\n";
open(FILEOUT,"> $OUTFILE") or die "Fehler beim Oeffnen von ".$OUTFILE."\n";
        while (<FILEIN>){
                @Zeile = $_;    
                while( ($schluessel, $wert) = each %hash) {
                        if (@Zeile == $schluessel) {
                                %hash = (@Zeile => +1);
                        }
                        else {
                                %hash = (@Zeile => 1);
                        }
                        print "$schluessel => $wert\n";
                }
        }       
close FILEIN;
close FILEOUT;


Bitte um schnelle Hilfe...irgendwie steh ich aufm Schlauch (Ausgabe ist immer leer)...

gruß pabu
Last edited: 2010-08-02 15:40:31 +0200 (CEST)

View full thread Doppelte Zeichenketten über Hash entdecken