ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexey Plasetskiy                    2:5000/76.100  17 Dec 2001  22:07:12
 To : All
 Subject : Помогите
 -------------------------------------------------------------------------------- 
 

 
 $file="poezd.blt";
 open (POEZD, "$file");
 @list=<POEZD>;
 close (POEZD);
 
 print "Content-type: text/html; charset=windows-1251\n\n";
 print "<table bgcolor=#000000>";
 
 @list=reverse(@list);
 for ($i=0;$i<@list;$i++)
   {
    ($date,$form,$phone,$mail,$www)=split(/::/,$list[$i]);
    print "<tr>";
    print "<td bgcolor=#918cb5 width=100 height=20 nowrap><P
 align=center>Дртр:</P></td>";
    print "<td bgcolor=#918cb5 width=650 height=20 nowrap><P align=center>Тхъёт
 юсъятыхэшя:</P></td></tr>";
    print "<tr>";
  print "<td bgcolor=silver height=20 nowrap><P align=center><font
 color=red>$date</font></P></td>";
  print "<td bgcolor=silver height=20>$form<P><font
 color=#ccffff>Тхыхфюэ:</font> $phone;<font color=##ccffff>E-mail:</font><a
 href=mailto:$mail> $mail</a>;<font color=#ccffff>WEB</font><a
 href=$www>$www</a>.</P></td></tr>";
   }
 print "</table>"; конец POEZD.PL
 Почему перед заполненными графами появляется ровно столько же не заполненных.
 Помогите кому не трудно...
 --- ifmail v.2.15dev5
  * Origin:  (2:5000/76.100)
 
 

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

Тема:    Автор:    Дата:    Помогите   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