easiest i would think is here-doc.
I like:
open (OUTP, ">hdtst") or die "no can open\n";
print OUTP <<HEHE;
abc "def"
"ghi" jkl
HEHE
On Saturday, March 23, 2002, at 08:15 PM, Scott Wahlstrom wrote:
>
> Severe newbie that would RTFM if I would have brought it home and i'm not
> asking the right monestary search strings so i humbly ask for your help..
> .
>
> i'll go get going on a fresh pot of coffee...anyhew - snippet away...
>
> #!/perl
>
> ....
>
> open(OUTPUT, "/www/html/toc.html");
>
> print (OUTPUT "<html><head><title>TOC - Operations Center</title>
> <meta http-equiv="Content-Type" content="text/html;
> charset=iso-8859-1"></head>
> <body bgcolor="#FFFFFF" text="#000000"><div
> align="center"><h1>Terrabyte Operations Center
> </h1><table width="89%" border="0" height="474"><tr
> bordercolor="#000000">
> <td width="50%" height="53"><div align="center"><b>Nodes Responding
> to ICMP Queries</b>
> </div></td><td width="50%" height="53"><div
> align="center"><b>Unresponsive Nodes</b></div>
> </td></tr><tr bordercolor="#000000"><td width="50%"><font size="-1">";
>
> foreach $good_node (@good_nodes){
> chomp($good_node);
> print (OUTPUT, "<p>$good_node<\/p>";
> }
>
> print (OUTPUT, "<\/font><\/td><td width="50%"><font size="-1">";
>
> foreach $bad_node (@bad_nodes) {
> chomp($bad_node);
> print (OUTPUT, "<p>$bad_node<\/p>";
> }
>
> print (OUTPUT, "<\/font><\/td><\/tr><\/table><p align="left"><\/p><p
> align="left"><\/p>
> <hr width="80%"><p align="center">Monitoring $counter
> nodes.<\/p><\/div><\/body><\/html>");
>
> Thanx,
>
> -sunny
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
