質問は、こんな感じ
perlでPHPみたいにrtrimをしたいです。 文字列の一番最後に全角スペースや半角スペースがあれば 削除するみたいな感じにしたいです。 全角が２つあってもそれも削除します。 どうすれば可能でしょうか？
#2を回答した方が、#1の方を惜しいと言ってるんだけれども、
#2の方も惜しいｗｗ
正規表現で、
$str =~ s/[\s ]+$//g;
すると、半角スペース、または、UTF-8の全角スペース「E38080」が分解され、
「\xE3」または、「\x80」または、「\x80」を消すってなっちゃいます
正解は、こんな感じ
#!/usr/bin/perl
use strict;
use warnings;
my $str1 = 'テスト '; # 1byte space
my $str2 = 'テスト '; # 1byte spece and 3byte utf8 space
my $str3 = 'テスト '; # 3byte utf8 space and 3byte utf8 space
for my $w (($str1, $str2, $str3)) {
$w =~ s/(\s|\xE3\x80\x80)+$//;
print "<$w>\n";
}
exit;
まー、「[]」じゃくて「()」で文字列としてしましょーってことね
そいじゃ、またｗ
このブログ記事を参照しているブログ一覧: Hatena::Questionで、おしい合戦を解決してみるｗ
このブログ記事に対するトラックバックURL: http://modperlis.bounceme.net/mt/mt-tb.cgi/104
|
SE perler@29 |
コメントする