chomp nicht nur für ein \n sondern unendlich viele - #64003 (Allgemeines zu Perl)

esskar

2006-03-31 16:31

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

hmm

Code: (dl )

sub chomp_all {
   my $retval = 0;
   foreach (@_) {
      my $count;
      1 while chomp($_) && $retval += $count;
   }
   return $retval;
}