Re: File::Binary and Carriage-Return issue

Replies are listed 'Best First'.
Re^2: File::Binary and Carriage-Return issue by Corion (Patriarch) on Mar 04, 2009 at 12:36 UTC
Despite its name, it sounds from your description as if File::Binary is missing one or more calls to binmode in the correct places.	[reply]
Re^3: File::Binary and Carriage-Return issue by Anonymous Monk on Mar 04, 2009 at 12:57 UTC
http://cpansearch.perl.org/src/SIMONW/File-Binary-1.7/lib/File/Binary.pm `$fh->binmode if $fh->can('binmode');`	[reply] [d/l]
Re^4: File::Binary and Carriage-Return issue by Corion (Patriarch) on Mar 04, 2009 at 13:06 UTC
Which seems to mean that either IO::File is outdated or a plain call to `binmode $fh` would suit the same purpose yet not need the fancy OOness.	[reply] [d/l]
Re^5: File::Binary and Carriage-Return issue by ikegami (Patriarch) on Mar 04, 2009 at 13:15 UTC
Re^6: File::Binary and Carriage-Return issue by Corion (Patriarch) on Mar 04, 2009 at 13:20 UTC
Some notes below your chosen depth have not been shown here
Re^4: File::Binary and Carriage-Return issue by mickeyn (Priest) on Mar 04, 2009 at 13:06 UTC
Thanks, I did see this line, but it obviously didn't do what it should have, considering my above solution did the trick. Mickey	[reply]
Re^2: File::Binary and Carriage-Return issue by ikegami (Patriarch) on Mar 04, 2009 at 13:07 UTC
I am on Windows and using v1.7. I cannot replicate your problem. `>perl -MFile::Binary -wle"File::Binary->new('>file')->put_ui8(0xa0);" >debug file -rcx CX 0001 : -d100 l1 0B04:0100 A0 . -q` [download] Also, I cannot see how it's possible from looking at the source. `binmode` is getting called. Could you provide us with a minimal amount of runnable code that give you the problem? Are you sure you're following the instructions? Will try and set binmode for the handle on if possible (i.e if the object has a binmode method) otherwise you should do it yourself. IO::Handle objects don't have a `binmode` method, so you need to call `binmode` on it before passing the handle to `->new`/`->open`.	[reply] [d/l] [select]
Re^3: File::Binary and Carriage-Return issue by mickeyn (Priest) on Mar 04, 2009 at 13:23 UTC
this short version recreates the problem on my machine (unmark the binmode line to compare to the fixed output): `use strict; use File::Binary qw{$BIG_ENDIAN}; my $data = []; for (0..100) { $data->[$_] = 0x0a; } my $fb_dst = File::Binary->new("./a"); $fb_dst->set_endian(2); # 2 is $BIG_ENDIAN... fast fix $fb_dst->open(">./a"); #binmode $fb_dst->{_fh}; # unmark this line to fix problem $fb_dst->seek(0x0); my $index = 0; do { $fb_dst->put_ui8($data->[$index++]); } while ($fb_dst->tell() < 0xff);` [download] Thanks for your help, Mickey	[reply] [d/l]
Re^4: File::Binary and Carriage-Return issue by ikegami (Patriarch) on Mar 04, 2009 at 13:27 UTC
Don't post program you didn't actually run!!!! Update: I can't trust your observations, and I can't replicate them either. There's a bug in File::Binary that makes it incapable of exporting symbols. I switch to using `# Useless since we only output bytes. $fb_dst->set_endian($File::Binary::BIG_ENDIAN);` [download] Then I get >debug file -rcx CX 00FF : -d100 lff 0B05:0100 0A 0A 0A 0A 0A 0A 0A 0A-0A 0A 0A 0A 0A 0A 0A 0A ......... +....... 0B05:0110 0A 0A 0A 0A 0A 0A 0A 0A-0A 0A 0A 0A 0A 0A 0A 0A ......... +....... 0B05:0120 0A 0A 0A 0A 0A 0A 0A 0A-0A 0A 0A 0A 0A 0A 0A 0A ......... +....... 0B05:0130 0A 0A 0A 0A 0A 0A 0A 0A-0A 0A 0A 0A 0A 0A 0A 0A ......... +....... 0B05:0140 0A 0A 0A 0A 0A 0A 0A 0A-0A 0A 0A 0A 0A 0A 0A 0A ......... +....... 0B05:0150 0A 0A 0A 0A 0A 0A 0A 0A-0A 0A 0A 0A 0A 0A 0A 0A ......... +....... 0B05:0160 0A 0A 0A 0A 0A 00 00 00-00 00 00 00 00 00 00 00 ......... +....... 0B05:0170 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ......... +....... 0B05:0180 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ......... +....... 0B05:0190 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ......... +....... 0B05:01A0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ......... +....... 0B05:01B0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ......... +....... 0B05:01C0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ......... +....... 0B05:01D0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ......... +....... 0B05:01E0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ......... +....... 0B05:01F0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 ......... +...... -q [download] as expected. Windows and version 1.7	[reply] [d/l] [select]
Re^5: File::Binary and Carriage-Return issue by mickeyn (Priest) on Mar 04, 2009 at 13:39 UTC


go ahead... be a heretic
	PerlMonks