Hello!
An example would look like this:
#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
my $file_loc = "bla";
my @file;
if (open(FILE, $file_loc)) {
@file = <FILE>;
print header;
print start_html();
print "<pre>@file</pre>";
close (FILE);
print end_html();
} else {
print header;
print start_html();
print "<h1>Cant open file: $file_loc</h1>";
print end_html();
}
Hope it works ;)
Luka
>
> Od: "Sun, Jian" <[EMAIL PROTECTED]>
> Datum: 2004/08/10 Tor PM 10:52:05 GMT+02:00
> Za: <[EMAIL PROTECTED]>
> Cc: <[EMAIL PROTECTED]>
> Zadeva: How to display a Text file using web browser under CGI
>
> Dear all;
> Could anybody help me to figure out How to display a Text file using the web
> browser in a CGI program?
>
> Thanks in advance
> Jian
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
=================================
Mirko tipka na radirko.
http://www.worldofspectrum.org/
=================================
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
