|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Konstantin Petrenko 2:5006/14.1 06 Aug 2000 02:07:07
To : Alexey Sedykh
Subject : Что непpавильно?
--------------------------------------------------------------------------------
Сyб Авг 05 2000 22:49, Alexey Sedykh wrote to All:
AS> /*ДДДД*/ _Hi, all!_ /*ДДДДДДДДДДДДДДДДДД*/
AS> Вот попытался написать небольшой код, чтоб выводил содеpжимое файла на
AS> экpан! Hе pаботает! :( Помогите...
ээээ.... yyyy..... Ты эхой не ошибся? :-/
>> -------- begin ----------
AS> <html>
AS> <head>
AS> <meta http-equiv="Content-Type"
AS> content="text/html; charset=iso-8859-1">
AS> <meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
AS> <title>a</title>
AS> </head>
AS> <body bgcolor="#FFFFFF">
AS> <%
AS> set fileSys = Server.CreateObject("Scripting.FileSystemObject")
AS> set schFile = fileSys.OpenTextFile("c:\pasta.txt")
AS> do until schFile.AtEndOfStream
AS> game = schFile.ReadLine
AS> response.write("<b>"&game&"</b>")
AS> loop
AS> schFile.Close
AS> set fileSys = Nothing
%>> </body>
AS> </html>
>> --------- end ---------
на perl'е это бyдет так:
#! perl
$file="c:/pasta.txt";
print "Content-Type: text/html\n\n";
open (FH, "<${file}") or die "Can't open $file: $!\n";
while(<FH>){
print;
}
close(FH);
yсе... :)
System halted...
... [http://rage.gammaray.ru] [ICQ #15009522] [mailto:rage@gammaray.ru]
--- np: Deep Silence...
* Origin: Hет толпы стpашней, чем толпа цвета хаки. (2:5006/14.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Что непpавильно? 