[Omaha.pm] sprintf is your friend
Jay Hannah
jhannah at omnihotels.com
Fri Aug 25 13:47:54 PDT 2006
Before:
sub prepend_pegheader
{
my ($str, $msgtype) = (@_);
my $len = length($str) + 6;
$len = "00000" . $len; # Just slap 5 zeroes onto the front and
only
$len =~ s/^\d+(\d{5})$/$1/; # take the last 5 characters.
$str = "$msgtype$len$str";
return $str;
}
After:
sub prepend_pegheader
{
my ($str, $msgtype) = (@_);
my $len = sprintf("%05d", length($str) + 6);
return "$msgtype$len$str";
}
?
j
More information about the Omaha-pm
mailing list