Re: Re: Printing From a File Handle

Replies are listed 'Best First'.
Re: Re: Re: Printing From a File Handle by haoess (Curate) on Apr 28, 2004 at 20:36 UTC
TIMTOWTDI: `# shortest print "$_<br />" while <AP_MENU>; # show what you mean { local $\ = "<br />"; print while <AP_MENU>; } # more readable? foreach my $line (<FILE>) { print $line, "<br />"; }` [download] -- Frank	[reply] [d/l]
Re: Re: Re: Re: Printing From a File Handle by bkiahg (Pilgrim) on Apr 28, 2004 at 20:43 UTC
Thanks haoess!!	[reply]
Re^3: Printing From a File Handle by tkil (Monk) on Apr 29, 2004 at 02:04 UTC
Still more ways to do it: `# list processing print map "$_<br />", <AP_MENU>; # more abuse of special variables { local $, = "<br />"; print <AP_MENU>, ''; }` [download] If you are reading in any old file for display in an HTML page, you will want to do at least minimal escaping of special characters, too: `while ( <AP_MENU> ) { # protect against most egregious HTML violations s/&/&/g; s/</</g; s/>/>/g; # remove trailing whitespace so the <br /> is on # the same line as main text s/\s+$//; print "$_<br />\n"; }` [download]	[reply] [d/l] [select]
Re: Re^3: Printing From a File Handle by bkiahg (Pilgrim) on Apr 29, 2004 at 15:04 UTC
Good call tkil I forgot about escaping html characters!	[reply]
Re: Re: Re: Printing From a File Handle by Elijah (Hermit) on Apr 28, 2004 at 21:14 UTC
`#!/usr/bin/perl print "Content-type: text/html\n\n"; print <<top; <html> <head><title>Some Title</title></head> <body bgcolor="#000000"> top print "<font color=\"#FFFFFF\">$_</font><br>" for <DATA>; print <<bottom; </body> </html> bottom __DATA__ Test Test Again One More Test!` [download] You can see it work here. www.perlskripts.com	[reply] [d/l]


No such thing as a small change
	PerlMonks