[EMAIL PROTECTED] wrote:
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";
}
This loop can be replaced with: $iPkt = 513;
Or do you want a string of 512 ones? $iPkt = '1' x 512;
You should print out $iPkt to make sure it contains what you think it
does: printf "%5d %s\n", length($iPkt), $iPkt;
$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 );
--
Just my 0.00000002 million dollars worth,
--- Shawn
"Probability is now one. Any problems that are left are your own."
SS Heart of Gold, _The Hitchhiker's Guide to the Galaxy_
* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is available at http://perldoc.perl.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
