Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Bashfr dans votre terminal ? [Perl inside]

tOkeshu

Boujour à tous,

Vous aimez bashfr ? Vous trouvez ça absolument stupide mais vraiment divertissant voir indispensable 😛.

Vous aimez fortune (ie pour ceux qui ne connaissent pas tapez fortune dans votre terminal ) ? Mais certaines blagues vous échappent car l'anglais c'est pas vot' truc ? 😛 et la version française ne vous convient pas :/ ?

Vous aimez cowsay, et vous l'utilisez lors de l'ouverture de votre terminal ?

Et bien je suis fier de vous présenter en exclusivité le 2eme (voir plus bas) fortune dédié à bashfr. 😃

Le projet :

Lorsque je suis arrivé sur le forum j'ai découvert cowsay : un chouet programme.
Mais l'exemple qui était donné me paraissait un tantinet triste. Alors j'ai fait des recherches plus approfondies (cf. man cowsay) et j'ai bidouillé pour avoir un truc plus sympas.
Voici ce que j'utilise actuellement :

fortune | cowsay -e -- -f bunny.cow

Comme vous pouvez le voir j'ai couplé fortune avec cowsay et quelques options.
Ensuite je me suis dit : ça serait terrible si à la place de fortune on aurait les quotes de bashfr.
Et cette idée ma longuement trotté dans la tête. Mais pour réaliser ce type de programme il fallait déjà savoir comment récupérer le contenu d'une page web dans le terminal :/.
J'ai trouvé le salut Dimanche dernier sur cette page

J'ai donc analysé pendant un certain temps le code de la page pour savoir ce que je devais extraire de cette montagne de texte. J'ai donc voulu utiliser les scripts bash.
Mais ça ne marchait pas, même avec des grep, cut ou substr, je n'arrivais pas à obtenir le résultat souhaité. Le lendemain je me suis tourné vers Perl que je ne connaissait pas : je me suis dit chouet tu va pouvoir apprendre un nouveau langage.
Et hier soir j'ai obtenu ce que je voulais. Je publie donc le code source ici pour en faire profiter à tout le monde. 😉
J'espère que certains pourrons m'aider à l'améliorer et si possible ne pas uniquement traiter les citations de bashfr 😃.

Présentation du programme :

Nom : quote-from-bashfr.

Langage : Perl.

Version : 1.0

Réalisation : 24 juillet 2006

Le programme entier comporte 2 fichiers distincts :
D'un coté un script bash qui traite les arguments et qui lance le 2eme fichier.
De l'autre coté un fichier perl qui est le coeur du progamme.

Le code source :

Fichier 1 : quote-from-bashfr.sh

#!/bin/bash

       #*********************************************#
       #              quote-from-bashfr              #
       #              écrit par tOkeshu              #
       #                24 Juil. 2006                #
       #                                             #
       #                 version 1.0                 #
       #                                             #
       #    Récupère les citations de votre site     #
       #              préféré: bashfr.org            #
       #*********************************************#
       

# ----------------------------------------------------------- #
# Ce script prépare le lancement de quote.pl.                 #
# Il accepte 3 choix possible : latest | random | top50       #
# Ils correspondent ou 3 pages de citation de bashfr :        #
#                                                             #
# http://www.bashfr.org/?sort=latest                          #
# http://www.bashfr.org/?sort=random                          #
# http://www.bashfr.org/?sort=top50				           #
#				                                             #
# Le choix par défaut est random.				             #
# ----------------------------------------------------------- #

if [[ $1 = "-latest" || $1 = "-random" || $1 = "-top50" ]]
then
	choix=`expr substr $1 2 7`
else
	choix="random"
fi

GET -a http://www.bashfr.org/?sort=$choix > bashfr
exec quote.pl

fichier 2 : quote.pl

#!/usr/bin/env perl

       #*********************************************#
       #              quote-from-bashfr              #
       #              écrit par tOkeshu              #
       #                24 Juil. 2006                #
       #                                             #
       #                 version 1.0                 #
       #                                             #
       #    Récupère les citations de votre site     #
       #              préféré: bashfr.org            #
       #*********************************************#
       

