Logo VB-EDV-Beratung

ltrim/rtrim/alltrim

Die Funktion ltrim($) entfernt von dem übergebenen String führende White-Space-Zeichen.

sub ltrim($){
    my $s = shift;
    $s =~ s/^\s*//;
    return $s;
}

Die Funktion rtrim($) entfernt von dem übergebenen String folgende White-Space-Zeichen.

sub rtrim($){
    my $s = shift;
    $s =~ s/\s*$//;
    return $s;
}

Die Funktion alltrim($) entfernt von dem übergebenen String führende und folgende White-Space-Zeichen.

sub alltrim($){
    my $s = shift;
    $s =~ s/^\s*//;
    $s =~ s/\s*$//;
    return $s;
}
© 2003 Volker Böhm Best viewed with any Browser Valid HTML 4.0