Discussion Wikisource:Classement des index

Le contenu de la page n’est pas pris en charge dans d’autres langues.
La bibliothèque libre.

le script[modifier]

#!/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) ;