ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     19 Dec 2001  13:14:59
 To : Alexey Plasetskiy
 Subject : Re: Помогите
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Alexey Plasetskiy.
 
 AP> начало POEZD.PL
 AP> #!/perl/bin/perl
 
 AP> $file="poezd.blt";
 AP> open (POEZD, "$file");
 AP> @list=<POEZD>;
 AP> close (POEZD);
 
 AP> print "Content-type: text/html; charset=windows-1251\n\n";
 AP> print "<table bgcolor=#000000>";
 
 AP> @list=reverse(@list);
 AP> for ($i=0;$i<@list;$i++)
 AP>   {
 AP>    ($date,$form,$phone,$mail,$www)=split(/::/,$list[$i]);
 AP>    print "<tr>";
 AP>    print "<td bgcolor=#918cb5 width=100 height=20 nowrap><P
 AP> align=center>Дртр:</P></td>";
 AP>    print "<td bgcolor=#918cb5 width=650 height=20 nowrap><P
 AP> align=center>Тхъёт юсъятыхэшя:</P></td></tr>";   print "<tr>"; print "<td
 AP> bgcolor=silver height=20 nowrap><P
 AP> align=center><font color=red>$date</font></P></td>"; print "<td
 AP> bgcolor=silver height=20>$form<P><font color=#ccffff>Тхыхфюэ:</font>
 AP> $phone;<font color=##ccffff>E-mail:</font><a href=mailto:$mail>
 AP> $mail</a>;<font
 AP> color=#ccffff>WEB</font><a href=$www>$www</a>.</P></td></tr>";  } print
 AP> "</table>"; конец POEZD.PL
 AP> Почему перед заполненными графами появляется ровно столько же не
 AP> заполненных. Помогите кому не трудно...
 
 Судя по всему, входной файл так организован... Попроверяй значения после split
 на тему пустоты. Кстати, а зачем ты делаешь reverse перед for? for
 ($i=@list-1;$i>=0;$i--) было бы удобнее и чуть ли не быстрее.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Помогите   Alexey Plasetskiy   17 Dec 2001 22:07:12   Re: Помогите   Artem Chuprina   19 Dec 2001 13:14:59   Re: Помогите   Alexey Plasetskiy   19 Dec 2001 21:41:08