in reply to 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

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]
      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]
[reply]

      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/&/&amp;/g; s/</&lt;/g; s/>/&gt;/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]
        Good call tkil I forgot about escaping html characters!
[reply]
      #!/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]

In Section Seekers of Perl Wisdom