Vergleich der Zeilen in einer Datei mit perl

Ich habe versucht zu vergleichen, die Linien zwischen zwei Dateien und passende Zeilen, die identisch sind.

Aus irgendeinem Grund den code unten immer nur geht durch die erste Zeile der 'text1.txt" und druckt die 'if' - Anweisung, unabhängig davon, ob die beiden Variablen passen oder nicht.

Dank

use strict;
open( <FILE1>, "<text1.txt" );
open( <FILE2>, "<text2.txt" );
foreach my $first_file (<FILE1>) {
    foreach my $second_file (<FILE2>) {
        if ( $second_file == $first_file ) {
            print "Got a match - $second_file + $first_file";
        }
    }
}
close(FILE1);
close(FILE2);

Bitte posten gesetzlichen Perl-syntax (d.h., der code kann ausgeführt werden).

InformationsquelleAutor kristin | 2011-03-10

6

Wenn Sie strings vergleichen, verwenden Sie die eq Betreiber. "==" vergleicht Argumente numerisch.

InformationsquelleAutor Eugene Yarmash

Hier ist ein Weg, um die Arbeit zu tun, wenn Ihre Dateien nicht zu groß sind.

#!/usr/bin/perl
use Modern::Perl;
use File::Slurp qw(slurp);
use Array::Utils qw(:all);
use Data::Dumper;

# read entire files into arrays
my @file1 = slurp('file1');
my @file2 = slurp('file2');

# get the common lines from the 2 files
my @intersect = intersect(@file1, @file2);

say Dumper \@intersect;

InformationsquelleAutor Toto

Besser und schneller (aber weniger Speicher effizient) Ansatz wäre, zu Lesen, eine Datei in einen hash und suchen Sie nach Zeilen in der hash-Tabelle. Diese Weise gehen Sie über jede Datei nur einmal.

# This will find matching lines in two files,
# print the matching line and it's line number in each file.

use strict;

open (FILE1, "<text1.txt") or die "can't open file text1.txt\n";
my %file_1_hash;
my $line;
my $line_counter = 0;

#read the 1st file into a hash 
while ($line=<FILE1>){
  chomp ($line); #-only if you want to get rid of 'endl' sign
  $line_counter++;
  if (!($line =~ m/^\s*$/)){
    $file_1_hash{$line}=$line_counter;
  }
}
close (FILE1);

#read and compare the second file
open (FILE2,"<text2.txt") or die "can't open file text2.txt\n";
$line_counter = 0;
while ($line=<FILE2>){
  $line_counter++;
  chomp ($line);
  if (defined $file_1_hash{$line}){
    print "Got a match: \"$line\"
in line #$line_counter in text2.txt and line #$file_1_hash{$line} at text1.txt\n";
  }
}
close (FILE2);

InformationsquelleAutor SIMEL

1

Müssen Sie wieder zu öffnen oder zurücksetzen der Zeiger der Datei 2. Bewegen Sie den open und close Befehle innerhalb der Schleife.

Ein effizienter Weg, dies zu tun, je nach Datei und Nennweiten, wäre nur eine Schleife durch die Dateien einmal mit und speichert jede Zeile, die Auftritt, in der Datei 1 in ein hash. Prüfen Sie dann, ob die Linie war da für jede Zeile in Datei 2.

InformationsquelleAutor Tim
1

Wenn Sie möchten, die Anzahl der Zeilen,
```
my $count=`grep -f [FILE1PATH] -c [FILE2PATH]`;
```
Wenn Sie möchten, dass die übereinstimmenden Zeilen,
```
my @lines=`grep -f [FILE1PATH]  [FILE2PATH]`;
```
Wenn Sie möchten, dass die Linien, die nicht übereinstimmen,
```
my @lines = `grep -f [FILE1PATH] -v [FILE2PATH]`;
```
InformationsquelleAutor Azheid

Dies ist ein Skript, das ich schrieb, dass versucht, um zu sehen, wenn zwei Datei sind identisch, obwohl es könnte leicht durch geändert durch spielen mit dem code und wechseln Sie zu eq. Tim schlug vor, über einen hash-würde wahrscheinlich effektiver sein, obwohl Sie konnte nicht gewährleisten, wurden die Dateien, die verglichen werden in der Reihenfolge, wie Sie eingefügt wurden, ohne mit einem CPAN-Modul (und wie Sie sehen können, sollte diese Methode wirklich verwenden Sie zwei Schleifen, aber es war ausreichend für meine Zwecke). Das ist nicht gerade die größte Skript immer, aber es kann Ihnen ja irgendwo anfangen.


use warnings;


open (FILE, "orig.txt") or die "Unable to open first file.\n";
@data1 = ;
close(FILE);


open (FILE, "2.txt") or die "Unable to open second file.\n";
@data2 = ;
close(FILE);


for($i = 0; $i < @data1; $i++){
    $data1[$i] =~ s/\s+$//;
    $data2[$i] =~ s/\s+$//;
    if ($data1[$i] ne $data2[$i]){
        print "Failure to match at line ". ($i + 1) . "\n";
        print $data1[$i];
        print "Doesn't match:\n";
        print $data2[$i];
        print "\nProgram Aborted!\n";
        exit;
    }
}


print "\nThe files are identical. \n";

InformationsquelleAutor Cooper

Unter den code, den Sie geschrieben, und verwandelt es in die eigentliche Perl-code, das ist, was ich kam mit.

use strict;
use warnings;
use autodie;

open my $fh1, '<', 'text1.txt';
open my $fh2, '<', 'text2.txt';

while(
  defined( my $line1 = <$fh1> )
  and
  defined( my $line2 = <$fh2> )
){
  chomp $line1;
  chomp $line2;

  if( $line1 eq $line2 ){
    print "Got a match - $line1\n";
  }else{
    print "Lines don't match $line1 $line2"
  }
}

close $fh1;
close $fh2;

Nun, was Sie möglicherweise wirklich wollen, ist ein diff der beiden Dateien, das ist am besten Links zu Text::Diff.

use strict;
use warnings;

use Text::Diff;

print diff 'text1.txt', 'text2.txt';

InformationsquelleAutor Brad Gilbert

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.