【Perl】實作類似 trim 功能的正則

取之於網路，用之於網路
當作自己的筆記本吧
參考

---

sub ltrim { my $s = shift; $s =~ s/^\s+//;       return $s };
sub rtrim { my $s = shift; $s =~ s/\s+$//;       return $s };
sub  trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };

使用

my $z = " abc ";
printf "<%s>\n", trim($z);   # 
printf "<%s>\n", ltrim($z);  # 
printf "<%s>\n", rtrim($z);  # < abc>