2 excel tabellen vergleichen als csv (Perl/CGI)

Gast Gast

2004-08-10 00:25

ich habe folgende Aufgabe gestellt bekommen: ich soll 2 csv tabellen aus excel exportiert vergleichen. Es sollen jeweils 2 Zeilen verglichen werden, welche aber unterschiedlich positioniert sind in den Dateien. Es gibt immer die 3 ersten Spalten (Werte), die fest sind, also als Identifier dienen können. Wert 4 und 5 müssen dann verglichen werden.

Das Programm soll ausspucken, ob sich was in der 2 datei in der Zeile geändert hat. Oder wenn keine entsprechende Zeile gefunden wurde in Datei 2 , dass diese gelöscht wurde. Alle übriggebliebenen in Datei 2 sollen als neu angezeigt werden.

Ich hab bis jetzt noch keinerlei Ahnung, wie ich das bewerkstelligen soll, kann mir jemand, wenns geht mit etwas code aushelfen, auf die Sprünge helfen? Brauche leider schon morgen früh ein Lösung.

Danke Maren!

renee

2004-08-10 02:19

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

use Tie::File;

my $origin = '/path/to/test.csv';
my $check = '/path/to/check.csv';
my @array = ();

tie @array,'Tie::File',$origin;
open(READCHECK,"<$check") or die $!;
while(my $line = <READCHECK>){
  my ($col1,$col2,$col3,$col4,$col5,@rest) = split(/;/,$line);
  my $key = $col1.$col2.$col3;
  my $b_check = 0;
  foreach(@array){
    my ($r1,$r2,$r3,$r4,$r5,@rest) = split(/;/,$_);    
    if($key eq $r1.$r2.$r3){
      $b_check = 1;
      unless($col4 eq $r4){
        print "Spalten 4 sind unterschiedlich\n";
      }
      unless($col5 eq $r5){
        print "Spalten 5 sind unterschiedlich\n";
      }
    }
    unless($b_check){
      print "Zeile $line gibt's nicht mehr\n";
    }
  }
}
close READCHECK;
untie @array;