[Perl] débutant chercher conseil

lami20j@debian:~$ cat jojo/200610
s=1 s=2 s=3
    s=2 s=3
        s=3
lami20j@debian:~$ cat jojo/200611
s=1 s=2 s=3
s=1 s=2 s=3
    s=2
s=1 s=2

lami20j@debian:~$ cat jojo/200612
s=1 s=2 s=3
s=1 s=2 s=3
s=1 s=2 s=3
    s=2 s=3
s=4 s=4 s=3

lami20j@debian:~$ cat jojo/200701
s=4 s=5 s=6
s=1 s=2 s=3
    s=2 s=3
        $=3
s=5 s=5 s=5
s=5 s=5 s=5
s=5 s=5 s=5

#!/usr/bin/perl
#
use warnings;use strict;
use File::Basename;

my (@fichiers,%h);
my $rep="/home/lami20j/jojo";

opendir (REP,$rep)
   or die "E/S : $!\n";

open F_ECRIRE,">>jojo_resultat"
   or die "E/S : $!\n";

while (defined (my $fic = readdir(REP))){
  push @fichiers,"$rep/$fic" unless $fic=~/^\./;
}

foreach my $fic(sort @fichiers){
  open F_LIRE,"$fic"
     or warn "E/S : $!\n";
  while(<F_LIRE>){
    map { $h{$_}++ } my @t=$_=~/(s=\d+)/g;
  }
  print F_ECRIRE basename($fic),"\n";
  print F_ECRIRE "$_ $h{$_}\n" foreach (sort keys %h);
  delete $h{$_} foreach (keys %h);
}

lami20j@debian:~$ perl jojo.pl
lami20j@debian:~$ cat jojo_resultat
200610
s=1 1
s=2 2
s=3 3
200611
s=1 3
s=2 4
s=3 2
200612
s=1 3
s=2 4
s=3 5
s=4 2
200701
s=1 1
s=2 2
s=3 2
s=4 1
s=5 10
s=6 1

nom_fichier1
s=1 xxx
.
.
nom_fichier2
s=1 xxx
.
.

#!/usr/bin/perl
#
=pod
on utilise les pragma strict
pour imposer une certaine discipline
la déclaration de variables avec my
dans notre cas

on utilise le pragma warnings pour
l'affichage des warnings
ce qui peux nous aider pour corriger
les erreurs
=cut
use warnings;use strict;

=pod
J'utilise 3 variables
@fichiers - c'est un tableau
les éléments du tableau peuvent être lus avec
$fichiers[0]....$fichiers[n-1] - pour un tableau avec n éléments 

%h - c'est un hash, ou hachage ou tableau associatif
on préfére le plus court, donc hash

hash c'est une variable spéciale, une structure de données
semblable à un tableau
Mais au lieu d'indexer les valeurs par nombre, on les cherche par nom
les indices sont des chaînes uniques et on les appelle des clés
On peut lire une valeur correspondant à une clé avec
$h{"cle"} = "valeur"

$rep c'est une variable scalaire
qui contient le chemin vers le répertoire
dans lequel on a les fichies log
=cut
my (@fichiers,%h);
my $rep="/home/lami20j/jojo";

=pod
opendir c'est une fonction
qui perment de lire un répertoire
=cut
opendir (REP,$rep)
   or die "E/S : $!\n";

=pod
open c'est une fonction
qui permet d'ouvrie un canal
de communication vers en fichier.
il y a plusieurs modes d'établir 
le canal de communication : lecture, écriture, ajout, etc.
dans notre cas on a ouvert le mode écriture (>)
=cut
open F_ECRIRE,">jojo_resultat"
   or die "E/S : $!\n";

=pod
jusqu'ici on a préparé le terrain pour traitment
tout ce que tu vois après while c'est le traitement
de fichiers
c'est parti...
en premier temps je lit le répertoire
et je stocke dans le tableau @fichiers
le nom de fichiers auquel j'ajoute aussi le chemin
sauf les fichiers qui commence avec . et ..
Pourquoi . et .. ?
.  c'est le répertoire courant
.. c'est le répertoire parent
=cut
while (defined (my $fic = readdir(REP))){
  push @fichiers,"$rep/$fic" unless $fic=~/^\./;
}

=pod
pour chaque fichier contenu dans @fichiers
j'ouvre le fichier en lecture ou j'affiche un message 
ensuite tant que je n'atteint pas la fin de fichier
pour chaque couple s=Nombre (s=1,s=2,.. seront les clés de notre hash)
je compte combien de couple j'ai

Exemple:
on a 3 s=1

la clé est "s=1" et on a vu plus haut que la clé est unique
donc au début la valeur qui correspond à la clé est indéfini(undef)
A savoir que s'il la valeur est traité en tant que chaîne elle vaut la chaîne vide ""
si est traité en tant que nombre elle vaut 0

${"s=1"}=${"s=1"}+1
donc à la fin on aura
${"s=1"}=3

donc c'est comme ça que je compte les nombre de s=1,s=2,...

/(s=\d+)/ig;

c'est une expression régulière (regex)
// se sont les délimiteurs de la regex
les paranthèses permet la capture de motif trouvé dans la variable $1
s= c'est la chaîne littérale
\d c'est une classe de caractère qui correspond à tout chiffre de 0 à 9
+ c'est un quantificateur qui perment de reconnaître au minimum une chiffre
i c'est un modificateur de regex qui permet à la regex d'être insensible à la casse
  donc la regex peut reconnaître s ou S
=cut
foreach my $fic(@fichiers){
  open F_LIRE,"$fic"
      or warn "E/S : $!\n";
   while(<F_LIRE>){
      $h{$1}++ if /(s=\d+)/i;
   }
}


=pod
j'écrit dans le fichier en utilisant le canal de communication (handle)
qu'on a ouvert plus haut

$_     represente la clé  ( s=1,...)
$h{$_} c'est la valeur ( le nombre de chaque s=N)
sort c'est une fonction qui va trier les s=N 
keys %h c'est un tableau qui contient les clés de hash

en bref la ligne de code on peut l'interpreté 

écrit dans le fichier résultat la clé et le nombre d'occurences pour chaque clé dans le tableau de clés qui soit trié
=cut
print F_ECRIRE "$_ $h{$_}\n" foreach (sort keys %h);
__END__

Tout ce que tu vois entre les balises
=pod

=cut

se sont de commentaires
de même tout ce que tu vois après __END__
n'est pas lu par l'interpreteur perl

Tu vois que je n'utilise plus le même code
que dans le 1er script, puisque le résultat que tu demandes
et bien plus facile que je croyais

      $h{$1}++ if /(s=\d+[,.]?\d*)\s*/i;

      $h{$1}++ if /(s=(?:\d+(?:[,.]?\d*)?|\[,.]\d+))\s*/i;