ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Bolotnov                   2:5052/4.82    19 Aug 2000  21:12:01
 To : All
 Subject : правильно ли?
 -------------------------------------------------------------------------------- 
 

 
 вот написал кое-что... работает, но чую, что что-то тут не правильно, а
 обосновать не могу... :) вот такое дело:
 
 #!d:/perl/bin/perl.exe
 
 use CGI;
 $q = new CGI;
 $pic = $q->param("pic");
 $lng = $q->param("lng");
 
 $dis_file = "pic_dis.txt";
 
 print "content-type: text/html\n\n";
 
 open (DIS,"<$dis_file");
 @opis = <DIS>;
 close (DIS);
 foreach (@opis){
 ($name, $discr) = split(/###/);
 if ($pic eq $name)
 {
 print "<img src=../rus/pics/$pic.jpg> $discr<br>";
 
 >здесь сувал что-то вроде: else {print "bah... nothing";}
 >но он как-то не правильно обрабатывался...
 
 exit;
 }
 }
 print "heh $pic";
 
 ногами не пинайте, дело не в CGI, а чисто перловая штука...
 
                                                      Alexander Bolotnov.
 
 ---
  * Origin: Вставить оригинальность по вкусу... (2:5052/4.82)
 
 

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

Тема:    Автор:    Дата:    правильно ли?   Alexander Bolotnov   19 Aug 2000 21:12:01   Re: правильно ли?   Artem Chuprina   21 Aug 2000 10:34:29