<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16640" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Any one good at socket programming ?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>I am trying to UDP some hex
characters.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Something so simple is turning out to be hard to
find.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Here is how to do it as a string, I just want to
send hex instead</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>#!/usr/bin/perl -w<BR># clientIO.pl - a simple
client using<BR># IO::Socket<BR>use strict;<BR>use IO::Socket;<BR>my $host =
shift || 'localhost';<BR>my $port = shift || 30003;<BR>my $sock = new
IO::Socket::INET(<BR>
PeerAddr =>
$host,<BR>
PeerPort =>
$port,<BR>
Proto => 'udp');<BR>$sock or die "no socket
:$!";<BR>foreach my $i (1..10) {<BR> print $sock "hello,
world: $i\n";<BR>sleep 1;<BR>}<BR>close
$sock;
</FONT></DIV></BODY></HTML>