Erreur ftp-> quit

**s_radhouan** · 18/12/2008, 22h41

Salut, j'ai un probléme quand j'utilise la fonction quit de ftp

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
#!/usr/local/bin/perl 
use Tk; #Utilisation de Tk
use Net::FTP;
 
#Définition de notre fonction de fermeture de l'application
sub Quitter
{
exit(0);
}
 
#Création de la fenêtre principale
$fen = MainWindow->new();
#Définition de la taille min de la fenêtre
$fen->minsize('800','600');
#Définition du title de la fenêtre
$fen->title("Client Ftp");
#Création de la barre de menu
$barre_menu = $fen->Frame(-relief => 'groove' , -borderwidth => 2);
#Création de la barre du menu général
$menu_gen = $barre_menu->Menubutton(
-text => 'Fichier' ,
-font => '{Garamond} 10',
-tearoff => 0 ,-menuitems => [
[ 'command' => 'Quitter' ,
-font => '{Garamond} 10',
-command => \&Quitter
]])->pack(-side=>left,-expand=>1);
$menu_gen = $barre_menu->Menubutton(
	-text => 'help' ,
	-font => '{Garamond} 10',
	-tearoff => 0 ,-menuitems => [
	[ 'command' => 'help' ,
	-font => '{Garamond} 10',
	-command =>\&Quitter
	]])->pack(-side=>left,-expand=>1);
 
#Affichage du menu général à gauche
$menu_gen->pack(-side => 'left');
#Affichage de la barre de menu en haut de la fenêtre
$barre_menu->pack(-side => 'top', -anchor => 'n', -fill => 'x');
#host
$frame1 = $fen->Frame()->pack();
$frameG = $frame1->Frame()->pack(-side=>'left',-pady=>5);
$frameJ = $frame1->Frame()->pack(-side=>'right', -pady=>5);
$frameI = $frame1->Frame()->pack(-side=>'right', -pady=>5);
$frameD = $frame1->Frame()->pack(-side=>'right', -pady=>5);
$frameE = $frame1->Frame()->pack(-side=>'right', -pady=>5);
$frameF = $frame1->Frame()->pack(-side=>'right', -pady=>5);
$frameH = $frame1->Frame()->pack(-side=>'right', -pady=>5);
 
$frameG->Label(-text=>'Host:')->pack(-side=>'right',-padx=>5);
$frameE->Label(-text=>'Port :')->pack(-side=>'right',-padx=>5);
$frameF->Label(-text=>'Pass :')->pack(-side=>'right',-padx=>5);
$frameH->Label(-text=>'User :')->pack(-side=>'right',-padx=>5);
 
$frameE->Entry(-width => '10',-textvariable => \$val_pass , #variable de récupération du texte saisi
-font => '{Garamond} 10',
)->pack(
-pady => '5', #Marge externe du bouton
-padx => '5',
-ipady => '5', #Marge interne du bouton
-ipadx => '5',
-side => 'left', #positionnement à gauche
-anchor => 'n' #positionnement en haut de la fenêtre
);
$frameF->Entry(-width => '10',-textvariable => \$val_user , #variable de récupération du texte saisi	
	-font => '{Garamond} 10',
)->pack(
	-pady => '5', #Marge externe du bouton
	-padx => '5',
	-ipady => '5', #Marge interne du bouton
	-ipadx => '5',
	-side => 'left', #positionnement à gauche
	-anchor => 'n' #positionnement en haut de la fenêtre
);
$frameH->Entry(-width => '20',-textvariable => \$val_host , #variable de récupération du texte saisi
	-font => '{Garamond} 10',
)->pack(
	-pady => '5', #Marge externe du bouton
	-padx => '5',
	-ipady => '5', #Marge interne du bouton
	-ipadx => '5',
	-side => 'left', #positionnement à gauche
	-anchor => 'n' #positionnement en haut de la fenêtre
);
 
 
 
#Ajout de la zone de saisie
$frameD->Entry(
-width => '3',-textvariable => '21', #variable de récupération du texte saisi
-font => '{Garamond} 10',
)->pack(
-pady => '5', #Marge externe du bouton
-padx => '5',
-ipady => '5', #Marge interne du bouton
-ipadx => '5',
-side => 'left', #positionnement à gauche
-anchor => 'n' #positionnement en haut de la fenêtre
);
$frameI->Button(
	        -text => 'Connect', #Texte du bouton
		-font => '{Garamond} 10', #Nom et taille de la police utilisée
		-command =>\&Connect,
		)->pack(
 
			-pady => '5', #Marge externe du bouton
 
		       	-padx => '5',
 
			-ipady => '5', #Marge interne du bouton
 
			-ipadx => '5'
						);
