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 |
|
|
