Discussion :

[Konrad Florczak]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci à tous !

[MarneusCalgarXP]

...
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ensuite, tu peux définir une hash de coresspondance 'mois texte' <> 'n° de mois'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

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

[rcageot]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Konrad Florczak]

Il me dit :
Erreur de compilation near :

return $date1 <==> $date2;

[2Eurocents]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

	return $date1 <=> $date2;

[MarneusCalgarXP]

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...

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

Euh oui, j'aime voir les choses en grand

[Konrad Florczak]

hmmm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Konrad Florczak]

Lol tu m'etonnes ! mais c pas bien de se moquer

Boarf dis toi qu'encore 3 ou 4 de ce genre d'echange de posts comme aujourd'hui et tu pourrais attendre les fameux 100 posts et avoir ton avatar

Allez à tous les contributeurs du script de la mort qui tue

[rcageot]

je ne me moque pas , j'ai connu ta situation (moi c'était du php/mysql un site web de reporting interne à dévelloper en urgence) et j'ai été bien content de trouver des mecs qui ne se foutait pas de mes questions cons sur les forums d'entraide!

sinon pour l'avatar, c'est pas bien important mais maintenant je vais passer mes nuits sur le forum à attendre les nouveaux messages

[Konrad Florczak]

Bah si tu as une question sur LaTeX n'hesite pas à poster sur le forum LaTeX. Je te reponidrai fissa

Allez a bientot, je dois avancer cet espece de .... bref...