$frameJ->Button(
                -text => 'Deconnect', #Texte du bouton
	        -font => '{Garamond} 10', #Nom et taille de la police utilisée
		-command =>\&Deconnect,
	       )->pack(              
		       -pady => '5', #Marge externe du bouton
                       -padx => '5',							             -ipady => '5', #Marge interne du bouton
		       -ipadx => '5',						                                       );
 
 
sub Connect
{
my $ftp = Net::FTP->new($val_host) or die "Error connecting to $host: $!";
$ftp->login($val_user,$val_pass) or die "Login failed: $!";
}
sub Deconnect
{
	$ftp->quit or die "Error closing ftp connection: $!";  
#LINE 132
}
 
MainLoop;

l'erreur est dans la photo ci joint. Merci de m'aider!

**djibril** · 18/12/2008, 23h05

$ftp est déclaré dans la procédure Connect et donc pas reconnu dans la procédure Deconnect

Commence tous tes scripts avec

Code :

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

1
2
use warnings;
use strict;

**djibril** · 18/12/2008, 23h13

Revoilà ton code un peu corrigé
Tu devrais lire notre FAQ Perl et Tk pour apprendre les déclarations de variables.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
#!/usr/bin/perl
use strict;
use warnings;
use Tk; #Utilisation de Tk
use Net::FTP;
 
my ($val_user,$val_pass, $val_host, $host, $ftp) =();
 
#Création de la fenêtre principale
my $fen = MainWindow->new();
#Définition de la taille min de la fenêtre
$fen->minsize('800','600');
#Définition du title de la fenêtre
$fen->title("Client Ftp");
#Création de la barre de menu
my $barre_menu = $fen->Frame(-relief => 'groove' , -borderwidth => 2);
#Création de la barre du menu général
my $menu_gen = $barre_menu->Menubutton(
  -text => 'Fichier' ,
  -font => '{Garamond} 10',
  -tearoff => 0 ,-menuitems => [
    [ 'command' => 'Quitter' ,
    -font => '{Garamond} 10',
    -command => \&Quitter
    ]
  ],
)->pack(-side=>"left",-expand=>1);
$menu_gen = $barre_menu->Menubutton(
	-text => 'help' ,
	-font => '{Garamond} 10',
	-tearoff => 0 ,-menuitems => [
	[ 'command' => 'help' ,
	-font => '{Garamond} 10',
	-command =>\&Quitter
	]])->pack(-side=>"left",-expand=>1);
 
#Affichage du menu général à gauche
$menu_gen->pack(-side => 'left');
#Affichage de la barre de menu en haut de la fenêtre
$barre_menu->pack(-side => 'top', -anchor => 'n', -fill => 'x');
#host
my $frame1 = $fen->Frame()->pack();
my $frameG = $frame1->Frame()->pack(-side=>'left',-pady=>5);
my $frameJ = $frame1->Frame()->pack(-side=>'right', -pady=>5);
my $frameI = $frame1->Frame()->pack(-side=>'right', -pady=>5);
my $frameD = $frame1->Frame()->pack(-side=>'right', -pady=>5);
my $frameE = $frame1->Frame()->pack(-side=>'right', -pady=>5);
my $frameF = $frame1->Frame()->pack(-side=>'right', -pady=>5);
my $frameH = $frame1->Frame()->pack(-side=>'right', -pady=>5);
 
$frameG->Label(-text=>'Host:')->pack(-side=>'right',-padx=>5);
$frameE->Label(-text=>'Port :')->pack(-side=>'right',-padx=>5);
$frameF->Label(-text=>'Pass :')->pack(-side=>'right',-padx=>5);
$frameH->Label(-text=>'User :')->pack(-side=>'right',-padx=>5);
 
$frameE->Entry(-width => '10',-textvariable => \$val_pass , #variable de récupération du texte saisi
-font => '{Garamond} 10',
)->pack(
-pady => '5', #Marge externe du bouton
-padx => '5',
-ipady => '5', #Marge interne du bouton
-ipadx => '5',
-side => 'left', #positionnement à gauche
-anchor => 'n' #positionnement en haut de la fenêtre
);
$frameF->Entry(-width => '10',-textvariable => \$val_user , #variable de récupération du texte saisi	
	-font => '{Garamond} 10',
)->pack(
	-pady => '5', #Marge externe du bouton
	-padx => '5',
	-ipady => '5', #Marge interne du bouton
	-ipadx => '5',
	-side => 'left', #positionnement à gauche
	-anchor => 'n' #positionnement en haut de la fenêtre
);
$frameH->Entry(-width => '20',-textvariable => \$val_host , #variable de récupération du texte saisi
	-font => '{Garamond} 10',
)->pack(
	-pady => '5', #Marge externe du bouton
	-padx => '5',
	-ipady => '5', #Marge interne du bouton
	-ipadx => '5',
	-side => 'left', #positionnement à gauche
	-anchor => 'n' #positionnement en haut de la fenêtre
);
 
 
 
