Perl: функція для обрізки пробілів, що ведуть і закінчують рядок

Чи існує вбудована функція для обрізки пробілів, що ведуть та відстають, так, що trim(" hello world ") eq "hello world"?

Ось один із підходів до використання регулярного виразу:

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

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

$string .= trim;

Джерело: Вікіпедія

Це є в Струнний :: 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;

Виконайте інструкції у перфаку тут: 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твердження пробілу, щоб отримати однаковий результат.