Discussion :

[peuf23]

Bonjour à tous,

C'est la première fois que j'utilise le module net::ftp de perl. J'ai une liste de fichiers à copier sur un serveur ftp (free). Voici mon code, les fichiers à copier sont lus à partir d'un fichier $infile :

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
 
#!/usr/bin/perl
 
use strict;
use Net::FTP; 
 
...
 
my $ftp = Net::FTP->new("ftpperso.free.fr", Debug => 0, Timeout => 100000)  or die "Impossible de se connecter à : $@";
$ftp->login("monsite",'*********') or die "Impossible de se logger ", $ftp->message; 
$ftp->binary() || die "Unable to set mode to binary. ", $ftp->message;
$ftp->cwd("photos\/$bdd")or die "Impossible de changer de répertoire ", $ftp->message;
 
open(FILE, $infile) or die("ouverture du fichier $infile impossible");
while (my $ligne = <FILE>) 
	{
		chomp($ligne);
		my $no_photo = $nb_photo+$cpt+1;
		#on ftp les fichiers correspondants
		my $image_gde = "img\ \($no_photo\)\.jpg";
		my $image_mini = "mini_$image_gde";
		$ftp->put("$path_site\/photos\/$bdd\/$image_gde") or die "put $image_gde a echoue \n", $ftp->message;			
		$ftp->cwd("mini")or die "Impossible de trouver le répertoire mini \n", $ftp->message;	
		$ftp->put("$path_site\/photos\/$bdd\/mini\/$image_mini") or die "put $image_mini a echoue\n", $ftp->message;
		$ftp->cwd("..")or die "Impossible de changer de répertoire\n ", $ftp->message;
		$cpt++;
	}
	close(FILE);
	$ftp->quit;
	print "Traitement en ligne accompli pour $cpt photos...\n\n";
...

Or au bout d'un certain temps les die() associés au put ou au cwd() sont activés. N'y aurait-il pas un moyen de répéter ces commandes jusqu'à leur exécution? Ou une autre solution?

Merci d'avance

[djibril]

Peux tu nous montrer le message d'erreur

Entre temps, teste ce programme corrigé

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
36
37
38
39
40
41
#!/usr/bin/perl
use warnings;
use strict;
use Net::FTP;
 
my $ftp = Net::FTP->new( "ftpperso.free.fr", Debug => 0, Timeout => 100000 )
  or die "Impossible de se connecter à : $@";
$ftp->login( "monsite", '*********' ) or die "Impossible de se logger ", $ftp->message;
$ftp->binary() || die "Unable to set mode to binary. ", $ftp->message;
$ftp->cwd("photos/$bdd") or die "Impossible de changer de répertoire ", $ftp->message;
 
open( FILE, '<', $infile ) or die("ouverture du fichier $infile impossible");
while ( my $ligne = <FILE> ) {
  chomp($ligne);
  my $no_photo = $nb_photo + $cpt + 1;
 
  #on ftp les fichiers correspondants
  my $image_gde  = "$path_site/photos/$bdd/img ($no_photo).jpg";
  my $image_mini = "$path_site/photos/$bdd/mini/mini_$image_gde";
  if ( -e $image_gde ) {
    $ftp->put($image_gde) or die "put $image_gde a echoue \n", $ftp->message;
  }
  else {
    warn "Fichier inexistant : $image_gde\n";
  }
 
  $ftp->cwd('mini') or die "Impossible de trouver le répertoire mini \n", $ftp->message;
 
  if ( -e $image_mini ) {
    $ftp->put($image_mini) or die "put $image_mini a echoue\n", $ftp->message;
  }
  else {
    warn "Fichier inexistant : $image_mini\n";
  }
 
  $ftp->cwd('..') or die "Impossible de changer de répertoire\n ", $ftp->message;
  $cpt++;
}
close(FILE);
$ftp->quit;
print "Traitement en ligne accompli pour $cpt photos...\n\n";

[peuf23]

Merci pour ta réponse. J'ai corrigé mon code par le tien. Les plantages continuent. Voici deux exemples :

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
 
vincent@PC-vincent:~/Images/Photos Choisies/lison$ updatemysite.pl -b lison -i list -num 376 --online
Vérification des photos contenues dans le fichier list : 
#######################################################################################################################################################
 ==> Ok !!!!
 
 
on commence à mettre à jour à partir de la photo 376+1
Fichier list utilisé 
traitement img (377).jpg
traitement img (378).jpg
...
traitement img (402).jpg
put /opt/lampp/htdocs/le_site_des_momos/photos/lison/img (402).jpg a echoue 
vincent@PC-vincent:~/Images/Photos Choisies/lison$ updatemysite.pl -b lison -i list -num 376 --online
Vérification des photos contenues dans le fichier list : 
#######################################################################################################################################################
 ==> Ok !!!!
 
 
on commence à mettre à jour à partir de la photo 376+1
Fichier list utilisé 
traitement img (377).jpg
...
traitement img (494).jpg
Impossible de trouver le répertoire mini

Comme tu peux voir les déconnections se font à des moments différents et pour des raisons différentes. Une idée? Est-ce du à ma connexion orange (pourtant plus que correcte)?