ein fertiges Script

[Struppi]

Das sollte nun genau das tun, was Du willst...

#!/bin/perl

Ohne Warnungen und use strict;?

Ich weiß das es Cracks gibt, bei denen das verpönt ist, aber gerade Anfängern sollte man sowas nicht beibringen, da die Fehlersuche so enorm erschwert wird.

open(HANDLE,"+<@ARGV") || die $!;
binmode (HANDLE);
flock(HANDLE,2);
@inhalt = <HANDLE>;
seek (HANDLE, 0, 0);
truncate (HANDLE, 0);
$temp = join("",@inhalt);
$temp =~ s/\r//g;
print HANDLE $temp;
close HANDLE;

Aber Achtung!

Die Orginal Daten sind danach nicht mehr da, ich würde Sicherhietshalber eine Kopie anlegen. Auißerdem kann bei besonders grossen Dateien das komplette einlesen u.U. Speicherplatzproblem ergeben.

Struppi.