Re: [misterhouse-users] How to do this in perl BINARY STRING

[Johan V. d. B. <jo...@va...>]

my $serial_string =3D pack("C*", 0x23, 0x07, 0xA7, 0x07, 0x11, 0x1D);

Should do the trick,
Johan

On Monday 17 February 2003 22:45, Alan Womack wrote:
> Need to send:
>
> 0x23 0x07 0xA7 0x07 0x11 0x1D
>
> Those are hex values as a string of bytes out the serial port.
>
> Do something like:
>
>   my  $serial_string =3D
> chr(0x23).chr(0x07).chr(0x07).chr(0x11).chr(0x1D);
>
> Or
>
>   my $serial_string =3D "\0x23\0x07\0xA7\0x07\0x11\0x1D";
>
>
>
>
>
> Epson Inkjet Printer FAQ: http://welcome.to/epson-inkjet
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by:ThinkGeek
> Welcome to geek heaven.
> http://thinkgeek.com/sf
> ________________________________________________________
> To unsubscribe from this list, go to:
> http://sourceforge.net/mail/?group_id65