Jak mogę utworzyć plik binarny w Perlu?

Question

Na przykład chcę utworzyć plik o nazwie sample.bin i umieścić numer, na przykład 255, aby 255 zostało zapisane w pliku jako little-endian, FF 00. Lub 3826 do F2 0E.

Próbowałem używać binmode, jak powiedział perldoc.

Answer 1

Funkcja perl pack zwróci "binarne" dane zgodnie z szablonem.

open(my $out, '>:raw', 'sample.bin') or die "Unable to open: $!"; 
print $out pack('s<',255) ; 
close($out); 

W powyższym przykładzie 's' mówi się do wyprowadzenia short (16 bitów), a '<' zmusza go do trybu ostrokońcej.

Ponadto ':raw' w wywołaniu open informuje go umieścić uchwyt pliku w trybie binarnym na platformach gdzie się liczy (jest to równoważne użyciu binmode). Strona podręcznika PerlIO zawiera trochę więcej informacji na temat wykonywania operacji we/wy w różnych formatach.

Answer 2

Tak, stosowanie BINMODE

Dla rozrywki (jeśli nie edukacja) moja pierwsza próba stworzenia pliku binarnego dołączonego binmode STDOUT i następujący:

sub output_word { 
    $word = $_[0]; 
    $lsb = $word % 256; 
    $msb = int($word/256); 
    print OUT chr($lsb) . chr($msb); 
    return $word; 
} 

DLA litość NIE UŻYWAJ TEGO KODU! Pochodzi z czasów, kiedy nie wiedziałem nic lepszego.

Można argumentować, że nadal nie, ale jest tu reprodukowane, aby pokazać, że można może kontrolować kolejność bajtów, nawet z metodami martwego mózgu, i ponieważ muszę "fess up.

Lepszą metodą byłoby zastosowanie pack jako sugerowanej Adam Batkin.

Myślę, że popełniłem okrucieństwo powyżej w Perlu 4. To było dawno temu. Chciałbym o tym zapomnieć ...

Answer 3

Możesz użyć pack do wygenerowania swoich danych binarnych. W przypadku struktur złożonych szczególnie miły jest model Convert::Binary::C.

CBC przetwarza pliki nagłówkowe C (z katalogu lub ze zmiennej w skrypcie). Wykorzystuje informacje z nagłówków do danych binarnych pack lub unpack.

Oczywiście, jeśli chcesz używać tego modułu, warto wiedzieć trochę C.

CBC daje możliwość, aby określić endianness i rozmiary dla swoich typów C, a można nawet określić funkcje do konwersji między rodzimymi typami Perla a danymi w pliku binarnym. Użyłem tej funkcji do obsługi kodowania i dekodowania stałych numerów punktów.

za bardzo podstawowy przykład chcesz użyć:

use strict; 
use warnings; 

use IO::File; 

use Convert::Binary::C; 

my $c = Convert::Binary::C->new('ByteOrder' => 'LittleEndian'); 

my $packed = $c->pack('short int', 0xFF); 

print $packed; 

my $fh = IO::File->new('outfile', '>') 
    or die "Unable to open outfile - $!\n"; 

$fh->binmode; 

$fh->print($packed); 

CBC nie naprawdę zabłysnąć w tym przykładzie, ponieważ jest po prostu pracować z jednym krótkim int.Jeśli potrzebujesz obsługi skomplikowanych struktur, które mogą mieć typedefs wyciągnięte z kilku różnych nagłówków C, będziesz bardzo szczęśliwy mając to narzędzie pod ręką.

Ponieważ jesteś nowy w Perlu, zasugeruję, aby zawsze use stict i use warnings. Ponadto można uzyskać use diagnostics, aby uzyskać bardziej szczegółowe wyjaśnienia komunikatów o błędach. Zarówno ta strona, jak i Perlmonks mają wiele dobrych informacji dla początkujących i wielu bardzo inteligentnych, wykwalifikowanych ludzi, którzy chętnie Ci pomogą.

BTW, jeśli zdecydujesz się na trasę pack, sprawdź pack tutorial, pomaga wyjaśnić nieco mistyfikacji dokumentacji pakietu.