Dateiarbeit

[Mike]

Hm use strict kenne ich nicht, steht in meinem Perl-Buch gar net drinn.

#!/usr/bin/perl -w

Liest Datei ein und entfernt Zeichen am Zeilenende/

print "Dateiname:  ";
$name = <STDIN>;

print "Name Ausgabedatei: ";
$ausgabe = <STDIN>;

open(HANDLE, "<" . $name) || die "ERROR beim OEFFNEN ($!) \n";
while (<HANDLE>)
{
chop ($_);
chop ($_);
$temp = $_;

open(file, ">>" . $ausgabe);
  print $temp . "\n";
close(file);
}
close(HANDLE);

so gehts aber auch nicht, obwohl dem print doch jetzt mitgeteilt wird das es in $ausgabe schreiben soll. Oh man, Perl ist doch ganz schön schwehr.