Perl 去除字符串两侧空格：trim 函数和正则表达式

在 Perl 中，可以使用trim函数或正则表达式来去除字符串两侧的空格。//n//n方法一：使用trim函数//nperl//nuse strict;//nuse warnings;//n//nsub trim {//n my $str = shift;//n $str =~ s/^/s+|/s+$//g;//n return $str;//n}//n//nmy $string = /' Hello, World! /';//nmy $trimmed_string = trim($string);//nprint /'Original String: '$string'/n/';//nprint /'Trimmed String: '$trimmed_string'/n/';//n//n//n方法二：使用正则表达式//nperl//nuse strict;//nuse warnings;//n//nmy $string = /' Hello, World! /';//n$string =~ s/^/s+|/s+$//g;//nprint /'Original String: '$string'/n/';//n//n//n以上两种方法都会将字符串$string两侧的空格去除，并打印处理后的字符串。输出结果如下：//n//nOriginal String: ' Hello, World! '//nTrimmed String: 'Hello, World!'//n