exemples

La classe iterd parcourt une arborescence de répertoires et appelle une fonction pour chacun des fichiers trouvés. ( Il n' y a pas pour l'instant de filtres sur le nom des fichiers ). Ses méthodes sont :

setFunction : Pour donner le nom de la fonction qui sera appelée

setData : Pour passer des données à la fonction

traverse : Pour lance ler parcours.

Exemple :

use iterd;
.
.
my $rando = new iterd();
# On veux utiliser la fonction qui s'appelle mafonc sur chaque fichier.
$rando->setFunction ( mafonc ) ;
# On lui passe des données si nécessaire
$rando->setData ( "data" =>"une donnée quelconque" ) ;
# On parcours del'arborescence.
$rando->traverse("/home/tal/filsRSS");

....

sub mafonc {

my ($file,$data) = @_;
# Faire qqche avec $file qui est un nom de fichier.
...

}

La classe filtreur encapsule un parseur xml pour récupérer le contenu de balises dans un document XML. On peut l'utiliser si on veut récupérer le contenu texte de balises.(*) Ses méthodes sont :

reset : initialise le traitement
setFile : sert à spécifier le nom du fichier xml que l'on veut analyser.
setElementName : sert le nom de la balise dont on veut le contenu.
process : lance le traitement.
getStuffAsArray : pour récuperer les données dans un tableau.

(*) Mais il est de loin préférable d'utiliser XPath.

Exemple :

use filtreur;
.
#
# On veut récuperer le contenu des balises qui s'appellent "machin" dans "monfic.xml"
my $flt = new filtreur();
$flt->reset();
#
$flt->setFile("monfic.xml" );
$flt->setElementName("machin");
#
# traitement
#
$flt->process();
#
# On récupere les lignes de texte dans un tableau
my @resultat = $flt->getStuffAsArray();

La classe tagger encapsule le lancement de tree-tagger et la récupération des résultats. (Elle pourra être dérivée pour utiliser d'autres étiqueteurs). Ses méthodes sont :

setCommand : Nom complet pour lancer la commande avec les options que l'on souhaite.
setTextAsFile : sert à spécifier le nom du fichier à étiqueter.
process : lance le traitement.
getMotTagLemme : Récupère le texte étiqueté dans un tableau. Chaque élément du tableau est une liste de 3 chaines. Le mot , l'étiquette, le lemme.

Exemple:

use tagger;
.
.
my $tagger = new tagger();
#
$tagger->setCommand("/chemin/vers/tree-tagger") ;
#
#On veut étiqueter unTexte.txt
#
$tagger->setTextAsFile( "/quelque/part/unTexte.txt" ) ;
#
$tagger->process();
.
....
.
foreach my $v ( $tagger->getMotTagLemme()) {

print " Le mot est $v->[0] , l'étiquette est $v->[1] , le lemme est $v->[2] \n";
...

}

La classe pms permet d'extaire des patrons morpho-syntaxiques à partir d'une sortie générée par tree-tagger ( classe tagger ci dessus ) et de produire des fichiers dans différents formats. Ses méthodes sont :
Pour l'étiquetage au format Cordial, il suffit de redéfinir la méthode search.

Exemple:

use tagger;
use pms;

my $tagger = new tagger();
#
$tagger->setCommand("/chemin/vers/tree-tagger") ;
#
$tagger->setTextAsFile( "/quelque/part/unTexte.txt" ) ;
#
$tagger->process();
....
my $pms = new pms ($tagger->getMotTagLemme()) ;
#
# On veut tous les noms suivi d'un adjectif.
#
$pms->search("NOM ADJ");
#
# On veut le résultat dans patrons.xml
#
$pms->getPMSAsDocument("patronsAsXML.xml" , "UTF-8");
#
# On veut aussi un joli graphe:
#
$pms->getPMSAsPajek("patronsAsPajek.net");
#
# et si on veut se prendre la tête avec xslt on crée un fichier GraphML que l'on transformera:
#
$pms->getPMSAsGraphML("patronsgraphML.xml", "iso-8859-1");
#