ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : dimka kuvshinov                      2:5020/400     10 Sep 2000  16:26:24
 To : All
 Subject : подпрограмма
 -------------------------------------------------------------------------------- 
 

 Привет Аллу!!!
 
 у меня есть код, который ищет в файле определенные слова. Скажите, как я могу 
 загнать этот код в подпрограмму, но так, чтобы вывод этой подпрограммы
 выводился 
 в массив?
 
 #!/usr/bin/perl -wT
 use CGI 'param';
 $put="/usr/home/serge/public_html/arxiv/links.dat";
 @massive=&result;
 sub result{
 open (OUT,"<$put");
 @massiv=<OUT>;
 close (OUT); $n="\n";
 $qqq=lc param('word');
 foreach $line(@massiv){
  if($line=~m/###(.*) - ###(.*)###(.*)###/ig){ #инфа в файле разбита ###
   $stroka=$1."####".$3."\n";
   if($stroka=~m/$qqq/ig){
    print $stroka.$n;
   }
  }
 }
 
 Что мне нужно, если оставить голый код, без определения подпрограммы, то perl
 на 
 STDOUT выведет список найденных слов. Hо мне этот вывод надо бы запрятать в 
 массив, можно и в хеш. Как сделать это с помощью подпрограммы - я не знаю...
 :( И 
 вообще можно это сделать? или же нужно писать другой скрипт, которым запускать
 
 этот, первым скриптом ловить SDTOUT и там уже его загонять в массив или хэш. 
 Писать в файл не хочу, тормозно... 
 
 И еще, как определить, сколько времени исполнялась программа? может быть 
 кто-нибудь делал, подскажите!!
 
 Hавигации!
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    подпрограмма   dimka kuvshinov   10 Sep 2000 16:26:24   все, спасибо!   dimka kuvshinov   11 Sep 2000 01:38:50   next трабл   dimka kuvshinov   11 Sep 2000 03:53:43