Как преобразовать CSV в таблицу HTML с помощью Perl?
В моем коде я хочу просмотреть все данные из CSV в виде таблицы, но он отображает только последнюю строку. А как насчет строк 1 и 2? Вот данные:
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
Вот код:
#! /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 not open $file");
while ($line=<F>)
{
($f1,$f2,$f3,$f4,$f5,$f6,$f7,$f8,$f9,$f10,$f11,$f12,$f13,$f14,$f15,$f16,$f17,$f18,$f19)= split ',',$line;
}
close(F);
print "<HTML>";
print "<head>";
print "<body bgcolor='#4682B4'>";
print "<title>FUSION SHIFT 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 CAUSE 1</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>ROOT CAUSE 2</td>";
print "<td width='13%'bgcolor='#00ff00'><font size='2'>ROOT CAUSE 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>";
Улучшение производительности загрузки с помощью Google Tag Manager и атрибута Defer
В настоящее время производительность загрузки веб-сайта имеет решающее значение не только для удобства пользователей, но и для ранжирования в...
Введение в CSS
CSS является неотъемлемой частью трех основных составляющих front-end веб-разработки.
Как выровнять Div по центру?
Чтобы выровнять элемент <div>по горизонтали и вертикали с помощью CSS, можно использовать комбинацию свойств и значений CSS. Вот несколько методов,...
Навигация по приложениям React: Исчерпывающее руководство по React Router
React Router стала незаменимой библиотекой для создания одностраничных приложений с навигацией в React. В этой статье блога мы подробно рассмотрим...
Система управления парковками с использованием HTML, CSS и JavaScript
Веб-сайт по управлению парковками был создан с использованием HTML, CSS и JavaScript. Это простой сайт, ничего вычурного. Основная цель -...
Toor - Ангулярный шаблон для бронирования путешествий
Toor - Travel Booking Angular Template один из лучших Travel & Tour booking template in the world. 30+ валидированных HTML5 страниц, которые помогут...
0
0
11 118
7
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 7
Позвольте мне продемонстрировать на небольшом примере.
my $f;
while ($line = <F>) {
$f = $line;
}
print $f;
Приведенный выше код будет читать каждую строку файла F, назначая каждую строку переменной $f. Каждый раз, когда он назначает новую строку, предыдущая строка перезаписывается. Когда он достигает конца файла, он один раз распечатывает значение $f.
my $f;
while ($line = <F>) {
$f = $line;
print $f;
}
В приведенном выше коде print находится внутри цикла, поэтому print будет работать для каждой строки ввода. Вы захотите внести аналогичную модификацию в свой код, чтобы получить ожидаемый результат.
Вам нужно вывести строки таблицы внутри цикла while, так как именно там вы читаете строки.
Так что измените код, чтобы он
- выводит заголовки таблицы
- читает файл построчно, выводя строки таблицы
- выводит нижний колонтитул таблицы
Вот как может выглядеть ваш цикл, если его немного упростить ...
while ($line=<F>)
{
print "<tr>";
my @cells= split ',',$line;
foreach my $cell (@cells)
{
print "<td>$cell</td>";
}
print "</tr>";
}
Причина, по которой вы видели только последнюю строку, заключалась в том, что вы запускали печать после чтения всего файла и отбрасывали каждую строку при чтении следующей.
Честно говоря, в этом коде есть много ошибок. Я упомяну пару и обращусь к ним во фрагменте кода ниже.
- Не анализируйте данные CSV самостоятельно (разделение). Используйте Текст :: CSV или - если вам нужна лучшая производительность - Текст :: CSV_XS.
- Ваш HTML недействителен. Вы не закрываете все теги и, в частности, заголовок должен быть в заголовке, но не в теле.
- Вы должны использовать модуль шаблонов для вставки табличных данных на веб-страницу. Примеры: HTML :: Шаблон или Набор инструментов для шаблонов.
- По крайней мере, используйте функции, чтобы абстрагироваться от избыточного кода.
- Еще лучше использовать тот факт, что форматирование данных также является данными. Вот почему к нему следует относиться как к такому.
- Если вы когда-нибудь обнаружите, что объявляете множество переменных с прикрепленными числами (
$f1,$f2, ...), вам действительно нужен массив:@fields = split /,/, $line;
use strict;
use warnings;
use CGI qw();
use Text::CSV;
my $cgi = CGI->new();
print $cgi->header();
my $file ='MyFile.txt';
# should really use a templating module from CPAN,
# but let's take it step by step.
# Any of the following would fit nicely:
# - Template.pm (Template Toolkit)
# - HTML::Template, etc.
my $startHtml = <<'HERE';
<html>
<head> <title>FUSION SHIFT REPORT</title> </head>
<body bgcolor = "#4682B4">
<div align = "left">
<table cellpadding = "1" cellspacing = "1" border = "1" bordercolor = "black" width = "100%">
HERE
my $endHtml = <<'HERE';
</table>
</body>
<html>
HERE
my @columns = (
{ name => 'RECORD No.', width => 12 },
{ name => 'TESTER No.', width => 12 },
{ name => 'DATE', width => 12 },
{ name => 'TIME', width => 13 },
{ name => 'DEVICE NAME', width => 11 },
{ name => 'TEST PROGRAM' },
{ name => 'DEVICE FAMILY' },
{ name => 'SMSLOT', width => 13 },
{ name => 'DIE LOT', width => 13 },
{ name => 'LOADBOARD', width => 12 },
{ name => 'TESTER', width => 12 },
{ name => 'SERIAL NUMBER', width => 12 },
{ name => 'TESTER CONFIG', width => 13 },
{ name => 'SMSLOT', width => 11 },
{ name => 'PACKAGE' },
{ name => 'SOCKET' },
{ name => 'ROOT CAUSE 1', width => 13 },
{ name => 'ROOT CAUSE 2', width => 13 },
{ name => 'ROOT CAUSE 3', width => 13 },
);
my $csv = Text::CSV->new();
open my $fh, '<', $file
or die "Could not open file '$file': $!"; # should generate a HTML error here
# print header
print $startHtml;
print_table_header(\@columns);
while (defined(my $line = <$fh>)) {
$csv->parse($line);
# watch out: This may be "tainted" data!
my @fields = $csv->fields();
@fields = @fields[0..$#columns] if @fields > @columns;
print_table_line(\@fields);
}
close $fh;
print $endHtml;
sub print_table_header {
my $columns = shift;
print "<tr>\n";
foreach my $column (@$columns) {
my $widthStr = (defined($column->{width}) ? ' width = "'.$column->{width}.'"' : '');
my $colName = $column->{name};
print qq{<td$widthStr bgcolor = "#00FF00"><font size = "2">$colName</font></td>\n};
}
print "</tr>\n";
}
sub print_table_line {
my $fields = shift;
print "<tr>\n";
foreach my $field (@$fields) {
print qq{<td bgcolor=\"#ADD8E6\"><font size = "2">$field</font></td>\n};
}
print "</tr>\n";
}
Ответ принят как подходящий
HTML :: Template сделает вашу жизнь намного проще. Вот мой урезанный шаблон.
#!/usr/local/bin/perl
use strict;
use warnings;
use HTML::Template;
my @table;
while (my $line = <DATA>){
chomp $line;
my @row = map{{cell => $_}} split(/,/, $line);
push @table, {row => \@row};
}
my $tmpl = HTML::Template->new(scalarref => \get_tmpl());
$tmpl->param(table => \@table);
print $tmpl->output;
sub get_tmpl{
return <<TMPL
<html>
<TMPL_LOOP table>
<tr>
<TMPL_LOOP row>
<td><TMPL_VAR cell></td></TMPL_LOOP>
</tr></TMPL_LOOP>
</html>
TMPL
}
__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
Закройте свои теги <font>. То, что браузер справится с их отсутствием, не означает, что их не стоит включать.
$f1,$f2,$f3,$f4
Каждый раз, когда вы видите такой код, должен сработать сигнал тревоги. Используйте массив.
Это не самое надежное решение, на самом деле оно имеет довольно неприятные сбои, если у вас есть запятые внутри значений, но оно помогло мне:
(Данные CSV находятся в переменной с именем $ content)
$content =~ s#\n#</td></tr><tr><td>#g;
$content =~ s#,#</td><td>#g;
$content = "<table><tr><td>$content</td></tr></table>";
Другие вопросы по теме
Почему метод отката недоступен для дескриптора DBI?
Как мне использовать сырые сокеты в Perl?
Как лучше всего очистить экран в Perl?
Что делает "select ((select (s), $ | = 1) [0])" в Perl?
Как эффективно очистить файл Perl DBM?
Как я узнаю, что система включена?
Как использовать константы из модуля Perl?
Как лучше всего документировать код Perl?
Как я могу сохранить несколько значений в хеш-таблице Perl?
Замените звездочку (*), используя регулярное выражение Perl
Похожие вопросы
Есть ли идиома, позволяющая элементу прокручиваться вместе со страницей только до тех пор, пока он не попадет в верхнюю часть браузера?
Строгая проверка и фильтрация HTML в PHP
Img onload не работает в IE7
Как отправить электронное письмо в формате HTML с помощью Microsoft Enterprise Library?
Любой бесплатный HTML-слайсер изображений?
Насколько сложно освоить семантическую разметку и хороший CSS?
Является ли GET или POST более безопасным, чем другой?
Проверка навыков HTML / CSS / Javascript при приеме на работу
SSI и XSL
Почему атрибут минимальной ширины CSS не заставляет div иметь указанную минимальную ширину?
Это должен быть комментарий. Он не пытается ответить на вопрос.