Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
2
@sea = qw/she sells sea shells on the sea shore/; @core = (3,2,5,6,7,5,4,3,6,8,7,6); print "Before : @sea\n"; print "Before : @core\n"; @sea = sort(@sea); @core = sort(@core); print "-+-+-+-+-+-+-+-+-+-+-+\n"; print "After : @sea\n"; print "After : @core\n";
run
|
edit
|
history
|
help
0
Soumya 101758
Sort
test321
testing anonymous routine dereference with alternate syntax
roni leonita 101745
Perl
Aishwarya 101701
Lol
Conta valores acima da média
test hello world perl compiler n tex