Trim на Perl

Q: Есть ли функция trim() на perl ?
Q: Как удалить все пробелы в начале и конце строки ?

Функции trim на Perl нет, на зато есть регулярные выражения:

---[ file.pl ]----
sub trim {
    my($string)=@_;
    for ($string) {
        s/^\s+//;
        s/\s+$//;
        }
    return $string;
    }
---[ file.pl ]----

1.

Аноним

+0 / -1

7 марта 2006, 17:50:44

\s* было бы правильнее

2.

Аноним

28 сентября 2004, 14:06:31

\t - лишний, это пробельный символ, он по определению уже входит в \s