Help for this page
if ($test1 = $test2) { $comp = "EQUALS"; } else { $comp = "Does NOT Equal"; }
my $test1 = 123; my $test2 = 456; ... $comp = "Does NOT Equal"; } print "3. Test1: '$test1', test2: '$test2'\n";
=head2 C<decode_COMP3> ... else { $digits .= $sign; $sign = '?' }; "$sign$digits" };
sub decode_BCD { unpack "H*", $_[0]; };
use strict; use Test::More tests => 4; ... is decode_BCD("\x12\x34\x56","123456"); is decode_BCD("\x00\x34\x56","003456"); is decode_BCD("\x12","12");
www.com | www.net | www.org
No recent polls found