|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 06 Jul 2000 19:07:56
To : Sergey Belov
Subject : Re: Прочитать из файла
--------------------------------------------------------------------------------
<Sergey_Belov@p69.f53.n5020.z2.fidonet.org> wrote:
SB> Объясните новичку в чем тут баг.
SB> Есть файл, я его компилю perl <имя.файла>, он все правильно выдает. Сам
SB> файл:
SB> === Cut ===
SB> open(FILE,"db.txt")
SB> or die "Can`t open $!\n";
SB> while(<FILE>){
SB> chomp;
SB> print("$_ \n");
SB> }
SB> close(FILE);
SB> === Cut ===
SB> Hо как только я этот кусок встраиваю в HTML, он уже не может открыть данный
SB> файл, хотя его видит, где ошибка ?
SB> === Cut ===
SB> <HTML>
SB> <HEAD><TITLE></TITLE></HEAD>
SB> <BODY BGCOLOR=#FFFFFF>
SB> <SCRIPT language="PerlScript">
SB> #! e:\perl\api\bin\perl -w
SB> sub PrintText {
SB> $name = "e:\00\db.txt";
Так видит он один файл...
SB> if(-r $name){$window->document->write("FILE CAN READ \n");}
SB> else{$window->document->write("FILE CAN`T READ \n");}
SB> unless(open(FILE,"db.txt"))
А открывать ты пытаешься другой.
SB> {
SB> $window->document->write("FILE NOT OPEN \n");
SB> }
SB> else
SB> {
SB> $window->document->write("FILE IS OPEN \n");
SB> while(<FILE>){
SB> chomp;
SB> $window->document->write("$_ \n");
SB> }
SB> close(FILE);
SB> }
SB> # open(FILE,"db.txt")
SB> # or die "Cant open $!\n";
SB> # while(<FILE>){
SB> # chomp;
SB> # $window->document->write("$_ \n");
SB> # }
SB> # close(FILE);
SB> }
SB> PrintText();
SB> </SCRIPT>
SB> </BODY>
SB> </HTML>
SB> === Cut ===
--
Счастливо!
Ран.
--- ifmail v.2.14.os-p7-tma3
* Origin: MemoNet (2:5020/371.32@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Прочитать из файла |
Sergey Belov |
06 Jul 2000 12:16:00 |
 Re: Прочитать из файла |
Artem Chuprina |
06 Jul 2000 19:07:56 |
|
|