#Ajout de la zone de saisie
$frameD->Entry(
-width => '3',-textvariable => '21', #variable de récupération du texte saisi
-font => '{Garamond} 10',
)->pack(
-pady => '5', #Marge externe du bouton
-padx => '5',
-ipady => '5', #Marge interne du bouton
-ipadx => '5',
-side => 'left', #positionnement à gauche
-anchor => 'n' #positionnement en haut de la fenêtre
);
$frameI->Button(
	        -text => 'Connect', #Texte du bouton
		-font => '{Garamond} 10', #Nom et taille de la police utilisée
		-command =>\&Connect,
		)->pack(
 
			-pady => '5', #Marge externe du bouton
 
		       	-padx => '5',
 
			-ipady => '5', #Marge interne du bouton
 
			-ipadx => '5'
						);
$frameJ->Button(
                -text => 'Deconnect', #Texte du bouton
	        -font => '{Garamond} 10', #Nom et taille de la police utilisée
		-command =>\&Deconnect,
	       )->pack(              
		       -pady => '5', #Marge externe du bouton
                       -padx => '5',							             -ipady => '5', #Marge interne du bouton
		       -ipadx => '5',						                                       );
 
#Définition de notre fonction de fermeture de l'application
sub Quitter {
  exit(0);
}
 
sub Connect {
 
  $ftp = Net::FTP->new($val_host) or die "Error connecting to $host: $!";
  $ftp->login($val_user,$val_pass) or die "Login failed: $!";
}
sub Deconnect {
	$ftp->quit or die "Error closing ftp connection: $!";  
}
 
MainLoop;

courage, et le forum est là pour t'aider

**s_radhouan** · 18/12/2008, 23h22

Envoyé par djibril

$ftp est déclaré dans la procédure Connect et donc pas reconnu dans la procédure Deconnect

Commence tous tes scripts avec

Code :

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

1
2
use warnings;
use strict;

Merci pour ta repense, mais ce que je sais que $ftp est une fonction connue de use Net::FTP non? si non comment je peux faire pour Déconnecter.
Et pour use strict et warnings , quand je l'utilise il m'affiche d'erreur et elle s'affiche pas ma fenêtre . Merci encore une fois

**djibril** · 18/12/2008, 23h24

récupère le script que je t'ai mis.

**s_radhouan** · 18/12/2008, 23h39

Envoyé par djibril

récupère le script que je t'ai mis.

Merci j'ai recupére ton script c'est bon pour une strict et warnings mais pour quit le meme erreur.

**djibril** · 19/12/2008, 02h44

$val_host n'existe nulle part et n'est définie nulle part.
Du coup, impossible de créer une connexion ftp, donc $ftp non définie.
De plus ton $host ne sert à rien => ça rajoute un message d'erreur.

$ftp->quit ne fonctionne pas car la méthode est appelé sur une variable qui n'est rien.

En gros tout se bazard car tes variables sont définie n'importe comment.

Voici un script qui fonctionne après correction :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
#!/usr/bin/perl
use strict;
use warnings;
use Tk; #Utilisation de Tk
use Net::FTP;
 
my ($val_user,$val_pass, $host, $ftp) =();
 
#Création de la fenêtre principale
my $fen = MainWindow->new();
#Définition de la taille min de la fenêtre
$fen->minsize('800','600');
#Définition du title de la fenêtre
$fen->title("Client Ftp");
#Création de la barre de menu
my $barre_menu = $fen->Frame(-relief => 'groove' , -borderwidth => 2);
#Création de la barre du menu général
my $menu_gen = $barre_menu->Menubutton(
  -text => 'Fichier' ,
  -font => '{Garamond} 10',
  -tearoff => 0 ,-menuitems => [
    [ 'command' => 'Quitter' ,
    -font => '{Garamond} 10',
    -command => \&Quitter
    ]
  ],
)->pack(-side=>"left",-expand=>1);
$menu_gen = $barre_menu->Menubutton(
	-text => 'help' ,
	-font => '{Garamond} 10',
	-tearoff => 0 ,-menuitems => [
	[ 'command' => 'help' ,
	-font => '{Garamond} 10',
	-command =>\&Quitter
	]])->pack(-side=>"left",-expand=>1);
 
#Affichage du menu général à gauche
$menu_gen->pack(-side => 'left');
#Affichage de la barre de menu en haut de la fenêtre
$barre_menu->pack(-side => 'top', -anchor => 'n', -fill => 'x');
#host
my $frame1 = $fen->Frame()->pack();
my $frameG = $frame1->Frame()->pack(-side=>'left',-pady=>5);
my $frameJ = $frame1->Frame()->pack(-side=>'right', -pady=>5);
my $frameI = $frame1->Frame()->pack(-side=>'right', -pady=>5);
my $frameD = $frame1->Frame()->pack(-side=>'right', -pady=>5);
my $frameE = $frame1->Frame()->pack(-side=>'right', -pady=>5);
my $frameF = $frame1->Frame()->pack(-side=>'right', -pady=>5);
my $frameH = $frame1->Frame()->pack(-side=>'right', -pady=>5);
 
