Re: Printing From a File Handle

@fileinput_ap = <AP_MENU>;
for ($i = 0; $i <= $#fileinput_ap; $i++)  { print "$fileinput_ap[$i]" 
+}
[download]

This can be done more perlish:

while( <AP_MENU> ) {
  print;
}
[download]

or shorter:

print while <AP_MENU>;
[download]

If you just want to print an entire file, you can use print in array context

print <AP_MENU>;
[download]

-- Frank

Comment on Re: Printing From a File Handle Select or Download Code

Replies are listed 'Best First'.
Re: Re: Printing From a File Handle by bkiahg (Pilgrim) on Apr 28, 2004 at 20:27 UTC
Is there anyway to add html formatting to it? e.g. `print while "<AP_MENU><br>";` [download]	[reply] [d/l]
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]
Re: Re: Printing From a File Handle by bkiahg (Pilgrim) on Apr 28, 2004 at 20:39 UTC
`while ( <LOG> ) { print "$_<br>" }` does the trick.	[reply] [d/l]


Syntactic Confectionery Delight
	PerlMonks