[Fwd: Perl split to HTML]

Tom Burkhardt Thu, 04 Oct 2001 07:26:00 -0700

--- Begin Message --- Greetings Perl Guru's:
After some time, I admit I am stuck. That is, the following SPLIT prints to the screen just fine, but I cannot seem to get the entire listing into my HTML table?
Any thoughts you may have on print OFH ${varName}, where this is either an scalar listing or an array would be VERY helpful. Basically, what am I doing wrong
in the code below?

!/devl/perl/bin/perl -w
print "Content-type:text/html\n\n";
open(IFH, "< IPtest_fails_011002cc" ) || die "Cannot Open Container XXXXX";
        while (<IFH>) {
                ($coreName, $family, $tcName) = split (/\s+/, $_, 3);
                print $coreName," ", $family," ", $tcName;
        open(OFH, "> /home/webster/ats/testing/lists/IPtest_fails_today.shtml" ) || die "Cannot Create this XXXXXX";
        print OFH "<html><head><title>Failures List</title>","\n";
        print OFH "</head>\n\n\n";
        print OFH "<body bgcolor=\"00A6BA\">", "\n";
        print OFH "<h1>List for Today YYMMDD</h1>";
        print OFH "</center>";
        print OFH "<center>\n";
        print OFH "<table BORDER=0 BGCOLOR=#33CCFF>", "\n";
        print OFH "<tr valign=top>";
#--------------------------Header-------------------------------------------------
        print OFH "<td>";
        print OFH "<p><b><center>coreName</b></p>";
        print OFH "</td>";
        print OFH "<td>";
        print OFH "<p><b><center>family</b></p>";
        print OFH "</td>";
        print OFH "<td>";
        print OFH "<p><b><center>tcName</b></p>";
        print OFH "</td>";
        print OFH "</tr></table><center>";
#--------------------------base-------------------------------------------------
        print OFH "<table BORDER=0 BGCOLOR=#ff7f50>", "\n";
        print OFH "<tr valign=top>";
        print OFH "<td>";
        print OFH "${coreName}<br>","<br>","\n";
        print OFH "</td>";
#---------------------------------------------------------------------------
   print OFH "<td>";
        print OFH "${family}<br>","<br>","\n";
        print OFH "</td>";
        print OFH "</td>";
#---------------------------------------------------------------------------
        print OFH "<td>";
        print OFH "${tcName}<br>","<br>","\n";
        print OFH "</td>";
        print OFH "</td>";
#---------------------------------------------------------------------------
        print OFH "</tr></table><center>";
        print OFH "<p>The submitted # of TCs:<b>",2,"</b></p>";
        print OFH "<hr WIDTH=\"100%\">", "\n";
        print OFH "";
        print OFH "<br>";
        print OFH "<br>Send comments to the ATS: ";
        print OFH "<a href="\"mailto:ME\">jamesgs_staff\@xilinx.com</a>.", "<br>";
        print OFH "</body></html>","\n";
#---------------------------------------------------------------------------
close(OFH);
close(IFH);
The basic format to the input file, IPtest_fails_011002cc is as follows:
121dadfvca    getlife2    tcNameJOE
34341dadfvca    getlife9    tcNameJILL
99dfvca    getlife7    tcNameTONY
1333dadfvca    getlife6    tcNameHANK
4441dadfvca    getlife21    tcNameMARY
Thanks ALL for your insight.
Tom --- End Message ---

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

[Fwd: Perl split to HTML]

Reply via email to