perl で trim(完全版)

perlでのtrimはいろいろ方法があると思うけど、
全角の空白は除去できなかったり、
出来ても文字列を壊してしまったりする。
今のところ、以下のような書き方で問題ありません。

引数はリファレンスにしているので、

&Zspace_Hspace_trim(\$変数);
のようにして実行します。


sub Zspace_Hspace_trim{
# 引数を格納(リファレンス)
my $trim_data = shift;
# 全角スペース my $Zspace="　";
#先頭の半角・全角空白を除去
${$trim_data} =~ s/^(?:\s|$Zspace)+//o;
#後ろの半角・全角空白を除去
${$trim_data} =~ s/^(.*?)(?:\s|$Zspace)+$/$1/o;
}