Perl：文字列の先頭と末尾の空白を削除する関数

次のように先頭と末尾の空白を削除する組み込み関数はありtrim(" hello world ") eq "hello world"ますか？

正規表現を使用する1つのアプローチは次のとおりです。

$string =~ s/^\s+|\s+$//g ;     # remove both leading and trailing whitespace

Perl6にはトリム機能が含まれます。

$string .= trim;

出典：ウィキペディア

これは、String :: Utilで次のtrimメソッドを使用して使用できます。

^{編集者注：String::Utilコアモジュールではなく、あなたからそれをインストールすることができCPANに[sudo] cpan String::Util。}

use String::Util 'trim';
my $str = "  hello  ";
$str = trim($str);
print "string is now: '$str'\n";

プリント：

文字列は「こんにちは」になりました

ただし、自分で行うのは簡単です。

$str =~ s/^\s+//;
$str =~ s/\s+$//;

組み込みtrim関数はありませんが、単純な置換を使用して独自の関数を簡単に実装できます。

sub trim {
    (my $s = $_[0]) =~ s/^\s+|\s+$//g;
    return $s;
}

またはPerl5.14以降で非破壊置換を使用する：

sub trim {
   return $_[0] =~ s/^\s+|\s+$//rg;
}

このperlmonkのスレッドによると：

$string =~ s/^\s+|\s+$//g;

ここでperfaqのハウツーを完了してください：http：//learn.perl.org/faq/perlfaq4.html#How-do-I-strip-blank-space-from-the-beginning-end-of-a-string-

Text :: CSVを使用している場合は、このスレッドを見つけて、CSVモジュール内でスイッチを介して削除できることに気付きました。

$csv = Text::CSV->new({allow_whitespace => 1});

論理は逆で、ストリップしたい場合は1に設定します。図を見てください。これが誰かに役立つことを願っています。

1つのオプションはText :: Trim：です。

use Text::Trim;
print trim("  example  ");

適用：s/^\s*//; s/\s+$//;それに。またはs/^\s+|\s+$//g、空想したい場合に使用し ます。

また、前向きな先読みを使用して、テキスト内の繰り返しスペースをトリミングします。

s/^\s+|\s(?=\s)|\s+$//g

いいえ。ただし、s///置換演算子と\s空白アサーションを使用して同じ結果を得ることができます。