|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander N. Lykov 2:5083/21 21 Jul 2000 15:20:28
To : All
Subject : trouble
--------------------------------------------------------------------------------
.RFC-X-Complaints-To: news@fido.online.kz
.RFC-NNTP-Posting-Date: 21 Jul 2000 08:22:08 GMT
.RFC-X-Accept-Language: ru, en
Reply-To: alykov@centercredit.kz
Привет Алл!
Hаписал небольшой скриптик и столкнулся с проблемой:
------------- 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);
-----------------------
--------------- index.htm
<html>
<head>
<title>aaaaaaaaa</title>
</head>
...
--------------------------
--------------- получаем index.htm.tmp
<html>^Mtest
<head>^Mtest
<title>aaaaaaaaa</title>^Mtest
</head>^Mtest
^Mtest
.......
--------------------
ВОПРОС: Откуда береться ввод досовый (^M)?
если в строке print oIDX "test\n"; убрать \n - то все окей, а с ним -
добавляется в предидущую строчку символ ^M.
Через STDOUT все ровно.
Какие есть мысли?
PS: Perl version 5.005_03 built for i386-linux
Александр
2:5083/6
--- Mozilla 4.73 [en] (X11; U; Linux 2.2.16-3 i686)
* Origin: Bank Centercredit (2:5083/21@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
trouble |
Alexander N. Lykov |
21 Jul 2000 15:20:28 |
 trouble |
Kostya Belous |
21 Jul 2000 13:41:00 |
|
|
