zwei Dateien Vergleichen (Allgemeines zu Perl)

[thread]17661[/thread]

zwei Dateien Vergleichen

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+12 replies
Gast commander

2012-08-13 13:38
Hey Leute,

Ich habe zwei unterschiedliche Dateien. Bei diesen Dateien soll der gleiche String ausgegeben werden.

Datei 1:
Aaa
Bbb
Ccc

Datei 2:
Aaa
Bbb
Cdd

Dann wird aaa und bbb ausgegeben. Das funktioniert auch.

Aber wie löse ich dieses Beispiel:

Datei 1:
Aaa.aa
Bbb.bb
cd.bb

Datei 2:
Aaa
Bbb
Fd.bb

Hier sollte dann aaa.aa und aaa – bbb.bb und bbb zutreffen. Also das vor dem Punkt muss zutreffen.
Wie mach ich das?

Hier sind noch meine zwei Scripts welche ich benutze:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#differents between two files use strict; use warnings; use Text::Diff; use Class::CSV; open(FILE, ">/home/Documents/Compare/diff.csv") or die "Cannot open file"; my $diffs = diff '/home/Documents/Compare/prtg.csv' => '/home/Documents/Compare/serverliste.csv'; print $diffs; print FILE "$diffs"; close(FILE);
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

use strict; use warnings; use Class::CSV; my $f1 = "/home/Documents/Compare/prtg.csv"; my $f2 = "/home/Documents/Compare/serverliste.csv"; my $outfile = "/home/Documents/Compare/final_result.csv"; my %results = (); open FILE1, "$f1" or die "Could not open file:\n"; while(my $line = <FILE1>) { $results{$line}=1; } close(FILE1); open FILE2, "$f2" or die "Could not open file:\n"; while(my $line =<FILE2>) { $results{$line}++; } close(FILE2); open (OUTFILE, ">$outfile") or die "Cannot open $outfile for writing \n"; foreach my $line (keys %results) { print OUTFILE $line if $results{$line} == 1; } close OUTFILE;
- +11 replies
- pq
  
  2012-08-13 13:48
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Guest commander
  Ich habe zwei unterschiedliche Dateien. Bei diesen Dateien soll der gleiche String ausgegeben werden.
  
  Datei 1:
  Aaa
  Bbb
  Ccc
  
  Datei 2:
  Aaa
  Bbb
  Cdd
  
  Dann wird aaa und bbb ausgegeben. Das funktioniert auch.
  
  hier ist mir die definition zu vage.
  ich sage immer, die spezifikation ist schon die halbe miete.
  und "der gleiche string" in einer datei ist keine spezifikation.
  
  1. willst du etwas ausgeben pro zeile? also zeile für zeile durchgehen und wenn die entsprechenden zeilen in den dateien gleich sind, ausgeben?
  2. oder können die strings irgendwo in der datei vorkommen und du willst am ende alle strings ausgeben, die (irgendwo) in beiden dateien vorkommen? das wäre dann eine sogenannte schnittmenge, vielleicht erinnert sich die ein oder andere aus dem mathe-unterricht.
  
  wenn ersteres, dürfte das problem für den teilstring leicht zu lösen sein.
  du schneidest alles nach dem ersten punkt ab (mit einer subsitution) und vergleichst dann erst. bei variante 2 ist es davon abhängig, was du ausgeben willst.
  
  dein skript finde ich nicht so erhellend und passt irgendwie nicht zur aufgabenstellung, wenn ich das richtig sehe. in zeile 27 gibst du ja nur die zeilen aus, die insgesamt nur einmal vorkommen, aber oben sagst du, du willst die gleichen zeilen ausgeben.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +10 replies
  - Gast commander
    
    2012-08-13 14:48
    
    Also es ist die zweite Variante die du beschrieben hast.
    Die Strings können irgendwo in der Datei vorkommen.
    - pq
      
      2012-08-13 14:50
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      und was ist mit den weiteren angaben? ich hab ja noch mehr geschrieben.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +8 replies
    - Muffi
      
      2012-08-13 14:51
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Können Strings in einer Datei doppelt vorkommen?
      1 + 1 = 10
      - +7 replies
      - Gast commander
        
        2012-08-13 15:52
        
        Also nochmals..
        
        Die Strings können irgendwo in der Datei vorkommen. Falls es keine Übereinstimmung gibt, die Ausgabe der String. Der String ist in der Datei nur einmal vorhanden.
        
        Datei 1:
        Aaa
        Ccc
        Bbb
        
        Datei 2:
        Ddd
        Fff
        Aaa.bj
        
        Also String aaa kommt in der Datei 2 vor. Ausgabe sollte nun sein:
        String ccc, bbb, fff, ddd sind nicht vorhandene.
        
        Falls jetzt trotzdem etwas fehlen sollte, sagt mir bitte was ihr genau wiesen möchtet.
        
        Vielen Dank bereits für die Hilfe!
        
        Muffi
        
        2012-08-13 16:01
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Muss der/die Ursprungsname(n) erhalten bleiben oder reicht die Version bis zum Punkt?
        1 + 1 = 10
        
        +5 replies
        
        pq
        
        2012-08-13 16:04
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        grob getestet:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        my %results; open my $fh1, "<", "file1" or die $!; while (my $line = <$fh1>) { chomp $line; $results{ $line } = 1; } open my $fh2, "<", "file2" or die $!; while (my $line = <$fh2>) { chomp $line; my $part = $line; $part =~ s/\..*//; unless ($results{ $part }) { say $line; } }
        
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        Gast commander
        
        2012-08-14 09:47
        
        Bis zum Punkt würde reichen.
        Vielen Dank für das Script, ich werde es heute mal testen!
        Last edited: 2012-08-14 09:51:10 +0200 (CEST)
        
        +3 replies
        
        Gast commander
        
        2012-08-15 16:29
        
        Hey,
        Falls zwei gleiche strings zutreffen (aaa - aaa) wird es im Output nicht aufgelistet => i.o.
        
        Wenn aber (bbb.bb - bb) findet das Script keine Übereinstimmung und listet es auf => n.i.o
        Last edited: 2012-08-15 16:33:02 +0200 (CEST)
        
        +2 replies
        
        pq
        
        2012-08-15 16:37
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        kommt bbb.bb in der ersten oder zweiten datei vor?
        nach deiner bisherigen spezifikation bin ich davon ausgegangen, dass solche einträge nur in der zweiten datei vorkommen.
        
        vielleicht kannst du auf basis des vorhandenen codes die entsprechende anpassung vornehmen? du must die substitution s/// auch im ersten teil vornehmen. es hängt dann von der gewünschten ausgabe ab, was du noch für änderungen vornehmen musst. evt. die originalstrings in einem gesonderten hash abspeichern, um sie am ende mit auszugeben.
        
        ich wiederhole mich vielleicht, aber eine spezifikation beschreibt im idealfall alle möglichen fälle und bringt im zweifel beispiel-input und output mit, und zwar auch von allen (unterschiedlichen) fällen.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        Gast commander
        
        2012-08-17 09:12
        
        Danke vielmals!!! habe es nun verstanden und konnte es wie gewünscht umsetzten.
        Last edited: 2012-08-17 09:19:57 +0200 (CEST)

View all threads created 2012-08-13 13:38.