ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/5609.69 01 Jul 2001 10:03:35
To : Aleksey Oleynikov
Subject : Re: HЕ пашет!! :((
--------------------------------------------------------------------------------
Юґullo Aleksey!
AO> while($str=<FILE>) # начался цикл до конца файла
AO> { print $str."\n"; # это пpосто вывожy
AO> if ($str =~ m/Nujen:/) { print FILE2 $str;} # <-- Почемy не пашет????
AO> };
AO> Все, что он делает это копию исходного файла 11. :(((
AO> ЛЮДИ, ПОЧЕМУ???
AO> ОС: Win98SE,
AO> Perl: 5..с чем-то.
Что-то не так с твоей операционкой/эхотагом - все должно работать и работает.
Только напиши /^Nujen:/ и печатай без ."\n".
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/5609.69 ДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/5609.69)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: HЕ пашет!! :(( 
