Wordpressメモとかアフィめもとか

# $str の先頭の空白文字(全角スペース含)を削除する

$str =~ s/^(?:\s|$Zspace)+//o; # $str が EUC-JP の場合

$str =~ s/^(?:\s|$Zspace_sjis)+//o; # $str が SJIS の場合

 

# $str の末尾の空白文字(全角スペース含)を削除する

$str =~ s/^($character*?)(?:\s|$Zspace)+$/$1/o; # $str が EUC-JP の場合

$str =~ s/$eucpre(?:\s|$Zspace)+$//o; # $str が EUC-JP の場合(perl5.005以降)

# 半角スペース

$space = '\x20';

 

# 全角スペース

$Zspace = '(?:\xA1\xA1)'; # EUC-JP

$Zspace_sjis = '(?:\x81\x40)'; # SJIS

 

[1回]