$frameG->Label(-text=>'Host:')->pack(-side=>'right',-padx=>5);
$frameE->Label(-text=>'Port :')->pack(-side=>'right',-padx=>5);
$frameF->Label(-text=>'Pass :')->pack(-side=>'right',-padx=>5);
$frameH->Label(-text=>'User :')->pack(-side=>'right',-padx=>5);
 
$frameE->Entry(-width => '10',-textvariable => \$val_pass , #variable de récupération du texte saisi
-font => '{Garamond} 10',
)->pack(
-pady => '5', #Marge externe du bouton
-padx => '5',
-ipady => '5', #Marge interne du bouton
-ipadx => '5',
-side => 'left', #positionnement à gauche
-anchor => 'n' #positionnement en haut de la fenêtre
);
$frameF->Entry(-width => '10',-textvariable => \$val_user , #variable de récupération du texte saisi	
	-font => '{Garamond} 10',
)->pack(
	-pady => '5', #Marge externe du bouton
	-padx => '5',
	-ipady => '5', #Marge interne du bouton
	-ipadx => '5',
	-side => 'left', #positionnement à gauche
	-anchor => 'n' #positionnement en haut de la fenêtre
);
$frameH->Entry(-width => '20',-textvariable => \$host , #variable de récupération du texte saisi
	-font => '{Garamond} 10',
)->pack(
	-pady => '5', #Marge externe du bouton
	-padx => '5',
	-ipady => '5', #Marge interne du bouton
	-ipadx => '5',
	-side => 'left', #positionnement à gauche
	-anchor => 'n' #positionnement en haut de la fenêtre
);
 
 
 
#Ajout de la zone de saisie
$frameD->Entry(
-width => '3',-textvariable => '21', #variable de récupération du texte saisi
-font => '{Garamond} 10',
)->pack(
-pady => '5', #Marge externe du bouton
-padx => '5',
-ipady => '5', #Marge interne du bouton
-ipadx => '5',
-side => 'left', #positionnement à gauche
-anchor => 'n' #positionnement en haut de la fenêtre
);
$frameI->Button(
	        -text => 'Connect', #Texte du bouton
		-font => '{Garamond} 10', #Nom et taille de la police utilisée
		-command =>\&Connect,
		)->pack(
 
			-pady => '5', #Marge externe du bouton
 
		       	-padx => '5',
 
			-ipady => '5', #Marge interne du bouton
 
			-ipadx => '5'
						);
$frameJ->Button(
                -text => 'Deconnect', #Texte du bouton
	        -font => '{Garamond} 10', #Nom et taille de la police utilisée
		-command =>\&Deconnect,
	       )->pack(              
		       -pady => '5', #Marge externe du bouton
                       -padx => '5',							             -ipady => '5', #Marge interne du bouton
		       -ipadx => '5',						                                       );
 
#Définition de notre fonction de fermeture de l'application
sub Quitter {
  exit(0);
}
 
sub Connect {
  $ftp = Net::FTP->new($host) or die "Error connecting to $host: $!";
  $ftp->login($val_user,$val_pass) or die "Login failed: $!";
}
sub Deconnect {
	$ftp->quit or die "Error closing ftp connection: $!";  
}
 
MainLoop;

**s_radhouan** · 13/01/2009, 17h41

salut, je voudrais savoir comment modifié ce code pour afficher les répertoires du serveur ftp?merci

**djibril** · 13/01/2009, 17h49

Oui mais toi tu en es ou? Tu as déjà fait quoi, montre nous ton script.

**s_radhouan** · 15/01/2009, 18h15

Envoyé par djibril

Oui mais toi tu en es ou? Tu as déjà fait quoi, montre nous ton script.

Mais c'est mon script la.

**s_radhouan** · 15/01/2009, 21h01

je veux aussi ajouter du help
j'ai rajouté ce code à la fin du script et bien sur l'appel se fait au niveau du bouton crée au debut du script

Code :

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

1
2
3
4
5
6
7
8
sub help{
 
        $fen->Dialog(
                -title => 'Help',
                -text => $ftp->help
        )->Show();
 
}

quand je fais l'appel avec le bouton il m'affiche

Code :

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

1
2
3
 
Tk::Error: Can't call method "help" on an undefined value at prog.pl line 141.
 main::help at prog.pl line 141

Donc si vous pouvez m'aider à faire l'appel au help du ftp?Merci

Erreur ftp-> quit

Interfaces Graphiques Perl

Discussions similaires

Partager

Partager