Perl + CSV.... поможите, если можете.

Unholy · 26.02.2002, 08:57

Имеется файл 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", а все остальное не нужно выдавать....

Мож кто и знает, а?