Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: open a file and print out to webbrowser

by throop (Chaplain)
on Oct 30, 2007 at 23:11 UTC ( [id://648143]=note: print w/replies, xml ) Need Help??


in reply to open a file and print out to webbrowser

When I'm getting no output whatsoever to a webbrowser, the usual reason is that I've forgotten to print a header. Try
use strict; use CGI::Pretty; use Carp qw(croak); my $sitelist_file='<c:\supportweb\content\sitelist.txt'; my $title = 'My Lines'; open my $data, '<', $sitelist_file or croak "No open on $sitelist_file"; my $text = do{local $/; <$data>}; close $data; print header(), start_html({title=>$title}); foreach my $line (split "\n", $text){ $response->write($line); }; print end_html;
or even more compactly
use strict; use CGI::Pretty; use Perl6::Slurp; print header(), start_html(-title=>'My Lines'); foreach (split "\n", slurp '<c:\supportweb\content\sitelist.txt'){ $response->write($_)} print end_html;
Not tested
I'm interpreting you to mean that you're writing a cgi-bin program or some such. Unlike static webpages (.html pages) they need to have the magic
Content-Type: text/html; charset=ISO-8859-1
or similar.

throop

hat-tip to Perl Best Practices

Replies are listed 'Best First'.
Re^2: open a file and print out to webbrowser
by Sidhekin (Priest) on Oct 30, 2007 at 23:15 UTC

    I'm betting that's ASP with PerlScript, not CGI.

    Note the $response->write. Ah, nostalgia. :)

    print "Just another Perl ${\(trickster and hacker)},"
    The Sidhekin proves Sidhe did it!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://648143]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (6)
As of 2024-04-18 04:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found