
12.12.2007, 17:29
|
|
Постоянный
Регистрация: 05.06.2007
Сообщений: 335
Провел на форуме: 4319431
Репутация:
677
|
|
Сообщение от biophreak
Добавляем ровно 4 символа в пример C!klodoL =)) :
open(FILE, '<incom.txt');
while(<FILE>) {
print $_ if $_ =~ /\@rambler/io;
}
Вуаля  )))
Ну примеры, он видимо тут и придумывал, а ктож знает какая там у него база мыл....  ))))
но тогда может попасть мыло типа @rambler.com 8)
если уж совсем точно то;
open(FILE, '<incom.txt');
while(<FILE>) {
print $_ if $_ =~ /\@rambler\.ru/i;
}
Последний раз редактировалось C!klodoL; 12.12.2007 в 17:35..
|
|
|