nassimmarcoperl

#/usr/bin/perl
# use locale; force le \w à prendre les accentués.
open(FICCORDIAL, "$ARGV[0]");
open (OUT, ">sortiepatrons.txt");
#i=0;#new (facultative) car en perl on a pas besoin d'initialiser le compteur, car perl initialise par défaut à =0.****
#$compt=1; #l'initialisation d'un compteur doit toujours être mise au dessus de la while principale. mais l'incrémentation en bas doit être au niveau de ce que on traite***
while ($ligne= <FICCORDIAL>) { #ou my $ligne = $_;
#next if ($ligne=~/\r/); #ne fait aucun traitement si la ligne contient un \r
next if ($ligne!~/\t/); #ne fait aucun traitement si la ligne ne cotient pas un \t donc toutes les lignes sauf celles qui contiennent un \r # ou on met à la place de cette if un "next if ($ligne!~/\t/)"if (($ligne=~/\t/) && ($ligne!~/\./) && ($ligne!~/PCT/)){
chomp $ligne; #enlève LF # ou $ligne=~s/\n//g;#
#print "$ligne\n";
#@tab=<FICCORDIAL>;
#print @tab[0];
if ($ligne !~/PCT/){ #on s"arrete à la ponctuation.
 # ou $ligne =~/(\w+)\t(\w+)\t(\w+)/; # $1, $2, $3; H le \w prend aussi les noms numériques.
 @decoup=split(/\t/, $ligne); # sur la ligne V*3 , une liste @
 #print "@decoup\n";
 push (@token, $decoup[0]); #insérer toute .. ou push (@token, @decoup[0]);
 push (@lemme, $decoup[1]); # push (@token, $1 ..)
 push (@partof, $decoup[2]);
 $i++;#new****
 #print "$i\n";
 #print "@partof\n";
 #print "@token\n"; dans cette if, tous les tableaux sont affichés en trapèzes.
 }
else {
 #print "@token\n";
 #ici le tableau n'est pas le même que celui d'en haut, car seules les ph completes sont reprises.
 #print "@partof\n";
 #print "@token\n";
 #print "ENTREE\n";
 #my $reponse=<STDIN>;
 open(FICPATRONS, "$ARGV[1]");
 while ($patrons=<FICPATRONS>) { #while (<FICPATRONS>)
 #ou# my $ligne1= $_ ; autre méthode pour lire les lignes d'un fichier en utilisant $_ prédéfinie.
  chomp $patrons;
  my $compare="";
#foreach my $element(@partof) { #c'est une autre solution pour mettre le contenu d'un tableau @ dans une scalaire $.
      #                 $compare=$compare."\t".$element; ##$compare.="\t".$element #la concaténation se fait dans un ordre logique de gauche à droite des éléments.
             #         }
        
#print "$compare\n";
  $compare=join("\t", @partof);
  #print "$compare\n";
#print "@partof[8] ";
#print "@partof[9]\n";
#le joineur est mis entre "", le spliteur entre / /.la var $compare
#contient tt les lignes étiquetées de cat gram. le joint recolle en prenant la ligne du tableau et la transforme en une chaine de carac dont les éléments sont séparés par un \t
#print "$compare\n";
  my $j=0; #new
  my $k=0;#new
 
  while ($compare=~/$patrons/g) { # ou if ( / /); mais ne prend pas les répétitions sur un même ligne de pat.txt
   my $avant = $`;#new
   my $apres = $';#new
   #print "$&\n";
   #print "$avant\n";
     #print "$apres\n";
   while ($avant=~/\t/g) {$j++};#new#while et non if , car répète la recherche sur la meme ligne.
   while ($apres=~/\t/g) {$k++};#new
   #print "$i\n";
   #print $j;
   #print $k;
   print OUT "@token[$j..$i-$k-1]\n";  #avec foreach on [$j-1..$i-$k-1]; donc le"-1" est additionnel pour enlever "\t" dans la concaténation : ligne 38 #new
   #print "\n";
   $j=0;#new
 $k=0;#new #peut être mise ici ou dans la while qui compare while / /g;
 
     # $compt++; #*** voir en haut.
#print "@token\n";
#print "$compare\n";
#print "correspondance!\n"
  }

     }
 $i=0;#new #sert à vider cette var. 
 @token=();
 @lemme=();
 @partof=();
     }
        }
 

Sortie : 121 patrons

suppression totale
commission Copé
soldat américain
magazine américain
caractère exceptionnel
procédure pénale
football professionnel
esthétique domestique
exposition L'
esthétique médiatique
Orange détenteurs
presse économique
esthétique médiatique
exposition L'
design étonnant
monde entier
site participatif
chaînes thématiques
version initiale
départs volontaires
dérive partisane
chaîne privée

Voici la feuille de style xsl pour afficher l'extraction de patrons sur FIREFOX :

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="2.0">
<xsl:output method="html"/>
<xsl:template match="/">
<html>
<body  bgcolor="white">
<p align="justify"><xsl:apply-templates select="//element"/></p>
</body>
</html>
</xsl:template>

<xsl:template match="element">

 <xsl:choose>

 <xsl:when test="(./data[contains(text(),'NOM')]) and (following-sibling::element[1][./data[contains(text(),'ADJ')]])">
  <br />
    <br />
 <font color="blue">
<strong>
  <xsl:value-of select="./data[3]" />
&#160;
</strong>
  </font>

  <xsl:text />

  </xsl:when>

 <xsl:when test="(./data[contains(text(),'ADJ')]) and (preceding-sibling::element[1][./data[contains(text(),'NOM')]])">

 <font color="red">
<strong>
  <xsl:value-of select="./data[3]" />
</strong>
  </font> <br/>

 
  </xsl:when>

  </xsl:choose>

  </xsl:template>

  </xsl:stylesheet>

Voici notre feuille de style xsl:

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="2.0">

 <xsl:template match="element">

 <xsl:choose>

 <xsl:when test="(./data[contains(text(),'NOM')]) and (following-sibling::element[1][./data[contains(text(),'ADJ')]])">
  <br />
    <br />
 <font color="blue">
<strong>
  <xsl:value-of select="./data[3]" />
&#160;
</strong>
  </font>

  <xsl:text />

  </xsl:when>

 <xsl:when test="(./data[contains(text(),'ADJ')]) and (preceding-sibling::element[1][./data[contains(text(),'NOM')]])">

 <font color="red">
<strong>
  <xsl:value-of select="./data[3]" />
</strong>
  </font>

 
  </xsl:when>

  </xsl:choose>

  </xsl:template>

  </xsl:stylesheet>