in reply to Re: Printing From a File Handle
in thread Printing From a File Handle

Is there anyway to add html formatting to it? e.g. 
print while "<AP_MENU><br>";

[download]

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]
[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/&/&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]
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]

In Section Seekers of Perl Wisdom