my %test_values_of = (
'0' => '1',
'1' => '1',
'4349678L' => '9',
'4347946L' => '9',
'791517N' => '9',
'' => '9',
'791517N' => ''
);
my $n = 0;
while ( my ( $key, $value ) = each(%test_values_of) ) {
$n++;
print $n. '.' . '#' x 20, "\n";
for $op ( '&', '&&', 'and' ) {
test_op( $key, $value, $n, $op );
}
}
sub test_op {
my ( $key, $value, $n, $op ) = @_;
print "# [$key] $op [$value] ";
my $rez = eval( '$key ' . $op . ' $value' );
if ($rez) {
print 'done';
}
else {
print 'no';
}
print '[' . $rez . "]\n";
}