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
abc@free.com
xyz@yahoo.com
abcdfer.kjudyhd@excite.com
END DATA.
LIST.

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