Perl (csv -> HTML).
Moderator: Grupa pościgowa ;-)
Posty: 1
• Strona 1 z 1
Perl (csv -> HTML).
przez aretai » 16 sierpnia 2007, o 10:54
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
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
- aretai
- Zanim zapytam poszukam odpowiedzi
- Posty: 1
- Dołączył(a): 16 sierpnia 2007, o 10:24
Posty: 1
• Strona 1 z 1
Powrót do PHP, Perl, SQL, CGI, XML...
Kto przegląda forum
Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników
Nowości
Mapa
Zestawienie
RSS