(fwd) Вопрос к знатокам awk, sed и regular expressions
Andrey Gerzhov (kittle@freeland.alex-ua.com)
Tue, 16 Sep 1997 10:30:10 +0300 (EEST)
-- forwarded message --
Path: freeland.alex-ua.com!barmaglot.alexradio.kiev.ua!f188.n463!f116.n463!f58.n463!f238.n5020!f69.n5020!f225.n5020!f443.n5020!news2.aha.ru!f52.n5020!f23.n5020!not-for-mail
Newsgroups: fido.ru.unix
Distribution: fido
X-Comment-To: Kosta Kudrin
From: Ivan Frolcov <Ivan.Frolcov@p37.f23.n5020.z2.fidonet.org>
Date: Sat, 13 Sep 97 00:35:58 +0300
Subject: Вопрос к знатокам awk, sed и regular expressions
Message-ID: <1101092189@p37.f23.n5020.z2.ftn>
References: <1179694771@f69.n5054.z2.fidonet.ftn>
Organization: Дисциплина и организованность - наши резервы
X-FTN-AREA: RU.UNIX
X-FTN-MSGID: 2:5020/23.37 41a1555d
X-FTN-REPLY: 2:5054/69@fidonet 4650b6b3
X-FTN-CHRS: IBMPC 2
X-FTN-TID: FastEcho 1.45 800
X-FTN-Tearline: timEd/2 1.10+
X-FTN-Origin: Дисциплина и организованность - наши резервы (2:5020/23.37)
X-FTN-SEEN-BY: 463/27 58 67 72 93 101 116 126 130 138 156 159 173 188 196 432 600
X-FTN-SEEN-BY: 463/690 707 2033 4614/1 6 4615/21 4623/17 4635/4 8 40 5000/7
X-FTN-SEEN-BY: 5001/15 5002/16 5011/13 201 5020/23 35 47 52 56 68 69 79 122 128
X-FTN-SEEN-BY: 5020/133 143 200 225 238 245 275 276 290 361 400 401 412 423 443
X-FTN-SEEN-BY: 5020/477 488 509 639 748 976 5022/5 5023/11 5028/51 5030/239
X-FTN-SEEN-BY: 5049/256 5051/1 5058/4 5059/2 5075/10 5077/3 5084/5
X-FTN-PATH: 5020/23 52 443 225 69 238 463/58 116
X-FTN-PATH: 463/188
Lines: 27
Xref: freeland.alex-ua.com fido.ru.unix:1727
* Original message posted in: ru.unix.
* Crossposted in: out.echomail.
Kosta Kudrin wrote in a message to All:
KK> Список килл!
KK> вот лови навскидку:
KK> ---------- cut here ------------
KK> #!/bin/perl
[...]
KK> }
KK> close(H_FILE);
KK> exit 0;
KK> -----------end here------------
KK> Если список будет в таким как ты написал
KK> то будет работать , если будет приобретать другую
KK> форму , то надо будет править скрипт !
KK> А вот чтение из стандартного ввода можешь сам
KK> сделать ,
KK> :))
KK> ну не знаю я пока как это делается !
KK> :((
Hо есть способ пpоще :-)
perl -nle "print ((/([\w\.-]+@[\w\.-]+)/)[0])"
Ivan
-- end of forwarded message --
--
Kittle
-------------------------------------------------------------------------------