ORM Doctrine, PHP, SQL, Zend Framework, SEO для роботов-сгибальщиков: trim для Perl

вторник, 10 августа 2010 г.


sub trim
{
  my ($str) = @_;
  $str =~ s/^\s+//;
  $str =~ s/\s+$//;
  return $str;
}