Bernd Helmle wrote:
--On Sonntag, 16. September 2001 15:40 +0200 Ralph Müller <rmue@gmx.de> wrote:
Hallo,
ich möchte gerne das letzte Zeichen (hex. "A1") einer Datei löschen. Da ich viele derartige Dateien habe suche ich nach einem entsprechenden Befehl; ob auf Basis Bash, Perl, usw. ist egal.
[Lösungsansatz]
Hab's selber nicht getestet, aber im Ansatz müsste es das tun was du wolltest, da du ja damit nur auf dem letzten index des arrays arbeitest. Allerdings funktioniert diese Lösung wirklich nur vernünftig mit text-files. Falls es funktioniert, lass es mich wissen ;-)
Uff, ja, so scheint's nun zu klappen: #!/usr/bin/perl foreach $filename (<*.txt>) { open (datei, "$filename" ); @lines = <datei>; close (datei); chop($lines[$#lines]); open (datei, "> $filename"); print datei @lines; close (datei); } Also vielen lieben Dank an Bernd B., Bernd H., Andreas und Jens für die Vorschläge. Ich stand kurz vor dem Verzweifeln. :-] Ralph