how i modify csv an html list controlling perl?
in code, i wish perspective information csv list form, nonetheless wholly displays final line. lines 1 2? here's data:
1,hf6,08-oct-08,34:22:13,df,jhj,fh,fh,ffgh,gh,g,rt,ffgsaf,asdf,dd,yoawa,dwp,tester,pattern
2,hf35,08-oct-08,34:12:13,dg,jh,fh,fgh,fgh,gh,gfh,re,fsaf,asdf,dd,yokogawa,dwp,dwp,pattern
3,hf35,08-oct-08,31:22:03,dg,jh,fh,fgh,gh,gh,gh,rte,ffgsaf,asdf,dfffd,yokogawa,dwp,dwp,ghh
here's code:
#! /usr/bin/perl
print "content-type:text/html\r\n\r\n";
use cgi qw(:standard);
use strict;
use warnings;
my $line;
my $file;
my ($f1,$f2,$f3,$f4,$f5,$f6,$f7,$f8,$f9,$f10,$f11,$f12,$f13,$f14,$f15,$f16,$f17,$f18,$f19);
$file='myfile.txt';
open(f,$file)||die("could open $file");
while ($line=<f>)
{
($f1,$f2,$f3,$f4,$f5,$f6,$f7,$f8,$f9,$f10,$f11,$f12,$f13,$f14,$f15,$f16,$f17,$f18,$f19)= separate ',',$line;
}
close(f);
print "<html>";
print "<head>";
print "<body bgcolor='#4682b4'>";
print "<title>fusion change report</title>";
print "<div align='left'>";
print "<table cellpadding='1' cellspacing='1' border='1' bordercolor=black width='100%'>";
print "<tr>";
print "<td width='12%'bgcolor='#00ff00'><font size='2'>record no.</td>";
print "<td width='12%'bgcolor='#00ff00'><font size='2'>tester no.</td>";
print "<td width='12%'bgcolor='#00ff00'><font size='2'>date</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>time</td>";
print "<td width='11%'bgcolor='#00ff00'><font size='2'>device name</td>";
print "<td bgcolor='#00ff00'><font size='2'>test program</td>";
print "<td bgcolor='#00ff00'><font size='2'>device family</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>smslot</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>die lot</td>";
print "<td width='12%'bgcolor='#00ff00'><font size='2'>loadboard</td>";
print "<td width='12%'bgcolor='#00ff00'><font size='2'>tester </td>";
print "<td width='12%'bgcolor='#00ff00'><font size='2'>serial number</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>tester config</td>";
print "<td width='11%'bgcolor='#00ff00'><font size='2'>smslot</td>";
print "<td bgcolor='#00ff00'><font size='2'>package</td>";
print "<td bgcolor='#00ff00'><font size='2'>socket</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>root means 1</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>root means 2</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>root means 3</td>";
print "</tr>";
print "<tr>";
print "<td bgcolor='#add8e6'><font size='2'>$f1</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f2</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f3</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f4</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f5</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f6</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f7</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f8</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f9</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f10</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f11</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f12</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f13</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f14</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f15</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f16</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f17</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f18</td>";
print "<td bgcolor='#add8e6'><font size='2'>$f19</td>";
print "</tr>";
print "</table>";
print "</body>";
print "<html>";
Comments
Post a Comment