Discussion :

[paulperso]

Bonjour,

certains messages d' erreur ne restent pas affichés et disparaissent instantanément.
ci-dessous un bout de code qui fait apparaitre ce cas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use Net::FTP; 
 
#-- connect to ftp server  apaul.ifrance.com  est ok
#-- connect to ftp server  apaul.ifrancex.com  le message disparait
 
$ftp = Net::FTP->new("apaul.ifrancex.com")
      or die "Cannot connect to apaul.ifrance.com";
 
$saisie = <STDIN>;
print("$saisie");

bien sur dans ce cas l' erreur est intentionnelle mais que faire pour qu' au moins die soit efficace.

Merci (je suis en perl 5.8.3.809 sous windows vista)

[djibril]

bon, pour t'aider un peu.
A chaque fois que tu écris un script Perl, pense à mettre un use warnings et strict pour gérer tes erreurs.
Déclare tes variables en mettant un my.
tu n'as pas besoin de parenthèse pour ton print.

Exemple pour ton script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use warnings;
use strict;
use Net::FTP; 
 
#-- connect to ftp server  apaul.ifrance.com  est ok
#-- connect to ftp server  apaul.ifrancex.com  le message disparait
 
my $ftp = Net::FTP->new("apaul.ifrancex.com")
      or die "Cannot connect to apaul.ifrance.com";
 
my $saisie = <STDIN>;
print "Ma saisie : $saisie\n";