Dateiarbeit

[Mike]

Danke, ich habs, ist zwar nicht sehr proffesionell, aber für meine Zwecke funnktionierts :-)

#!/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(DATEI, ">>" . $ausgabe);
  print DATEI $temp . "\n";
close(DATEI);
}
close(HANDLE);

Danke für die Hilfe, war bestimmt ein anstrengender Zeitgenosse.

MFG Mike