Strona 1 z 1

Perl (csv -> HTML).

PostNapisane: 16 sierpnia 2007, o 10:54
przez aretai
Witam,

Mam małą prośbę. Mam plik tekstowy (csv) 5 kolumn i 7 wierszy. Chciałbym wrzucić je na strone posortowane względem trzeciej kolumny (przedmiot: Biologia, Matematyka, etc.). Jak dotąd udało mi się to jedynie zrobić statycznie i nieposortowane:
#!/usr/bin/perl
print "content-type: text/html \n\n"; #The header

$HTML = "test.txt";
open (HTML) or die "Can't open the file!";
@fileinput = <HTML>;
@title = split(',',$fileinput[0]);
@row1 = split(',',$fileinput[1]);
@row2 = split(',',$fileinput[2]);
@row3 = split(',',$fileinput[3]);
@row4 = split(',',$fileinput[4]);
@row5 = split(',',$fileinput[5]);
@row6 = split(',',$fileinput[6]);
print "<table border='1' align='center'>

etc.

lub też posortowane, ale nie z pliku:

#!/usr/bin/perl
print "content-type: text/html \n\n"; #The header

$arr[0] = ["wartość1", etc];
i kolejne wartości dla kolejnych wierszy

# sort by last name
@arr5 = sort{$a->[1] cmp $b->[1]} @arr;
foreach (@arr5) { print "@{$_} <br>" }

Z góry dziękuję za pomoc

Plik:
Imię,Wiek,Przedmiot,Ocena,Data
Tomasz,18,Mat,5,23/07/2007
Adam,19,Mat,,01/07/2007
Grzegorz,19,Mat,3,23/07/2007
Justyna,17,Biol,3,06/06/2007
Jan,20,Mat,4,
Barbara,,Biol,3,23/07/2006

Pozdrawiam
Aretai