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