RegEx für Telefonnummer (Allgemeines zu Perl)

pktm

2004-08-24 22:38

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!
Hat wer eine effiziente RegEx für Telefonnummern (innerhalb Deutschlands) zur Hand?
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

Relais

2004-08-24 23:13

User since
2003-08-06
2246 Artikel
ModeratorIn

/\d\d+/ # 8)

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

pktm

2004-08-24 23:16

User since
2003-08-07
2921 Artikel
BenutzerIn

Nun hier ist mein Versuch:

Code: (dl )

[\w\s\-]*0\d{2,}[\s\/\-\(*]*\d{4,}\)*$

Matcht sowas hier:
CH - 035 - 1234
012 1234

gibt es 3stellige Telefonnummern und weniger?\n\n

http://www.intergastro-service.de (mein erstes CMS :) )

[E|B]

2004-08-24 23:28

User since
2003-08-08
2561 Artikel
HausmeisterIn

Quote
gibt es 3stellige Telefonnummern und weniger?

Natürlich.
Weniger glaube ich nicht, aber 3-stellige gibt es.

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

jemand

2004-08-24 23:53

User since
2004-05-14
231 Artikel
BenutzerIn
[default_avatar]

ich denk nicht dass 110 keine Telefonnummer ist...

print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;

pq

2004-08-25 00:37

User since
2003-08-04
12208 Artikel
Admin1

[quote=pktm,24.08.2004, 21:16]gibt es 3stellige Telefonnummern und weniger?[/quote]
klar. die nr. meiner besten freundin früher war dreistellig!
dafür hatte die vorwahl 5 ziffern. zweistellig möchte ich mal bezweifeln,
dann dürfte es in dem kreis nur 90 anschlüsse geben...
frag am besten mal bei der post^Wt-com nach =)\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

pktm

2004-08-25 01:04

User since
2003-08-07
2921 Artikel
BenutzerIn

[quote=jemand,24.08.2004, 21:53]ich denk nicht dass 110 keine Telefonnummer ist...[/quote]
Nunja, das ist so eine Ausnahme :)

Werde mal nachhorchen.
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

pktm

2004-08-25 01:07

User since
2003-08-07
2921 Artikel
BenutzerIn

jaja, google, Telefonnummern validieren, mal ohne Perl gesucht und was findet man? PHP
http://pinguino.eb-zuerich.ch/lehrgan....ons.php
Nützliche Seite.
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

ptk

2004-08-25 13:03

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Wenn man auch interne Nummern einer Telefonanlage abbilden moechte, koennen ein- und zweistellige Nummern auftreten. Vielleicht moechte man auch die Moeglichkeit haben, Vanity-Nummern abzubilden? Dann wuerde ich ganz auf eine Regexp verzichten :-)

Crian

2004-08-25 13:48

User since
2003-08-04
5871 Artikel
ModeratorIn

Was sind denn Vanity-Nummern? Die mit den Buchstaben statt Ziffern?

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