# ----------------------------------------------------------- #
# Ce script prépare et traite les citations contenues dans le #
# fichier "bashfr" précédement créé.                          #
# ----------------------------------------------------------- #

# On ouvre le fichier "bashfr" précédement créé.
open(FILE,"bashfr") || die ("Erreur d'ouverture de FILE") ;

# Variable d'état (somme-nous dans la citation ? : vrai(>0) ou non(0)).
$in_the_quote=0;

# On parcours tout le fichier par l'intermédiare de FILE.
# A chaque tour de boucle on ne considère qu'une seule ligne ( $_ ).
for (<FILE>) {
	# Condition d'arret (somme nous sortis de la citation ?).
	# SI oui alors on arrete la boucle.
	# Si non on continue à parcourir le fichier.
	if ( ("$_" =~ m!quote-1!) && $in_the_quote!=0 )
	{
	last;
	}

	# Somme nous dans la citation ?
	# Si index trouve quote1 (!=-1) nous venons de trouver la 1ere citation.
	$i=index($_,'quote1');
	if ( $i!=-1 )
	{
		# Changement d'état (dans la citation).
		$in_the_quote=1;
	}

	# Si nous avons changé d'état nous traitons la citation.
	if ( $in_the_quote!=0 )
	{
		# Enlève les balises superflues de début de citation.
		if ( $in_the_quote==1 )
		{
			# Repère le tout début de la citation dans la ligne (après <br />).
			$pos_debut=index($_,'<br />');
			$pos_debut+=6;
			$pos_fin=length($_);
			# Modifie la ligne actuellement considérée en récupérant
			# uniquement ce qui nous intéresse.
			$_=substr ($_,$pos_debut,$pos_fin);
			# Changement d'état (corps et fin de la citation, rien à enlever).
			$in_the_quote=2;
		}
			# Toute la partie suivante vise à enlever le formatage HTML.
			# ( certaines méthodes existent déjà mais ici rien de compliqué ).
			# Comme substituer une chaine longue à une chaine + courte est 
			# fastidieuse, on remplace l'espace des caractère en trop par un
			# marqueur ( ici % ).
			s/<br \/>/%%%%%%/g;

			s/&quot;/%%%%%%\"/g;
			s/&amp;/%%%%%&/g;
			s/&lt;/%%%</g;
			s/&gt;/%%%>/g;
			s/&oelig;/%%%%%%Œ/g;
			s/&nbsp;/%%%%% /g;
			s/&copy;/%%%%%©/g;
			s/&ordf;/%%%%%ª/g;
			s/&deg;/%%%%°/g;
			s/&sup2;/%%%%%²/g;
			s/&Agrave;/%%%%%%%%À/g;
			s/&Atilde;/%%%%%%%%à/g;
			s/&Ccedil;/%%%%%%%%Ç/g;
			s/&Egrave;/%%%%%%%%È/g;
			s/&Eacute;/%%%%%%%%É/g;
			s/&Ecirc;/%%%%%%%Ê/g;
			s/&iuml;/%%%%%%ï/g;
			s/&\#039;/%%%%%\'/g;
			s/&eacute;/%%%%%%%é/g;
			s/&agrave;/%%%%%%%à/g;
			s/&acirc;/%%%%%%â/g;
			s/&ccedil;/%%%%%%%ç/g;
			s/&egrave;/%%%%%%%è/g;
			s/&eacute;/%%%%%%%é/g;
			s/&ecirc;/%%%%%%ê/g;
			s/&euml;/%%%%%ë/g;
			s/&icirc;/%%%%%%î/g;
			s/&ocirc;/%%%%%%ô/g;
			s/&ugrave;/%%%%%%%ù/g;
			s/&ucirc;/%%%%%%û/g;		
						
			# Pour conclure on supprime les marqueurs.
			s/%+//g;
			# On affiche enfin la ligne de citation traitée.
			print "$_ \n";
	}
}

