Opened by gast at 2010-03-25 11:10
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
Hallo!
Eventuell hilft dir ein Blick in perlfaq4, speziell in den Bereich "How do I test whether two arrays or hashes are equal?".
So wie ich das sehe, stehen die Arrtibute, die du zur Identifikation gleicher Datensätze verwendest immer in den ersten 4 Spalten deiner tabseparierten Datei? Warum spaltest du das dann noch auf, vergleiche doch einfach den Teil bis zum 4. Arttribut? Den bekommst du beim einlesen einer Datei z.B. so:
Wenn du die IDs für beide Dateien ausgelesen hast, kannst du die mittels des Codestücks in perlfaq4 vergleichen.
Eventuell hilft dir ein Blick in perlfaq4, speziell in den Bereich "How do I test whether two arrays or hashes are equal?".
So wie ich das sehe, stehen die Arrtibute, die du zur Identifikation gleicher Datensätze verwendest immer in den ersten 4 Spalten deiner tabseparierten Datei? Warum spaltest du das dann noch auf, vergleiche doch einfach den Teil bis zum 4. Arttribut? Den bekommst du beim einlesen einer Datei z.B. so:
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
#!/usr/bin/perl
use strict;
use warnings;
use FileHandle;
use Data::Dumper qw/Dumper/;
my $file = 'test.txt';
my $fh = FileHandle->new();
my @ids = ();
if( $fh->open($file, "<") ) {
while( my $line = $fh->getline() ) {
my ($id) = $line =~ m/^((?:[^\t]+\t){3}[^\t]+)/;
push @ids, $id;
}
$fh->close();
}else{
die("Error reading file $file: $!");
}
print Dumper \@ids;
Wenn du die IDs für beide Dateien ausgelesen hast, kannst du die mittels des Codestücks in perlfaq4 vergleichen.
http://www.intergastro-service.de (mein erstes CMS :) )