- or download this
my $msg = pack("a".$maxMsgCodeLength."ia*",$msgCode, $port, $ip);
- or download this
$msgCode = $msgCode.(" " x ($maxMsgCodeLength-length($msgCode))); - or download this
my $msg = pack( "a10ia*", $msgCode, $port, $ip );
- or download this
my $msg = pack( "a20 i a*", $msgCode, $port, $ip );
- or download this
printf( "%s %d %s", $msgCode, $port, $ip );
- or download this
print getMessage ( 'StartBE', $ip, $port ), "\n";
...
my ( $msgCode, $ip, $port) = @_;
return pack "A10 i A*", $msgCode, $port, $ip;
}