# On ferme le fichier.
close(TOTO);

Installation :

Les deux fichiers doivent être dans le même dossier ou bon vous semblera.

IMPORTANT :
La commande GET (lwp-request) se trouvre dans la libwww de perl (package perl-libwww-perl-version)
Comme son nom l'indique elle fait un un GET sur une page, cela renvoie le code source de la page.

La grande partie du programme étant du Perl, il y aura surement des dépédances à prendre en compte. Si c'est le cas faites moi savoir lequelles.

Si vous souhaitez l'executer depuis n'importe ou dans votre terminal je vous conseille de rajouter dans votre bashrc : (prendre en compte la ligne déjà existante)

PATH=$PATH:/chemin_de_votre_dossier

La variable d'environnement PATH donne au système les différents dossiers à parcourir pour trouver une commande. (ex: lorsque vous faites fortune tous les dossiers contenus dans PATH seront parcouru pour trouver le fichier correspondant, ou que vous soyez. Pour plus d'infos : echo $PATH ).

Si vous voulez le lancer à l'ouverture d'un terminal ajouter au bashrc :

quote-from-bashfr.sh

Quelques variantes :

quote-from-bashfr.sh -random | cowsay -W 100
#quote.pl garde la dernière quote affichée.
quote.pl | cowsay -f bunny.cow -W 100

Informations supplémentaires :

