Mega Code Archive

 

Categories / Perl / Array

 

Reverse an array and a list

@list = (90,89,78,100,87); $str="Hello, world"; print "Original array: @list\n";4 print "Original string: $str\n";5 @revlist = reverse(@list); $revstr = reverse($str); print "Reversed array is: @revlist\n"; print "Reversed string is: $revstr\n"; $newstring = reverse(@list);  print "List reversed, context string: $newstring\n";