Darthshoot
06.09.2007, 13:45
Hallo!
Ich habe ein Problem.. und zwar will ich Text in ein Array einlesen und es dann vergleichen... aber irgendwie macht er das nicht. Als erstes mal den relevanten Teil, wo Text in ein Array eingelesen werden soll. (Wenn es gehen würde, müsste "bla" in "Ergebnis.txt" geschrieben werden:
my @Abgleichliste = qw("bla");
my @Hauptliste = qw("bla1");
Hier das ganze Script:
#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
open(liste, ">Ergebnis.txt");
my @Abgleichliste = qw("bla");
my @Hauptliste = qw("bla1");
for my $a (@Abgleichliste)
{
my $Anzahl = 0;
for my $h (@Hauptliste)
{
if ($h == $a)
{
$Anzahl++;
}
}
if ($Anzahl == 0)
{
print liste $a."\n";
}
}
close(liste);
Sinn ist übrigens, dass DAS rausgeschrieben wird, was nicht zwar in der "Abgleichliste" steht, aber nicht in der "Hauptliste". Bitte helft mir ich bin echt am verzweifeln :( danke schonmal.
MfG Darthshoot
Ich habe ein Problem.. und zwar will ich Text in ein Array einlesen und es dann vergleichen... aber irgendwie macht er das nicht. Als erstes mal den relevanten Teil, wo Text in ein Array eingelesen werden soll. (Wenn es gehen würde, müsste "bla" in "Ergebnis.txt" geschrieben werden:
my @Abgleichliste = qw("bla");
my @Hauptliste = qw("bla1");
Hier das ganze Script:
#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
open(liste, ">Ergebnis.txt");
my @Abgleichliste = qw("bla");
my @Hauptliste = qw("bla1");
for my $a (@Abgleichliste)
{
my $Anzahl = 0;
for my $h (@Hauptliste)
{
if ($h == $a)
{
$Anzahl++;
}
}
if ($Anzahl == 0)
{
print liste $a."\n";
}
}
close(liste);
Sinn ist übrigens, dass DAS rausgeschrieben wird, was nicht zwar in der "Abgleichliste" steht, aber nicht in der "Hauptliste". Bitte helft mir ich bin echt am verzweifeln :( danke schonmal.
MfG Darthshoot