Discussion Wikisource:Classement des index

le script

#!/usr/bin/perl


# obtenir la page contenant la liste des livres
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Terminé -O /tmp/liste1` ;
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Valider -O /tmp/liste2` ;
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Relire -O /tmp/liste3` ;
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Formater -O /tmp/liste4` ;
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Text_layer -O /tmp/liste5` ;
`wget http://fr.wikisource.org/wiki/Wikisource:Livres_disponibles_en_mode_page/Compléter -O /tmp/liste6` ;
print "wget OK\n" ;

`cat /tmp/liste1 /tmp/liste2 /tmp/liste3 /tmp/liste4 /tmp/liste5 /tmp/liste6 > /tmp/liste` ;

open (LISTEDJVU, "/tmp/liste");
open (OUTPUT, '>/tmp/output.txt');
print OUTPUT "{| class=\"sortable\"  border=\"1\"\n" ;
print OUTPUT "|-\n" ;
print OUTPUT "| livre || '''à travailler''' || <span class=\"quality0\">vide</span>  || <span class=\"quality1\">à corriger</span> || <span class=\"quality3\">à valider</span> || <span class=\"quality2\">à problème</span> || '''<span class=\"quality4\">fini</span>''' \n" ;


# obtenir la liste des livres
while ($line = <LISTEDJVU>) {
  while ($line =~ m/href="\/wiki\/Livre:(.*?)"/g ) {
    $bookext = $1 ;
    print "$bookext\n" ;
    $bookwww = "http://fr.wikisource.org/wiki/Livre:$bookext" ;

                `wget "$bookwww" -q -O /tmp/bookpage` ;
                open (BOOKPAGE, "/tmp/bookpage");
                $vide = 0 ;
                $rouge = 0 ;
                $bleu = 0 ;
                $jaune = 0 ;
                $vert = 0 ;
                while ($line = <BOOKPAGE>) {
                        if ($line =~ m/padding-left/) {
                                # une des 5 lignes suivantes contient la liste des pages ??
                                if ($line !~ m/class=/) {
                                        $line = <BOOKPAGE> ;
                                }
                                if ($line !~ m/class=/) {
                                        $line = <BOOKPAGE> ;
                                }
                                if ($line !~ m/class=/) {
                                        $line = <BOOKPAGE> ;
                                }
                                if ($line !~ m/class=/) {
                                        $line = <BOOKPAGE> ;
                                }
                                # print "$line \n" ;
                                $vide += ($line =~ s/class="new"//g) ;
                                $rouge += ($line =~ s/class="quality1"//g) ;
                                $bleu += ($line =~ s/class="quality2"//g) ;
                                $jaune += ($line =~ s/class="quality3"//g) ;
                                $vert += ($line =~ s/class="quality4"//g) ;
                        }
                }

                $totaltodo = $vide + $rouge + $jaune + $bleu ;
                print OUTPUT "|-\n" ;
                print OUTPUT "| [[Livre:$bookext]] || $totaltodo || $vide || $rouge || $jaune || $bleu || $vert\n" ;

                close (BOOKPAGE);



  }
}


close (LISTEDJVU);
print OUTPUT "|}\n" ;
close (OUTPUT) ;