Expression regulière sur les dates

Version imprimable

Voir 40 message(s) de cette discussion en une page

04/10/2006, 17h32
Konrad Florczak

Expression regulière sur les dates
Bonjour tout le monde,

Vous voulez encore suivre les aventures de Konrad perdu au pays des impitoyables managers qui le balancent sur un projet Perl alors qu'il en a jamais vu la couleur de ce langage de programmation et qu'il y a plus que quelques jours pour boucler ?

Et bien c'est parti :

Voila ce que j'ai comme fichiers sur le FTP :

PegaRULES-CSV-2006-Sep-21.csv
PegaRULES-CSV-2006-Sep-26.csv
PegaRULES-CSV-2006-Sep-27.csv
PegaRULES-CSV-2006-Oct-02.csv
PegaRULES-CSV-2006-Oct-04.csv

Et je ne sais pas comment faire pour demander à Perl de prendre l'element le plus vieux (ici 2006-Oct-04) en jouant sur les dates.

J'ai le script que Jedai m'a gentillement transmis pour avoir un jour plus tot.
Mais parfois il y a que des fichiers de log à J-2 ou J-3 ...
Bref

Comment je pourrais definir la valeur $ftp_orig_file_csv dans :
Code:

1 2 3 $ftp->get($ftp_orig_file_csv, $ftp_dest_file_csv) or die "get failed ", $ftp->message;
Merci à tous !

Citation:

Envoyé par Konrad Florczak

...
PegaRULES-CSV-2006-Sep-21.csv
PegaRULES-CSV-2006-Sep-26.csv
PegaRULES-CSV-2006-Sep-27.csv
PegaRULES-CSV-2006-Oct-02.csv
PegaRULES-CSV-2006-Oct-04.csv

Et je ne sais pas comment faire pour demander à Perl de prendre l'element le plus vieux (ici 2006-Oct-04) en jouant sur les dates.

2006-Oct-04 est le plus récent, pas le plus vieux... le plus vieux est 2006-Sep-21.

Si tu veux jouer sur les dates, il faut d'abord que tu récupères la liste des fichiers du FTP ($ftp->list je crois). Si tu sais le faire, tu stockes cette liste dans une variable, par exemple un tableau de chaines de caractères.
Code:

1 2 my @liste = $ftp->list();
Ensuite, tu peux définir une hash de coresspondance 'mois texte' <> 'n° de mois'
Code:

1 2 3 4 5 6 7 my %MONTH = ( 'Jan' => '01' 'Feb' => '02' 'Mar' => '03' etc... );
Puis, écrire une fonction de comparaison, qui permet de comparer 2 noms de fichier à partir des dates, en les décomposant en 3 parties : année, mois texte, jour. On va se servir de la hash pour retrouver le n° de mois. et finalement, on va tout coller pour obtenir un numérique (2006 02 03 => 20060203) que l'on va pouvoir comparer aisément !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 sub compareFileDate($$) { my ($file1, $file2) = @_; my ($annee1, $mois1, $jour1) = ($file1 =~ m/(\d{4})-([A-Z][a-z]{2})-(\d{2})/); my ($annee2, $mois2, $jour2) = ($file2 =~ m/(\d{4})-([A-Z][a-z]{2})-(\d{2})/); my $monthnumber1 = $MONTH{$mois1}; my $monthnumber2 = $MONTH{$mois2}; my $date1 = $annee1.$monthnumber1.$jour1; my $date2 = $annee2.$monthnumber2.$jour2; return $date1 <==> $date2; }
Il te restera à trier ta liste en utilisant cette fonction par l'intermédiaire du mot clé sort pour récupérer le nom du fichier le plus récent ou le plus ancien, comme tu préfères ;)
Code:

