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

2006-03-31 15:19

User since
2003-08-04
12209 Artikel
Admin1

[quote=Crian,31.03.2006, 11:59]ich würd es ja "noch richtiger" (*duck*) so machen

Code: (dl )

sub chomp_all {
    my ($var) = @_;

    my $old = '';

    while ($var ne $old) {
        $old = $var;
        chomp $var;
    }

    return $var;
}

[/quote]
man kann es sich aber auch kompliziert machen...
perldoc -f chomp: "It returns the total number of characters removed"

Code: (dl )

sub chomp_all {
  my ($var) = @_;
  1 while chomp($var);
  return $var;
}

\n\n

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem