Remove spaces before and after a string in Perl

Use Regular Expressions

Take two steps:
Remove the preceding: $ A = ~ S/^ + //;

Remove the following: $ A = ~ S/+ $ //;

 

One step:

S/(^ s + | S + $) // G;

 

Delete the line break at the end of the string:

The chomp function usually deletes the linefeed at the end of the string contained in the variable. It is a slightly safer version of the chop function,Because it has no effect on strings without line breaks. More accurately, it deletes the string Terminator based on the current value of $/, not just the last character. Unlike chop, Chomp returns the number of characters to be deleted.

 

 

Complete!