Zeichen in Binärdateien ersetzen - #110027 (Allgemeines zu Perl)

murphy

2008-05-21 00:08

User since
2004-07-19
1776 Artikel
HausmeisterIn

Wenn die Länge des Ersatzes in Bytes nicht genauso groß wie die Länge des Originales ist, geht das ohne umkopieren der Datei schon mal gar nicht.

Wenn die Längen aber identisch sind, würde ich ja folgendes machen:

Code (perl): (dl )

use Sys::Mmap;

my $size = (stat $file)[7];
new Mmap my $data, $size, $file or die "Couldn't map $file: $!\n";

$data =~ s/xyz/abc/;
# edit: oder wenn nur einzelne Zeichen ersetzt werden sollen:
$data =~ y/a/b/;

When C++ is your hammer, every problem looks like your thumb.