write in binary

[zhang1129]

Hi, All.
I am trying to write some data into a binary file

--------------------------------------
open (FH, ">c.dat" || die "$!");
binmode (FH);
print FH "123.3456";
---------------------------------------
the result I got in c.dat is 123.3456.

but i really want the result in unicode( the strange characters, like in exe files).

any body can help me with this?

thanks first.

kevin

 

[PaulTEG]

Look up the pack function

http://perldoc.perl.org/functions/pack.html

HTH
--Paul

Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[zhang1129]

thanks.
aacturally I used pack/unpack for this porblem, but the result is binary string:

like
-----------------------
sub dec2bin{
my $str = unpack("B*", pack("f", shift));
$str =~ s/^0+(?=\d)//;
return $str;
}
open (FH, ">c.dat" || die "$!");
binmode (FH);
print FH dec2bin(123.456);
----------------------------
but the result will be 1111011.

if I use:
print FH "\123";
the output will "S". this format is what i wanted.
but if I use print FH "\123.456";
the output will be "S.456".
part after dot is not converted to binary.....
how to solve this problem?

 

[zhang1129]

Thank you..
I got it.

tricky.