Or how about this?
use File::Copy; print "<html>\n<pre>\n"; copy "myfile.txt", \*STDOUT; print "</pre>\n</html>\n"; - B > 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>