Datei unter Perl im binary Format speichern

[eagle]

Ich will unter Perl eine Datei nicht im Textformat, sondern im Binary Format speichern.

Code: Alles auswählen

#!/usr/bin/perl

open (FILE, ">file.bin") or die "cannot open file.bin\n";
binmode FILE;

my $i = 0x1a;
print FILE $;

close FILE

Leider enthält meine Datei statt des erhofften Inhalts "0x1a" nur "0x32 0x36". Kann mir vielleicht einer auf den richtigen Weg stossen?

eagle

[Dookie]

Hi eagle,

kenn mich mit perl ja nicht aus, aber müsste es nicht

Code: Alles auswählen

 print FILE $i;

heissen?


Gruß

Dookie

[eagle]

Ja ich habe leider das i beim Schreiben des Postings unterschlagen, es ist im Orginal aber vorhanden.

eagle

[eagle]

So die Lösung habe ich mit godsmacker Hilfe gefunden. Das Zauberwort heisst pack und das Ergebnis sieht danach so aus:

Code: Alles auswählen

#!/usr/bin/perl

open (FILE, "> file.bin") or die "cannot open file.bin\n";

for ( my $i=0; $i < 256; $i++ )
{
    print FILE pack("C", $i);
}
close FILE;

Der Wert von $i sollte dabei nicht größer als 255 werden, was in meinem Fall in Ordnung geht.

eagle