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, $endT
+ime, $totalTime, $totalTime / 
$totalNumPkts );
printf("done\n");
close( $sock );

[download]

In reply to How do I create a variable length byte array for socket transmission? by rambo2_981

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.