Logo VB-EDV-Beratung

telbeauty

Die Funktion telbauty($$) verwandelt einfache Telefonnummer in die bei uns meist übliche Schreibweise, die von hinten her in Zweiergruppen mit jeweils einem Leerzeichen trennt bis nur noch drei Ziffern übrig sind. Vorwahl und Rufnummer werden mit einem Slash ('/') getrennt.

sub telbeauty($$){
    my ($vw,$nr) = @_;
    return telb1($vw).' / '.telb1($nr);
}
Für eine einzelne Zahl ist die Hilfsroutine telb1($) zuständig.
sub telb1($){
    my $no = shift;
    $no =~ tr/-0-9//cd;
    1 while $no =~ s/(.*\d\d)(\d\d)(\z| |-)/\1 \2\3/;
    return $no;
}
© 2003 Volker Böhm Best viewed with any Browser Valid HTML 4.0