1 2 3 4 my @listetriee = sort compareFileDate @liste; my $plusancien = $listetriee[0]; my $plusrecent = $listetriee[ $#listetriee ];

05/10/2006, 11h12
Konrad Florczak

oui oui pardon je voulais dire la date la plus haute ou le fichier le plus recent...
un lendemain de cuite le clavier fourche :D

Merci pour ta réponse je vais creuser le code.

Code:

1 2 3 my ($annee1, $mois1, $jour1) = ($file1 =~ m/(\d{4})-([A-Z][a-z]{2})-(\d{2})/); my ($annee2, $mois2, $jour2) = ($file2 =~ m/(\d{4})-([A-Z][a-z]{2})-(\d{2})/);
c'est pas -([A-Z][a-z]{3})- qu'il faut mettre par hasard?

sinon en général, je passe toutes les chaînes de caractères en minuscules, ça évite d'avoir à retoucher le code si la casse du fichier change
Code:

1 2 3 4 5 6 7 my %MONTH = ( 'jan' => '01' ,'feb' => '02' ,'mar' => '03' ,etc... );
puis
Code:

1 2 3 my $monthnumber1 = $MONTH{lc($mois1)}; my $monthnumber2 = $MONTH{lc($mois2)};

05/10/2006, 12h23
Konrad Florczak

Il me dit :
Erreur de compilation near :

return $date1 <==> $date2;
05/10/2006, 12h27
2Eurocents

Citation:

Envoyé par Konrad Florczak

Il me dit :
Erreur de compilation near :

return $date1 <==> $date2;

Il y a un = de trop. La soucoupe volante n'est pas si grande. ;)

Code:

return $date1 <=> $date2;
05/10/2006, 12h57
MarneusCalgarXP

Citation:

Envoyé par rcageot

c'est pas -([A-Z][a-z]{3})- qu'il faut mettre par hasard?

Non ! Oct, la 1° lettre est en majuscule, puis il y a 2 minuscules, pas 3...

O : [A-Z]
ct: [a-z]{2}

Si tu veux l'écrire avec 3, il faut mettre [A-Za-z]{3}, mais ça n'a pas la même signification, ma regexp est plus précise...

Citation:

Envoyé par 2Eurocents

Il y a un = de trop. La soucoupe volante n'est pas si grande.

Euh oui, j'aime voir les choses en grand ;)

hmmm

Code:

1
2
  my $monthnumber1 = $MONTH{lc($mois1)};
  my $monthnumber2 = $MONTH{lc($mois2)};

Code:

1
2
  my $monthnumber1 = $MONTH{($mois1)};
  my $monthnumber2 = $MONTH{($mois2)};

Il me met toujours la meme chose : get failed at line 72

05/10/2006, 13h37
Konrad Florczak

je pense que ca vient d'un probleme avec la ligne :

Code:

my @liste= ftp->list($dir);

j'ai fait ensuite :

Code:

print $liste[0];

et rien...

Par contre ca se connecte bien au ftp :

Citation:

C:\>perl test.pl
CONNECTED TO server
pegausr LOGGED IN
Folder : /app/pega/sbs/qa/logs/prpc/
get failed at test.pl line 72.
Net::FTP::A=GLOB(0x1a074c4)

Description des commandes Net::FTP
05/10/2006, 14h10
MarneusCalgarXP

Essaie avec

Code:

my @liste= ftp->ls($dir);

(voir la doc : ls( [DIR] ) )

C bizarre vraiment

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
my $ftp                       = 0;
my $ftp_login                 = "login";
my $ftp_password              = "pass";
my $ftp_server                = "172.27.70.36";
#csv file
my $ftp_orig_dir_csv          = "/app/pega/sbs/qa/logs/prpc/";
 
 
    $ftp = Net::FTP->new($ftp_server, Debug => 0)
      or die "Cannot connect to $ftp_server: $@";
	print "CONNECTED TO $ftp_server\n";
    $ftp->login($ftp_login,$ftp_password)
      or die "Cannot login ", $ftp->message;
	print "Logged as : $ftp_login\n";  
	$ftp->cwd($ftp_orig_dir_csv)
      or die "Cannot change working directory ", $ftp->message;
    print "Folder : $ftp_orig_dir_csv\n";  
my @liste = $ftp->ls($ftp_orig_dir_csv);
 
while (@liste)
{
	print "$_ \t";
}

et la j'ai dans mon shell une liste infini de blanc qui defile (sur windows)
et il faut que j'arrete le truc avec la commande Ctrl+C

05/10/2006, 15h38
MarneusCalgarXP

et si tu fais appel à ls sans spécifier de répertoire, juste après le cwd ?

ça marche avec

Code:

1
2
3
4
5
 
my @liste = $ftp->ls($ftp_orig_dir_csv);
for ($i=0;$i<=$#liste;$i++) {
	print "fichier : $liste[$i] \n";
}

Code:

1
2
3
4
5
 
my @liste = $ftp->ls($ftp_orig_dir_csv);
while (<@liste>) {
	print "fichier : $_ \n";
}

05/10/2006, 15h55
Konrad Florczak
merci rcageot

j'ai testé la deuxieme methode. Est ce un probleme de syntaxe impardonnable ?
(il faut absolution le <@uneliste> a l'interieur d'un while ?

Voila ce qui s'affiche maintenant sur le compilateur. Je pense que le dossier /archive/ perturbe le script... (le dossier est present dans /app/pega/sbs/qa/logs/prpc/ ou sont situés les fichiers. log et .csv

Citation:

C:\>perl test.pl
CONNECTED TO 172.27.70.36
Logged as : pegausr
Folder : /app/pega/sbs/qa/logs/prpc/
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Oct-02.log
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Oct-04.log
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Sep-21.log
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Sep-26.log
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Sep-27.log
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Oct-02.csv
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Oct-04.csv
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Sep-21.csv
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Sep-26.csv
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Sep-27.csv
fichier : /app/pega/sbs/qa/logs/prpc/archive
get failed /app/pega/sbs/qa/logs/prpc/archive: not a plain file.

D'ailleurs dans l'expression régulière je ferais peut etre mieux de preciser que l'extention doit etre type .csv
Code:

1 2 my ($annee1, $mois1, $jour1) = ($file1 =~ m/(\d{4})-([A-Z][a-z]{2})-(\d{2})/.csv); my ($annee2, $mois2, $jour2) = ($file2 =~ m/(\d{4})-([A-Z][a-z]{2})-(\d{2})/.csv);
05/10/2006, 16h09
Konrad Florczak

Bon Voici le code :

Citation:

my $ftp = 0;
my $ftp_login = "pegausr";
my $ftp_password = "*****";
my $ftp_server = "172.27.70.36";
#csv file
my $ftp_orig_dir_csv = "/app/pega/sbs/qa/logs/prpc/";

$ftp = Net::FTP->new($ftp_server, Debug => 0)
or die "Cannot connect to $ftp_server: $@";
print "CONNECTED TO $ftp_server\n";
$ftp->login($ftp_login,$ftp_password)
or die "Cannot login ", $ftp->message;
print "Logged as : $ftp_login\n";
$ftp->cwd($ftp_orig_dir_csv)
or die "Cannot change working directory ", $ftp->message;
print "Folder : $ftp_orig_dir_csv\n";
my @liste = $ftp->ls($ftp_orig_dir_csv);

while (<@liste>) {
print "fichier : $_ \n";
}

my %MONTH = (
'Jan' => '01'
,'Feb' => '02'
,'Mar' => '03'
,'Apr' => '04'
,'May' => '05'
,'Jun' => '06'
,'Jul' => '07'
,'Aug' => '08'
,'Sep' => '09'
,'Oct' => '10'
,'Nov' => '11'
,'Dec' => '12'
);

sub compareFileDate($$)
{
my ($file1, $file2) = @_;
my ($annee1, $mois1, $jour1) = ($file1 =~ m/(\d{4})-([A-Z][a-z]{2})-(\d{2}).csv/);
my ($annee2, $mois2, $jour2) = ($file2 =~ m/(\d{4})-([A-Z][a-z]{2})-(\d{2}).csv/);
my $monthnumber1 = $MONTH{($mois1)};
my $monthnumber2 = $MONTH{($mois2)};
my $date1 = $annee1.$monthnumber1.$jour1;
my $date2 = $annee2.$monthnumber2.$jour2;
return $date1 <=> $date2;
}

my @listetriee = sort compareFileDate @liste;
my $plusancien = $listetriee[0];
my $plusrecent = $listetriee[ $#listetriee ];
my $ftp_orig_file_csv = $plusrecent;
my $ftp_dest_file_csv = "C:\\test\\ftp_dest_file.csv";

print "fichier plus recent est : $plusrecent\n";
print "fichier plus ancien est : $plusancien\n";
$ftp->get($ftp_orig_file_csv, $ftp_dest_file_csv)
or die "get failed ", $ftp->message;

print "fichier $plusrecent transferé";
$ftp->quit;

Et voici la sortie

Citation:

CONNECTED TO 172.27.70.36
Logged as : pegausr
Folder : /app/pega/sbs/qa/logs/prpc/
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Oct-02.log
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Oct-04.log
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Sep-21.log
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Sep-26.log
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Sep-27.log
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Oct-02.csv
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Oct-04.csv
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Sep-21.csv
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Sep-26.csv
fichier : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Sep-27.csv
fichier : /app/pega/sbs/qa/logs/prpc/archive
fichier plus recent est : /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Oct-04.c
sv
fichier plus ancien est : /app/pega/sbs/qa/logs/prpc/PegaRULES-2006-Oct-02.log
fichier /app/pega/sbs/qa/logs/prpc/PegaRULES-CSV-2006-Oct-04.csv transferÚ

Je crois qu'on y est presque. Il faudrait peut etre faire un filtre apres @liste, genre @listefiltree pour qu'il selectionne que les fichiers avec l'extention .csv
ca marche aussi avec des expression regulière ?

Rhhaaaa vite vite il faut que je finisse ce projet a la c... pour enfin m'y mettre à perl depuis le début !
05/10/2006, 16h40
rcageot

le plus simple c'est de faire :

my $ftp_orig_dir_csv = "/app/pega/sbs/qa/logs/prpc/*.csv";

:D
05/10/2006, 16h45
Konrad Florczak

Citation:

Cannot change working directory /app/pega/sbs/qa/logs/prpc/*.csv: No such file o
r directory.
05/10/2006, 16h49
2Eurocents

Chdir ne va pas aimer qu'on lui indique d'aller dans "/app/pega/sbs/qa/logs/prpc/*.csv".

Il préfèrera "/app/pega/sbs/qa/logs/prpc", non ?
05/10/2006, 16h51
rcageot

désolé j'avais pas vu le chdir avant

tape :
my @liste = $ftp->ls($ftp_orig_dir."/*.csv");
ou
my @liste = $ftp->ls($ftp_orig_dir."*.csv");

suivant que tu mets le / dans ta variable $ftp_orig_dir ou pas !

voilà
05/10/2006, 17h13
Konrad Florczak

C'est nickel ca marche parfaitement !!

Merci beaucoup les gars !

Voir 40 message(s) de cette discussion en une page