* Требуется сделать разбор адресов 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.