Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Perlday1
#perl 5.26.1 %product=('p001',1000,'p002',500); @id=keys(%product); @price=values(%product) ; print "productId \t price\n"; print "$id[0] \t\t $price[0]\n"; print "$id[1] \t\t $price[1]\n"; print "\n"; @cob=(20200511,20200512); @curr=('USD','INR'); @gbp=(0.75,0.125,0.80,0.1); print "cob \t \tcurrency \t gbp\n"; print "$cob[0] \t $curr[0] \t \t$gbp[0]\n"; print "$cob[0] \t $curr[1] \t \t$gbp[1]\n"; print "$cob[1] \t $curr[0] \t \t$gbp[2]\n"; print "$cob[1] \t $curr[1] \t \t$gbp[3]\n"; print "\n"; if ($price[0]>$price[1]) { print "Maxprice = $price[0]\n"; } else { print "Maxprice = $price[1]\n"; }; $a=$gbp[0]-$gbp[2]; print "\n USD rate diff= $a\n"; $b=$gbp[1]-$gbp[3] ; print "\n INR rate diff= $b\n";
run
|
edit
|
history
|
help
0
Cheat attractive
Quote code
objetos
test hello world perl n texs
perl
Perl
Hash
FOP utilities
101744
5_5