codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
my %test_values_of = ( '0' => '1', '1' => '1', '4349678L' => '9', '4347946L' => '9', '791517N' => '9', ); 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"; }
Private
[
?
]
Run code
Submit