Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Price_supriya
#perl 5.26.1 print "Hello World\n"; $productid{'p001'}=1000; $productid{'p002'}=500; print "p001 \a"; print $productid{'p001'}; print "\n p002 \a"; print $productid{'p002'}; if ($productid{'p001'}>$productid{'p002'}) { print "\n maxprice="; print $productid{'p001'}; } else { print "maxprice="; print $productid{'p002'}; };
run
|
edit
|
history
|
help
0
Password Validation
Basics
base N conversion
each_hash_function
Sortttttttt
Quote code
testing anonymous routine dereference with alternate syntax
test hello worl perl
Lieta 101733
PWC 059-1