# aus einer Datei etwas auslesen und in die andere schreiben !!
$in = "liste.txt"; # Lese Datei
$out = "liste2.txt"; # Schreibe Datei# beide Dateien öffnen
open (IN,"$in") || die "$in konnte nicht geöffnet werden: $!";
open (OUT,">>$out") || die "$out konnte nicht geöffnet werden: $!";
while (<IN>)
{
chomp;
$str = "test";
if ($_ =~ "$str")
{
print "$str wurde in der Datei: $in gefunden.\n";
print OUT "$_ wurde in der Datei: $in gefunden.\n";
}
else
{
print " $str wurde in der Datei: $in NICHT gefunden.\n";
}
}
#Dateien schließen
close(IN) || die "kann $in nicht schließen!!!";
close(OUT) || die "kann $out nicht schließen!!!";
Datum: 14.12.2004-10:03
ich lese nun einen String aus einer Datei aber
