Извлечь доменное имя из адреса электронной почты

 

Загрузить как .sps Показать простым текстом

 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
* Требуется сделать разбор адресов e-mail чтобы затем построить частотную таблицу
* встречаемости доменных имён.

* Автор: Ray. Размещено в новостной группе 24.1.2002.

DATA LIST LIST /address (A40).
BEGIN DATA
[email protected]
[email protected]
[email protected]
END DATA.
LIST.

STRING domain(A20).
COMPUTE domain=SUBSTR(address,INDEX(address,"@")+1).
LIST domain.
Related pages

...

Navigate from here