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

Crian

2006-03-31 13:59

User since
2003-08-04
5873 Artikel
ModeratorIn

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;
}

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite