Главная страница


ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitriy Goldobin                     2:5020/400     24 Jul 2000  06:02:17
 To : All
 Subject : Re: trouble
 -------------------------------------------------------------------------------- 
 
 > ------------- script.pl
 > $index_html = 'index.htm';
 >
 > open (iIDX,"<$index_html") or die "Can't open $index_html: $!.";
 > open (oIDX,">$index_html.tmp") or die "Can't create $index_html: $!.";
 >
 > while (<iIDX>){
 >     chomp;
 >     print oIDX;
 >     print oIDX "test\n";
 > }
 > close (oIDX);
 > close (iIDX);
 
 []
 
 > <html>^Mtest
 > <head>^Mtest
 
 []
 
 У тебя исходный html досовый, с \r\n на конце строки
 Замени chomp на s/\r?\n$//;
 --- ifmail v.2.15dev5
  * Origin: Electronic Microsystems JSC (2:5020/400)
 
 

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

 Тема:    Автор:    Дата:  
 Re: trouble   Dmitriy Goldobin   24 Jul 2000 06:02:17 
Архивное /ru.perl/21956033debbb.html, оценка 1 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional