Dateiarbeit

[Mike]

Hallo,

ich hab so als Anfänger meine Probleme mit Perl.

Ich weiss wie man eine Datei öffnen kann und sich den Inhalt angucken kann.

Aber wie kann ich eine Datei öffnen, Zeile für Zeile die letzen 2 Zeichen entfernen und die Datei wieder schließen (so das jetzt in jeder Zeile die letzen beiden Zeichen weg sind)?

Zeichen entfernen kann man ja mit chop(). aber irgendwie kommen ich zu keinem vernünftigen Script...

#!/usr/bin/perl -w

Liest Datei ein und entfernt Zeichen am Zeilenende/

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

open(HANDLE, ">>" .  $name) || die "ERROR beim OEFFNEN\n";
while (<HANDLE>)
{
chop ($_);
chop ($_);
print $_;
}
close(HANDLE);

Kann mir hier jemand weiterhelfen?

MFG Mike