Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Basics
#perl 5.22.1 print "\n"; $mission = "fast"; $impossible = "furious"; $str = $mission." and ".$impossible; $num = 5 + 3; $mul = 4 * 5; $mix = $str ." ". $num; print "str = $str\n"; print "num = $num\n"; print "mul = $mul\n"; print "mix = $mix\n"; print "\n"; @rhymes = (1, 2, 'Buckle','my','shoe'); @matrix3 = qw/Everything that has a beginning/; print $rhymes[2]."\n"; print $matrix3[4]."\n\n"; print "\n"; %data = ('hunt', 2100, 'benji', 54, 'faust', 13); print "\$data{'hunt'} = $data{'hunt'}\n"; print "\$data{'benji'} = $data{'benji'}\n"; print "\$data{'faust'} = $data{'faust'}\n"; print "\n"; %data = ('hunt',100,'hello',17,'penguin',47); print "\$data{'hunt'}=$data{'hunt'}\n"; print "\n"; @sports = ("tennis","cricket","golf"); print "\$sports[1]=$sports[1]\n"; print "\n"; $var=5; print 'single $var'; print "\ndouble $var"; print "\n"; print "\nHello World\n";
run
|
edit
|
history
|
help
0
test321
version tester
palindromic dates
array_value
Leonardo Numbers
Toy singleton class
Attractive Numbers
Simple Perl Interview Question
101734
taller in front