Имеется файл CSV сделанный из экселя с примерно таким содержанием:
Код:
1;несколько_строк_с_разделителями;2;еще_несколько_строк_с_разделителями:.....;n;последняя_строка_с_разделителями;
И перловый скрипт, который берет этот файл и вместо начала строки вставляет <tr>, а вместо ";" вставляет <td> и выводит файл в поток (ну или куда надо) в виде хтмл...
Скрипт:
Код:
#!/usr/bin/perl
$infile = "table.csv";
$outfile = "1.html";
$sym = ";";
$col = 3;
open (FILE,$infile);
@string = <FILE>;
close(FILE);
$n = @string;
open (OUT, ">$outfile");
print OUT "<html>\n<body>\n<table>\n";
$i = 0;
while ($i < $n)
{
print OUT "<tr>\n";
@str = split(/$sym/, @string[$i]);
$j = 0;
while ($j < $col)
{
print OUT "<td>@str[$j]<\/td>\n";
++$j;
}
print OUT "<\/tr>\n";
++$i;
}
print OUT "<\/table>\n<\/body>\n<\/html>\n";
close (OUT);
Чего хочется: чтобы скрипт по запросу из формы (к примеру) выдавал в поток не весь файл, а все от "1" до "2" имли от"n-1" до "n", а все остальное не нужно выдавать....
Мож кто и знает, а?