ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Dmitriy Kuvshinov                    2:5020/400     07 Nov 2000  12:38:50
 To : Marsel Kirsanov
 Subject : лови ответ
 -------------------------------------------------------------------------------- 
 

 Привет!
 
 Хех, я то тебе отвечу, а вот мне кто ответит так же подробно, как я отвечаю...
 
 MK>   Как бы прочитать из файла 2торые посчету 20
 MK> строчек, третьи и т.д.?
 
 -------------------list.pl-------------------
 
 #!/usr/bin/perl -wT
 
 use CGI 'param';
 
 open AAA, "<file.txt"; @res=<AAA>; close AAA;
 $url="/cgi-bin/dk/music";
 $nomer=param('nomer');
 $n=20;#число выводимых строк...
 $m=8;#число результатов по 20 строчек, выданых на одной страничке...
 
 print "content-type: text/html\n\n";
 print "<p align=justify>";
 foreach($i=0; $i<=$#res; $i++){
   push(@pervij,"$i") if($i<=$nomer && $i % $n == 0);
   print $res[$i], "\n" if($i>=$nomer && $i<$nomer+$n);
   push(@vtoroj,"$i") if($i>=$nomer+$n && $i %$n == 0);
 }
 print "<\/p><center>";
 foreach $elem(@pervij){
   if($elem/$n>=$pervij[$#pervij]/$n-$m){
    if($elem==$pervij[$#pervij]){print $elem/$n+1," ";}
    else{print " <a href=\"$url/list.pl?nomer=$elem\">",
 $elem/$n+1,"<\/a> |\n";
    }
   }
 }
 foreach $elem1(@vtoroj){
   if ($elem1/$n<=$nomer/$n+$m){
    print "| <a href=\"$url/list.pl?nomer=$elem1\">",
 $elem1/$n+1,"<\/a> \n";
   }
 }
 print "<\/center>";
 
 Дима
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Со строчками задачка...   Marsel Kirsanov   07 Nov 2000 01:30:47   Re: Со строчками задачка...   Artur Penttinen   07 Nov 2000 08:29:44   лови ответ   Dmitriy Kuvshinov   07 Nov 2000 12:38:50