Sachez que le principe du programme est globalement assez lourd (ou récupère l'intégralité de la source html). La vitesse d'affichage dépend donc obligatoirement de la connection :/.

Si d'autres personnes ont des idées à proposées pour optimiser le programme faites le moi savoir.

Si jamais vous trouvez encore des résidus de format html (ex:  , > etc...) faites le moi savoir et donner la référence de la quote (faites une recherche à l'aide des pseudo sur www.bashfr.org)

La source du fichier quote.pl est très commentée n'hésitez pas à y jeter un coup d'œil. 😉

SamheG

Inutile ... donc INDISPENSABLE 😃
Merci

Smarter

Si tu avais regarder 30 secondes la page d'accueil tu aurais vu ça 😛

tOkeshu

Oui effectivement je n'avais jamais vu, pourtant j'ai longtemps et souvent traîné sur le site 😛.

Mais dit moi, avec ces fortunes peux tu avoir la citation ayant le plus de voix (top50) ou encore le tout dernier ajout ? Je ne crois pas.
En plus ce script peut déjà servir de base pour récupérer d'autres citations sur d'autres sites moins accessible, non ?
Enfin, lorsqu'on a fini d'installer nos deux pauvres fichiers, il n'y a rien à mettre à jour (seulement si la structure fondamentale du site change) 😃.

Pour les autres, ceux qui veulent simplement utiliser le fortune de bashfr, sur cette page tout est expliqué.

Mais maintenant que je connais l'existence d'une telle page cela va me permettre d'améliorer mon script au moins pour le random 😉.

Shyne

#1337 (+) 5269/5685 (-)
<Danao> euh, i am french so excuse my langage...
<Krost> ^^
<Krost> I'm American so excuse my president.

:lol:

iuchiban

:lol::lol::lol:

109

Ah, merci pour ce message qui m'a bien fait rerire à relire bashfr 😃

* karmAkoma has joined #aeria
<titanius--> Clem!
<titanius--> ca va?
<karmAkoma> un peu perturbé
<karmAkoma> je viens de retrouver mon chat dans le grenier
<titanius--> cool^^
<33fran> ca faisait combien de temps que tu l'avais perdu?
<karmAkoma> 9 ans
<titanius--> ...

Bloodshed

Salut, y'a aussi le flux RSS de BashFR que tu peux traiter avec :
http://search.cpan.org/dist/XML-RSS/

le flux : http://www.bashfr.org/quotes.xml

ca sera moins lourd et sûr de pas changer (contrairement à la page HTML).

Bonne soirée.

tOkeshu

Voili voilou, je reviens avec une nouvelle version de mon petit programme 😃 :

Améliorations :

Amélioration majeure, le programme n'est plus constitué que d'un seul fichier. En effet, la raison principale pour laquelle il était scindé en 2 parties était que je ne savais pas comment récupérer le contenu html directement dans perl.
J'utilisais donc un shell-script, est faisais tout passer dans un fichier (très lourd tout ça).
Mais maintenant, c'est réglé, je passe directement par une variable, et la transforme en tableau.
Je pense donc que cette optimisation majeure rend plus rapide le processus. Néanmoins cela est toujours un petit peu lent :/.

Toujours dans le registre des améliorations nous avons :

-Affichage du numéro de citation
-Possibilité de sélectionner les citations au delà de la première qui est contenue dans la page. (très utile pour un -latest ou un -top50).
-Sélection d'une quote en particulier parmi toutes celles existantes.

Lancement du programme :

Comme dis plus haut, maintenant, pour lancer le programme il suffit juste de lancer quote.pl
Concernant les arguments, nous avons :

-latest | -random | -top50 (même comportement qu'avant)
-quote x (avec x>0) Permet de sélectionner une quote en particulier parmi toutes celles existantes.
-n x (avec x>0) sélectionne la citation x dans la page. (à combiner avec -latest | -random | -top50 ).

Code source :

#!/usr/bin/env perl

       #*********************************************#
       #              quote-from-bashfr              #
       #              écrit par tOkeshu              #
       #                02 août. 2006                #
       #                                             #
       #                 version 1.1                 #
       #                                             #
       #    Récupère les citations de votre site     #
       #              préféré: bashfr.org            #
       #*********************************************#
       

# ----------------------------------------------------------- #
# Ce script prépare et traite les citations du site Bashfr.org#
# Il accepte 5 arguments possible :                           #
# -latest | -random | -top50                                  #
# Ils correspondent ou 3 pages de citation de bashfr :        #
#                                                             #
# http://www.bashfr.org/?sort=latest                          #
# http://www.bashfr.org/?sort=random                          #
# http://www.bashfr.org/?sort=top50				           #
#                                                             #
# -quote x (avec x>0)                                         #
# Correspond à la page : http://www.bashfr.org/?x             #
#                                                             #
# -n est un argument qui est utilisé avec les 3 premiers:     #
# Il permet de selectionner une quote parmis les 3 différentes#
# pages énoncées. (ex: -latest -n 2 )                         #
#				                                             #
# Le choix par défaut est random.	                         #
# ----------------------------------------------------------- #

# Variable qui permet de décompter le nombre de citations parcourues.
$quote_number=1;

# On vérifie les arguments.
# Cas génériques : top50, aléatoire, et dernier ajout.
if ( $ARGV[0] eq "-latest" || $ARGV[0] eq "-random" || $ARGV[0] eq "-top50" )
{
	$choix=substr ($ARGV[0],1,7);
	$choix="sort="."$choix";
	
# Argument qui permet d'afficher une citation en particulier.
}elsif ( $ARGV[0] eq "-quote" )
{
	$choix="$ARGV[1]";
	
# Argument par défaut.
}else{
	$choix="sort=random";
	
}

# Argument qui permet de selectionner une citation en particulier avec 
# les arguments précédents. (ex : quote.pl -latest -n 2 )
if ( $ARGV[1] eq "-n" )
{
	$quote_number=$ARGV[2];
}

# Variable d'état (somme-nous dans une citation ? : vrai(>0) ou non(0)).
$in_the_quote=0;

# On récupère directement la page HTML.
use LWP::Simple;
$url="http://www.bashfr.org/?"."$choix";
$source = get($url);
# On récupère chaque ligne dans un tableau.
@tab = split(/\n/,$source);

# On parcours tout le tableau.
# A chaque tour de boucle on ne considère qu'une seule ligne ( $_ ).
 foreach $_ (@tab) {
	# Condition d'arret (somme nous sortis de la citation ?).
	# SI oui alors on arrete la boucle.
	# Si non on continue à parcourir le fichier.
	if ( ("$_" =~ m!div!) && $in_the_quote!=0 )
	{
	last;
	}

	# Somme nous dans la citation ?
	# Si index trouve quote1 ou quote-1 (!=-1) nous venons de trouver une citation.
	$i=index($_,'quote1');
	$j=index($_,'quote-1');
	if ( $i!=-1 || $j!=-1 )
	{
		if ( $quote_number == 1 )
		{
			# Changement d'état (dans la citation).
			$in_the_quote=1;
		}else 
		{
			$quote_number--;
		}
	}

	# Si nous avons changé d'état nous traitons la citation.
	if ( $in_the_quote!=0 )
	{
		# Enlève les balises superflues de début de citation.
		if ( $in_the_quote==1 )
		{
			$_ =~ m/\?([0-9]+)/g;
			print "Quote n°$1\n\n";
			# Repère le tout début de la citation dans la ligne (après <br />).
			$pos_debut=index($_,'<br />');
			$pos_debut+=6;
			$pos_fin=length($_);
			# Modifie la ligne actuellement considérée en récupérant
			# uniquement ce qui nous intéresse.
			$_=substr ($_,$pos_debut,$pos_fin);
			# Changement d'état (corps et fin de la citation, rien à enlever).
			$in_the_quote=2;
		}
			# Toute la partie suivante vise à enlever le formatage HTML.
			# ( certaines méthodes existent déjà mais ici rien de compliqué ).
			# Comme substituer une chaine longue à une chaine + courte est 
			# fastidieuse, on remplace l'espace des caractère en trop par un
			# marqueur ( ici % ).
			s/&quot;/%%%%%%\"/g;
			s/&amp;/%%%%%&/g;
			s/&lt;/%%%</g;
			s/&gt;/%%%>/g;
			s/&oelig;/%%%%%%Œ/g;
			s/&nbsp;/%%%%% /g;
			s/&copy;/%%%%%©/g;
			s/&not;/%%%%¬/g;
			s/&ordf;/%%%%%ª/g;
			s/&deg;/%%%%°/g;
			s/&sup2;/%%%%%²/g;
			s/&Agrave;/%%%%%%%%À/g;
			s/&Atilde;/%%%%%%%%à/g;
			s/&Ccedil;/%%%%%%%%Ç/g;
			s/&Egrave;/%%%%%%%%È/g;
			s/&Eacute;/%%%%%%%%É/g;
			s/&Ecirc;/%%%%%%%Ê/g;
			s/&iuml;/%%%%%%ï/g;
			s/&\#039;/%%%%%\'/g;
			s/&eacute;/%%%%%%%é/g;
			s/&agrave;/%%%%%%%à/g;
			s/&acirc;/%%%%%%â/g;
			s/&ccedil;/%%%%%%%ç/g;
			s/&egrave;/%%%%%%%è/g;
			s/&eacute;/%%%%%%%é/g;
			s/&ecirc;/%%%%%%ê/g;
			s/&euml;/%%%%%ë/g;
			s/&icirc;/%%%%%%î/g;
			s/&ocirc;/%%%%%%ô/g;
			s/&ugrave;/%%%%%%%ù/g;
			s/&ucirc;/%%%%%%û/g;	
			s/<br \/>/%%%%%\n/g;						
			# Pour conclure on supprime les marqueurs.
			s/%+//g;
			# On affiche enfin la ligne de citation traitée.
			print "$_ \n";
	}
}

J'attends de ceux qui l'utilisent ou ceux qui veulent le tester des retours constructifs (si possible 😉).
Si par ailleurs vous avez une petite idée d'amélioration n'hésitez pas !

Pour info je prévois une petite update, j'espère que je pourrais la réaliser 🙂.

Bloodshed

Salut ;

C'est très bien, pour mes suggestions :
- Utiliser le flux RSS plutôt que la page HTML serait un gain de temps au niveau d'exécution et une assurance de pérennité.
- Insérer une page de manuel (tout programme console se doit d'en avoir une ! 😉)
http://larkine.developpez.com/cours/unix/manpage/
- Créer un programme d'installation .deb pour les nouveaux qui voudraient profiter de ce programme, et pourquoi pas un frontend GTK+ quand le programme sera plus évolué (pas sûr que ce soit nécessaire, car là, autant ouvrir son browser).

iuchiban

Allez, on déterre un post pas si vieux que ça.
Ben je viens de tester le quotes.pl en l'intégrant à ma console :

- ouvrir une console
- gedit quotes.pl
- copier coller le code du script
- Ctrl + S
- Alt + F4
- gedit /home/NomDeLUtilisateur/.bashrc
- ajouter "perl quotes.pl -random" à la fin

A chaque ouverture de console vous aurez une citation de bash.

Mes impressions :
- ça marche
- j'ai des lignes sautées entre chaque ligne de citation -> pas top
- est il possible d'avoir un random >0 pour avoir que les citations qui sont bien?

En tous cas, bravo.

iuchiban

Bon ben en fait c'était plutôt simple à changer.

#!/usr/bin/env perl

       #*********************************************#
       #              quote-from-bashfr              #
       #              écrit par tOkeshu              #
       #                02 août. 2006                #
       #                                             #
       #                 version 1.1                 #
       #                                             #
       #    Récupère les citations de votre site     #
       #              préféré: bashfr.org            #
       #*********************************************#
       

# ----------------------------------------------------------- #
# Ce script prépare et traite les citations du site Bashfr.org#
# Il accepte 6 arguments possible :                           #
# -latest | -random | -random2 | -top50                                  #
# Ils correspondent ou 4 pages de citation de bashfr :        #
#                                                             #
# http://www.bashfr.org/?sort=latest                          #
# http://www.bashfr.org/?sort=random                          #
# http://www.bashfr.org/?sort=random2                          #
# http://www.bashfr.org/?sort=top50                           #
#                                                             #
# -quote x (avec x>0)                                         #
# Correspond à la page : http://www.bashfr.org/?x             #
#                                                             #
# -n est un argument qui est utilisé avec les 3 premiers:     #
# Il permet de selectionner une quote parmis les 3 différentes#
# pages énoncées. (ex: -latest -n 2 )                         #
#                                                             #
# Le choix par défaut est random.                             #
# ----------------------------------------------------------- #

# Variable qui permet de décompter le nombre de citations parcourues.
$quote_number=1;

# On vérifie les arguments.
# Cas génériques : top50, aléatoire, et dernier ajout.
if ( $ARGV[0] eq "-latest" || $ARGV[0] eq "-random" || $ARGV[0] eq "-top50" || $ARGV[0] eq "-random2" )
{
    $choix=substr ($ARGV[0],1,8);
    $choix="sort="."$choix";
    
# Argument qui permet d'afficher une citation en particulier.
}elsif ( $ARGV[0] eq "-quote" )
{
    $choix="$ARGV[1]";
    
# Argument par défaut.
}else{
    $choix="sort=random2";
    
}

# Argument qui permet de selectionner une citation en particulier avec 
# les arguments précédents. (ex : quote.pl -latest -n 2 )
if ( $ARGV[1] eq "-n" )
{
    $quote_number=$ARGV[2];
}

# Variable d'état (somme-nous dans une citation ? : vrai(>0) ou non(0)).
$in_the_quote=0;

# On récupère directement la page HTML.
use LWP::Simple;
$url="http://www.bashfr.org/?"."$choix";
$source = get($url);
# On récupère chaque ligne dans un tableau.
@tab = split(/\n/,$source);

# On parcours tout le tableau.
# A chaque tour de boucle on ne considère qu'une seule ligne ( $_ ).
 foreach $_ (@tab) {
    # Condition d'arret (somme nous sortis de la citation ?).
    # SI oui alors on arrete la boucle.
    # Si non on continue à parcourir le fichier.
    if ( ("$_" =~ m!div!) && $in_the_quote!=0 )
    {
    last;
    }

    # Somme nous dans la citation ?
    # Si index trouve quote1 ou quote-1 (!=-1) nous venons de trouver une citation.
    $i=index($_,'quote1');
    $j=index($_,'quote-1');
    if ( $i!=-1 || $j!=-1 )
    {
        if ( $quote_number == 1 )
        {
            # Changement d'état (dans la citation).
            $in_the_quote=1;
        }else 
        {
            $quote_number--;
        }
    }

    # Si nous avons changé d'état nous traitons la citation.
    if ( $in_the_quote!=0 )
    {
        # Enlève les balises superflues de début de citation.
        if ( $in_the_quote==1 )
        {
            $_ =~ m/\?([0-9]+)/g;
            print "\nQuote n°$1\n\n";
            # Repère le tout début de la citation dans la ligne (après <br />).
            $pos_debut=index($_,'<br />');
            $pos_debut+=6;
            $pos_fin=length($_);
            # Modifie la ligne actuellement considérée en récupérant
            # uniquement ce qui nous intéresse.
            $_=substr ($_,$pos_debut,$pos_fin);
            # Changement d'état (corps et fin de la citation, rien à enlever).
            $in_the_quote=2;
        }
            # Toute la partie suivante vise à enlever le formatage HTML.
            # ( certaines méthodes existent déjà mais ici rien de compliqué ).
            # Comme substituer une chaine longue à une chaine + courte est 
            # fastidieuse, on remplace l'espace des caractère en trop par un
            # marqueur ( ici % ).
            s/&quot;/%%%%%%\"/g;
            s/&amp;/%%%%%&/g;
            s/&lt;/%%%</g;
            s/&gt;/%%%>/g;
            s/&oelig;/%%%%%%Œ/g;
            s/&nbsp;/%%%%% /g;
            s/&copy;/%%%%%©/g;
            s/&not;/%%%%¬/g;
            s/&ordf;/%%%%%ª/g;
            s/&deg;/%%%%°/g;
            s/&sup2;/%%%%%²/g;
            s/&Agrave;/%%%%%%%%À/g;
            s/&Atilde;/%%%%%%%%à/g;
            s/&Ccedil;/%%%%%%%%Ç/g;
            s/&Egrave;/%%%%%%%%È/g;
            s/&Eacute;/%%%%%%%%É/g;
            s/&Ecirc;/%%%%%%%Ê/g;
            s/&iuml;/%%%%%%ï/g;
            s/&\#039;/%%%%%\'/g;
            s/&eacute;/%%%%%%%é/g;
            s/&agrave;/%%%%%%%à/g;
            s/&acirc;/%%%%%%â/g;
            s/&ccedil;/%%%%%%%ç/g;
            s/&egrave;/%%%%%%%è/g;
            s/&eacute;/%%%%%%%é/g;
            s/&ecirc;/%%%%%%ê/g;
            s/&euml;/%%%%%ë/g;
            s/&icirc;/%%%%%%î/g;
            s/&ocirc;/%%%%%%ô/g;
            s/&ugrave;/%%%%%%%ù/g;
            s/&ucirc;/%%%%%%û/g;    
            s/<br \/>/%%%%%\n/g;                        
            # Pour conclure on supprime les marqueurs.
            s/%+//g;
            # On affiche enfin la ligne de citation traitée.
            print "$_ ";
    }
}
print "\n";

Ce que j'ai changé :
- possibilité d'avoir une quote au hasard parmi celles notées positivement (-random2)
- ajout d'une ligne vide avant le numéro de quote
- suppression des lignes entre les quotes
- ajout d'une ligne vide après les quotes pour un soucis de lisibilité

Ce qui donne par exemple :

alban@nightprowler:~$ perl quotes.pl -random2

Quote n°780

<spacie> ok je te le mets n'importe où ?
<Corsac> dtc
<spacie> Unknown directory
<Corsac> d\t\c\
<spacie> Unknown directum

alban@nightprowler:~$

rahancrao

Le script de tOkeshu tourne à partir de mon .bashrc depuis hier.
Depuis je passe mon temps à ressourcer mon profile en rigolant comme un âne 😃

Faudra que j'essaye le tiens iuchiban.

iuchiban

Ben en fait, c'est le script de tokeshu que j'ai remanié pour qu'il corresponde mieux à mes attentes.
Donc tu peux maintenant choisir une quote au hasard parmi celles notées positivement (ça évite les gros boulets) en utilisant -random2 comme option.

rahancrao

Je note.

Et je dis : autant d'ingéniosité pour un truc aussi débile, ca vaut le coup. Merci à tous les deux.

[supprimé]

Personnellement je me suis fait un script en python :

Il vous faut d'abord télécharger http://www.bashfr.org/bashfr_fortunes et ensuite le renommer en quotes.txt

#!/usr/bin/python
import random

quote = open("/home/herlock/prog/quotes/quotes.txt").read()
# creation d'une liste
lst = quote.split('%')
# melange de la liste
random.shuffle(lst)
# affichage du premier element
print lst[0]

Après cela vous ajouté à la fin de votre fichier .bashrc

PATH=$PATH:/home/herlock/prog/quotes
quote.py

Changez les path et le tour est joué.

tOkeshu

Ohhh, Quelle belle surprise !

Je suis content que certaines personnes utilisent ce script. Surtout quand elles contribuent à l'amélioration de celui-ci 😉 !

Pouvoir sélectionner des quotes bien notées, ça c'est ce que j'appelle une bonne idée !

C'est dommage que je n'ai pas mis le nez dans ce bout de code depuis longtemps, mais peut-être que je vais m'y remettre !

Donc résumons notre affaire :

Ce script prépare et traite les citations du site Bashfr.org
Il accepte 5 arguments possible :
-latest | -random | -random2 | -top50
Ils correspondent aux 4 pages de citation de bashfr :
http://www.bashfr.org/?sort=latest
http://www.bashfr.org/?sort=random
http://www.bashfr.org/?sort=random2
http://www.bashfr.org/?sort=top50

-quote x (avec x>0)
Correspond à la page : http://www.bashfr.org/?x

-n est un argument qui est utilisé avec les 4 premiers:
Il permet de sélectionner une quote parmi les 3 différentes
pages énoncées. (ex: -latest -n 2 )

Le choix par défaut est random2.

Je te remercie donc iuchiban pour cette heureuse contribution.

Maintenant concernant herlock, dis moi si je me trompe mais je pense que ton script est inutile !
Pourquoi ? et bien nous avons déjà parlé des fortunes de bashfr dans ce topic (voir plus haut) et avec les fortunes tu peux justement sélectionner une quote au hasard !
Ton script fait donc la même choses que les fortunes.

De plus ce script donne bien plus de possibilités qu'un simple fichier fortunes : pas besoin d'actualisation régulière, il est adapté aux fonctionnalités du site bashfr.
C'est vrai ces fonctions ont un prix et des limites : besoin de se connecter à internet, processus lent.
Maintenant ce que l'on peut envisager, c'est une simple mise à jour d'un fichier fortune par le Perl.
ça permettrais sûrement d'accélérer le processus...
De plus il reste encore à faire une page man. Ce qui me donne encore du boulot 🙂.

Merci encore à tous ceux qui s'intéressent à ce script. Et... vive Bashfr.

Asumbaa

Salut,

J'ai un souci avec les quotes affichées dans la console, les accents sont pas dans le bon encodage... Vous sauriez d'où ça vient ?

lepirlouit

j'utilise ton code sur mon serveur,

des fois, en lisant la quote, j'oublie ce que j'étais venu faire

Skippy le Grand Gourou

tOkeshu a écritSi par ailleurs vous avez une petite idée d'amélioration n'hésitez pas !

lynx --dump --display_charset=utf8 http://www.bashfr.org/?sort=random2 | awk '$1~"#" && $0!~"RSS" { getline; while ($1!~"#") { print $0; getline;}; exit}'

😉

Page suivante »