Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: open a file and print out to webbrowser

by throop (Chaplain)
on Oct 30, 2007 at 23:11 UTC ( #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.


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?

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2021-10-24 09:23 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (89 votes). Check out past polls.