🚀 go-pugleaf

On 10/04/08 23:01, Andrew Rich wrote:
> Any one good at socket programming ?
> 
> I am trying to UDP some hex characters.
> 
> Something so simple is turning out to be hard to find.
> 
> Here is how to do it as a string, I just want to send hex instead
> 
> #!/usr/bin/perl -w
> # clientIO.pl - a simple client using
> # IO::Socket
> use strict;
> use IO::Socket;
> my $host = shift || 'localhost';
> my $port = shift || 30003;
> my $sock = new IO::Socket::INET(
>                    PeerAddr => $host,
>                    PeerPort => $port,
>                    Proto    => 'udp');
> $sock or die "no socket :$!";
> foreach my $i (1..10) {
>     print $sock "hello, world: $i\n";
> sleep 1;
> }
> close $sock; 
> 

If you mean to send each char in the string as a 2 hex chars for its 
ASCII code, use "ord" to find the ASCII code and "printf '%02x' to 
convert that to hex.

Quick demo (1-line shell command) :-

  perl -e '$a = join(" ",
                     map { sprintf("\%02x", ord($_)) }
                         split(//, "hello, world"));
           print "$a\n"'