|
Perl, regular expression
|
|||
---|---|---|---|
#18+
Есть вот такая строки: т (81212) 32083 ф (813) 1835097 ф (81212) 32083 т (813) 1835097 т/ф (81212) 32083 т (813) 1835097 задача - вычленить из этих строк первое вхождение номера телефона(не факса), причем код города и номер телефона отдельно т (81212) 32083 ф (813) 1835097 -> 81212, 32083 ф (81212) 32083 т (813) 1835097 -> 813, 1835097 т/ф (81212) 32083 т (813) 1835097 -> 81212, 32083 ... |
|||
:
Нравится:
Не нравится:
|
|||
04.11.2003, 11:21 |
|
Perl, regular expression
|
|||
---|---|---|---|
#18+
т (81212) 32083 ф (813) 1835097 -> 81212, 32083 ф (81212) 32083 т (813) 1835097 -> 813, 1835097 т/ф (81212) 32083 т (813) 1835097 -> 81212, 32083 что то типа: $var = т (81212) 32083 ф (813) 1835097 if ($var =~ /т\s*\((\d+)\)\s*(\d+)/) { $code = $1; $phone = $2; } ... |
|||
:
Нравится:
Не нравится:
|
|||
04.11.2003, 15:56 |
|
|
start [/forum/topic.php?fid=23&fpage=524&tid=1480296]: |
0ms |
get settings: |
8ms |
get forum list: |
11ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
46ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
others: | 13ms |
total: | 145ms |
0 / 0 |