Hello,
I want to control some tv displays using a perl socket. The displays accept a connection on port 1515 a accept a hexadecimal command.
For example:
AA 11 FF 01 01 12
I have found the following code to open a socket and send text.
1 use IO::Socket; 2 my $sock = new IO::Socket::INET ( 3 PeerAddr => '192.168.1.2', 4 PeerPort => '1515', 5 Proto => 'tcp', 6 ); 7 die "Could not create socket: $!\n" unless $sock; 8 print $sock "Hello there!\n"; 9 close($sock);
After doing a bit of research I think I want to use pack to convert the hex string into bytes. I have taken the following from teh pack manual / tutorial
Can I use 'print $sock $s' ? If you need any more info just shout, this is my first perl script so bare with me. Thanks, Danmy $s = pack( 'H*', $hexcommand );
In reply to Pack hex string and send to socket by djhayman
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |