Open file in binary mode

[Bill H]

It has been so long since I used Perl to work on a binary file I have
forgotten how to do it. Basically what I need to do is open an
existing file in binary, load every byte of the file starting at the
end and work towards the begining and rewrite it to a new file. In
essense reversing the file. Any tips?


Bill H

 

[Gunnar Hjalmarsson]

It has been so long since I used Perl to work on a binary file I have
forgotten how to do it. Basically what I need to do is open an
existing file in binary, load every byte of the file starting at the
end and work towards the begining and rewrite it to a new file. In
essense reversing the file. Any tips?

open my $f, '<', $file or die $!;
open my $r, '>', $newfile or die $!;
my $data;
while ( read $f, my $buffer, 1024 ) {
$data .= $buffer;
}
binmode $r;
print $r scalar reverse $data;

 

[Michele Dondi]

It has been so long since I used Perl to work on a binary file I have
forgotten how to do it. Basically what I need to do is open an
existing file in binary, load every byte of the file starting at the
end and work towards the begining and rewrite it to a new file. In
essense reversing the file. Any tips?

binmode()

open '<:raw', ...


Michele