Discussion :

[DevPerl]

Bonjour je voudrais supprimer plusieurs fichiers en même temps sur un site FTP via les "JOKERS" (* ou ?) MsDos classique or cela ne marche pas, quelqu'un a t-il une solution a mon souci :

extrait du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub Supprime_SVI($)
{
$retour="";
$ftp = Net::FTP -> new ( $ftp_server, Passive =>1 , Timeout => 30, Debug => 1 ) or $ftp = Net::FTP -> new ( $ftp_server, Passive =>1 , Timeout => 30, Debug => 1 ) or $ftp = Net::FTP -> new ( $ftp_server, Passive =>1 , Timeout => 30, Debug => 1 ) or return "Connexion ftp impossible, serveur injoignable\n";
$ftp-> login($login,$password) or $ftp-> login($login,$password) or $ftp-> login($login,$password) or return "connexion ftp impossible, compte ou mot de passe incorrect\n";
$ftp-> cwd('/svi');
$fichier= shift;
$ftp-> delete($fichier) or $ftp-> delete($fichier) or $ftp-> delete($fichier) or return "FTP : Impossible de supprimer le fichier $fichier !\n";
}
 
$DateVeille = GetPreviousDay;						# Cherche la date précédente.
$namefiles = "STATUTS_TC_CLIENT_".$DateVeille."??0001_1.csv"; 
Supprime_SVI($namefiles);

Merci pour vos conseils ....

[Jedai]

Utilise une regex et ls() :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#!/usr/bin/perl
use strict; use warnings;
 
sub Supprime_SVI {
   my $rx = shift;
 
   my $try = 0;
   my $ftp;
   while( not defined($ftp) and $try < 3) {
      $ftp = Net::FTP -> new ( $ftp_server, Passive =>1 , Timeout => 30, Debug => 1 );
      $try++;
   }
   defined($ftp) or return "Connexion ftp impossible, serveur injoignable\n";
 
   # si le login échoue une fois, il échouera toujours
   $ftp-> login($login,$password) 
      or return "connexion ftp impossible, compte ou mot de passe incorrect\n";
 
   $ftp-> cwd('/svi');
 
   my @not_deleted;
   for my $file (grep m/$rx/, $ftp->ls()) {
      $ftp-> delete($file) 
         or push @not_deleted, "$file";
   }
 
   return "Les fichiers suivant n'ont pu être supprimés : " . join ", ", @not_deleted
      if @not_deleted;
 
   return "Ok";
}
 
my $DateVeille = GetPreviousDay();
my $namefiles = qr/STATUTS_TC_CLIENT_$DateVeille..0001_1\.csv/; 
Supprime_SVI($namefiles);

Par ailleurs je te conseille la lecture du sujet sur le style en Perl, tu as un certain nombre de problèmes de ce côté là.

--
Jedaï

--
Jedaï

[DevPerl]

Merci beaucoup pour ta réponse , je vais essayer ta solution ... et suivre ton conseil .....

Merci par avance

[DevPerl]

C'était qu'un bout de code car mon programme fait déjà plus de 500 lignes aussi j'ai mis que l'essentiel dans l'erreur que j'ai recontré ....
Merci encore, je vais essayer ta solution deamin matin.

[DevPerl]

Bonsoir

Merci infiniment pour ton aide, j'avoue être débutant en PERL, je ne programme plus depuis 15 ans et je me suis remis à la programmation et en PERL que je ne connais que depuis 2 mois par autoformation et par vos aides ici et sur les divers sites et fichiers d'aide PERL.
Je viens de tester ta solution qui marche à merveille !
Merci encore beaucoup pour ton aide et tes conseils.