Perl | Removing leading and trailing white spaces (trim)

Removing unwanted spaces from a string can be used to store only the required data and to remove the unnecessary trailing spaces. This can be done using the trim function in Perl. The trim function uses a regular expression to remove white spaces. It is not a library function but defined by the user whenever required. The types of trim functions are:

• Left Trim (~ s/^\s+//): Removes extra spaces from leftmost side of the string till the actual text starts. From the leftmost side the string takes 1 or more white spaces (\s+) and replaces it with nothing.
• Right Trim (~ s/\s+$//): Removes extra spaces from rightmost side of the string till the actual text end is reached. From the rightmost side the string takes 1 or more white spaces (\s+) and replaces it with nothing.
• Trim (~ s/^\s+|\s+$//): It removes extra space from both sides of the string.

Example: The following code demonstrates the left trim, right trim and trim in Perl:

Output:

The Original String is:
     Geeks----

After Lefttrim Str1:
Geeks----

After Righttrim Str1:
----Geeks

After trim Str1:
Geeks