I'm new to Perl and am trying to set a variable length byte array that is
passed to a socket as a string for output. I have the following which works,
but the commented out code doesn't. What am I doing wrong? Thanks.
use IO::Socket;
use Time::HiRes qw(usleep ualarm gettimeofday tv_interval);
my $sock = new IO::Socket::INET( PeerAddr => '10.10.2.141', PeerPort =>
'50000', Proto => 'udp' );
die "no socket\n" unless $sock;
$totalNumPkts = 1;
$pktSize = 512;
$dataVal = 'U';
$iPkt = "1";
for ( $i = 1; $i < $pktSize; $i++ )
{
$iPkt += "1";
}
$startTime = Time::HiRes::time;
for ( $i = 1; $i <= $totalNumPkts; $i++ )
{
print "sending msg ..";
$sock->print( "Hello\n" );
#$sock->print( $iPkt );
}
$endTime = Time::HiRes::time;
$totalTime = $endTime - $startTime;
printf( " st %f end %f total time=%f time/pkt=%f\n", $startTime, $endTime,
$totalTime, $totalTime /
$totalNumPkts );
printf("done\n");
close( $sock );
