ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  22 Sep 2000  12:55:22
 To : Alex Ptushkin
 Subject : Re: надо найти в файлике пару словечек. помогите, плизз
 -------------------------------------------------------------------------------- 
 

 <Alex_Ptushkin@f1342.n5030.z2.fidonet.org> wrote:
 
 AP> нужно найти в файле слова, стоящие после слова Area. не получается :-(
 AP> вот прога, помогите, плизззз!!
 AP> ===== Start cut [/find_print]=====
 AP> #!/usr/bin/perl
 AP> $file="/exp.tic";
 AP> open (FILE, "$file") || die "suck...";
 AP> while (<FILE>) {
 
 ... считали строку в $_
 
 AP>     $file=~ /Area/;
 
 ... а проверили зачем-то имя файла.
 
 AP>     print $' ;
 AP>     }
 
 AP> close (FILE);
 
 AP> =====  End cut  [/find_print]=====
 
 Кроме того, там еще пара ошибок и настоятельно не рекомендуемое использование
 переменной $'. Рекомендуется внутренность цикла свести к
 
 print $1 if /Area\b(.*)/;
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    надо найти в файлике пару словечек. помогите, плизз   Alex Ptushkin   21 Sep 2000 00:08:10   Re: надо найти в файлике пару словечек. помогите, плизз   dimka kuvshinov   22 Sep 2000 07:29:51   Re: надо найти в файлике пару словечек. помогите, плизз   Artem Chuprina   22 Sep 2000 12:55:22