Salut,

Pour commencer, je précise que je suis totalement débutant en PERL  

Pour le boulot, on m'a demandé d'écrire un petit script qui :

-> se connecte à un serveur et ouvre 2 fichiers selon la date du jour (fichiers de log créés chaque jour)
-> selon la taille du fichier, envoi d'un mail si c'est ok ou s'il y a des erreurs.

Les 2 fichiers que je dois analyser chaque jour se nomment par exemple :
- BatchPorterExport_error_11-03-18_244845.log
- BatchPorterExport_error_11-03-18_243214.log

J'ai déjà réussi à récupérer la date du jour + le mois + l'année de façon à ouvrir les logs mais je souhaite virer les 6 derniers chiffres qui correspondent à l'heure exacte du log.

Je bloque actuellement à l'ouverture du fichier. Pour le moment je souhaite juste ouvrir le fichier et écrire dedans pour voir si mon ouverture se passe bien :

Voilà ça bloque au niveau du ."_*.log". L'étoile doit servir à remplacer l'heure dans le nom de fichier pour ouvrir n'importe lequel de mes 2 fichiers de logs (je ferais une boucle pour cela) mais je ne vois pas comment m'y prendre......

Merci d'avance pour votre aide

A++

Bon, en virant ton test initial pour prendre moins de place. Ce qui te manquait, c'est de connaitre l'usage de glob()

#!/usr/bin/perl
use strict;
use warnings;
 
my ($mday, $month, $year) = (localtime(time))[3..5];
$month++;
$year += 1900; # autant garder les bonne valeurs dans les variables
 
printf("Nous sommes le : %02d du mois %02d de l'annee %02d\n", $mday, $month, $year%1000);
 
my $dateformated = sprintf("%02d-%02d-%02d", $year%1000, $month, $mday); #date formatee, peut resservir
my $logpattern = "BatchPorterExport_error_${dateformated}_*.log"; #pattern des fichiers a chercher
my @loglist = glob($logpattern); # on en recupere le liste
 
foreach (@loglist) { on boucle sur la liste pour processer fichier a fichier
  open(my $file1, '>>', $_) or die ("Probleme d'ouverture $_\n" );
  sprintf($file1, "Nous sommes le : %02d du mois %02d de l'annee %02d\n", $mday, $month, $year%1000);
  close($file1);
}

 
On peut aussi l'écrire de manière plus compacte:

#!/usr/bin/perl
use strict;
use warnings;
 
my ($mday, $month, $year) = (localtime(time))[3..5];
$month++;
$year += 1900; # autant garder les bonne valeurs dans les variables
 
printf("Nous sommes le : %02d du mois %02d de l'annee %02d\n", $mday, $month, $year%1000);
my $dateformated = sprintf("%02d-%02d-%02d", $year%1000, $month, $mday);
 
foreach (glob("BatchPorterExport_error_${dateformated}_*.log" )) {
  open(my $file1, '>>', $_) or die ("Probleme d'ouverture $_\n" );
  sprintf($file1, "Nous sommes le : %02d du mois %02d de l'annee %02d\n", $mday, $month, $year%1000);
  close($file1);
}

 
Notes que glob() donne la liste des fichiers correspondant à un pattern dans le repertoire courant.
Il faut donc éventuellement faire un  
cd "le bon répertoire";
avant d'appeler glob(), selon l'endroit ou tu executes le script.
A+,

Je n'avais pas vu ta réponse
 
Merci pour ton aide, je teste ça cette après midi au boulot