Dateiarbeit

[Mike]

Hab das Script jetzt nochmal bearbeitet.
Wäre das so in Ordnung?

#!/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";
open(HANDLE, ">" . &ausgabe);
while (<HANDLE>)
{
chop ($_);
chop ($_);
print $_ . "\n";
}
close(HANDLE);