ＳＪＩＳ漢字スペース対応のTrim

以下は、ＳＪＩＳ漢字スペースに対応したTrimです。

use strict;
my $string = " 　あ　あ あ 　 ";
print Trim($string), "\n";
sub Trim {
    my ($str) = @_;
    my $space = '([ \t\n\r\f]|\x81\x40)';
    $str =~ s/^$space+|$space+$//g;
    return $str;
}

このTrimは、文字列前後にある以下を削除します。

• 半角スペース
• タブ（\t）
• 改行（\n）
• 復帰（\r）
• 改ページ（\f）
• 漢字スペース（\x81\x40）