Perl: функция для обрезки пробелов в начале и в конце строки

Есть ли встроенная функция для обрезки начальных и конечных пробелов, таких как trim(" hello world ") eq "hello world"?

Вот один из подходов с использованием регулярного выражения:

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

Perl 6 будет включать функцию обрезки:

$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;
}

или с помощью неразрушающей замены в Perl 5.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. Пойдите и подумайте. Надеюсь, это кому-нибудь поможет.

Один из вариантов - Text :: Trim :

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

Применить: s/^\s*//; s/\s+$//;к нему. Или используйте, s/^\s+|\s+$//gесли хотите нарядиться.

Я также использую позитивный взгляд вперед, чтобы обрезать повторяющиеся пробелы внутри текста:

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

Нет, но вы можете использовать s///оператор подстановки и \sутверждение пробела, чтобы получить тот же результат.