Un peu d'aide en perl svp

Fermé
drogba7213 Messages postés 1521 Date d'inscription mardi 14 août 2007 Statut Membre Dernière intervention 3 avril 2010 - 17 avril 2009 à 15:14
drogba7213 Messages postés 1521 Date d'inscription mardi 14 août 2007 Statut Membre Dernière intervention 3 avril 2010 - 20 avril 2009 à 08:28
Bonjour,

Je débute une application en perl et je suis complètement débutant dans ce langage qui a l'air particulier.
Je ne sais pas si je vais utiliser les bons thermes donc ne m'en tenez pas rigueur svp.

L'application consiste a tenter de se connecter a un ftp ssl
Je me suis renseigné sur le cpan et les modules approppié je pense avoir pris les bons bref.

Hélas malgré toute mes recherches je n'arrive pas à me connecter pourriez vous jeter un coup d'euil rpide a ces quelques lignes svp?

Merci d'avance

 use strict;
use Net::FTPSSL;


my $ftps = Net::FTPSSL->	new("192.168.0.69",
			Port=> 21,
			Encryption => EXP_CRYPT,
			Debug => 1)
			or die "Impossible de se connecter à Islo people";
	
$ftps->	login('photographe', 'passe')
	or die "Pas de login : ", $ftps->last_message();

$ftps->quit();

5 réponses

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 566
17 avril 2009 à 15:24
Salut,
my $ftps = Net::FTPSSL
0
drogba7213 Messages postés 1521 Date d'inscription mardi 14 août 2007 Statut Membre Dernière intervention 3 avril 2010 22
17 avril 2009 à 15:39
oui j'ai modifié exactement erreur de recopie de mon code lol

et donc je me connecte bien donc c'est parfait.

Hum est ce que vous pourriez me donner des liens pour que je me documente bien sur l'application que je souhaite réalisé.

D'une part instalé perl tk sous windows?
Ensuite les différents modules cpan ?
et puis si j'ai un problème dans mon code puis je vous alertez enfin pas comme la ou mais en ayant recherché un minimum lol
0
drogba7213 Messages postés 1521 Date d'inscription mardi 14 août 2007 Statut Membre Dernière intervention 3 avril 2010 22
17 avril 2009 à 19:46
excusez moi mais j'ai un soucis dans ma compilation voici mon code

 #!/usr/local/bin/perl
use Tk;	 #Utilisation de Tk
use Tk::ProgressBar;

#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('500','300');

#Définition du title de la fenêtre
$fen->title("Islo People");

#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 => 'Menu' ,
                                     -font => '{Garamond} 10',
                                     -tearoff => 0 ,
                                     -menuitems => [
                                                     [ 'command' => 'Quitter' ,
                                                       -font => '{Garamond} 10',
                                                       -command => \&Quitter
                                                     ]
                                                   ]
                                   );

#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');

#Ajout du label Hello World
$fen->Label(
             -text => "Islo people" ,
             -font => '{Garamond} 10',
           )->pack(
                    -anchor => 'ne',
                    -fill => 'x'
                  );


    $progress = $parent->ProgressBar(
        -width => 200,
        -length => 20,
        -anchor => 's',
        -from => 0,
        -to => 100,
        -blocks => 10,
        -colors => [0, 'green', 50, 'yellow' , 80, 'red'],
        -variable => \$percent_done
    );

    $progress->value($position);

#Création de notre barre de statut à l'aide d'un Label
$barre_statut = $fen->Label(-relief => 'groove', -text => "Islo people", -font => '{Garamond} 10');

#On l'ajoute en bas de la fenêtre afin de lui donner l'effet barre de statut
$barre_statut->pack( -side => 'bottom', -fill => 'both');

MainLoop;


pouvez vous me dire pourquoi rien ne s'éxécute svp?
0
drogba7213 Messages postés 1521 Date d'inscription mardi 14 août 2007 Statut Membre Dernière intervention 3 avril 2010 22
17 avril 2009 à 20:58
up
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
drogba7213 Messages postés 1521 Date d'inscription mardi 14 août 2007 Statut Membre Dernière intervention 3 avril 2010 22
20 avril 2009 à 08:28
up
0