Re^3: improving the aesthetics of perl code

in reply to Re^2: improving the aesthetics of perl code
in thread improving the aesthetics of perl code

print "<tt>\n";
print "\n<center><h3>MSHIP - my status of host IP's</h3></cente
+r>\n";
my $now=strftime "%m/%d/%Y %H:%M:%S", (localtime);
print "<center>$now</center>\n";
print hr;
[download]

Personally, I'd probably use a heredoc for this:

my $now=strftime "%m/%d/%Y %H:%M:%S", localtime;
print <<"END";
<tt><center><h3>MSHIP - my status of host IPs</h3></center>
<center>$now</center>
<hr />
END
[download]

Of course, I wouldn't write HTML like that, but continuing in that direction will only send me way off-topic...

=cut
--Brent Dax
There is no sig.

In Section Seekers of Perl Wisdom