Perl | reverse() Function
reverse() function in Perl when used in a list context, changes the order of the elements in the List and returns the List in reverse order. While in a scalar context, returns a concatenated string of the values of the List, with each character of the string in the opposite order.
Syntax: reverse List
Returns:
String in Scalar Context and List in List Context.
Example 1: In List Context:
#!/usr/bin/perl -w # Defining list of +ve Integers to the array @array1 = (20, 30, 40, 50, 60, 70); print reverse(@array1), "\n"; # Defining list of Integers to the array @array2 = (1, -2, 3, 4, -5, 6); print reverse(@array2), "\n"; |
Output:
706050403020 6-543-21
Example 2: In Scalar Context:
#!/usr/bin/perl -w # Defining string to be reversed $string = "Hello World"; print scalar reverse("$string"), "\n"; $string = "Beginner For Beginner"; print scalar reverse("$string"), "\n"; |
Output:
dlroW olleH skeeG roF skeeG