Un peu d'aide en perl svp
drogba7213
Messages postés
1524
Date d'inscription
Statut
Membre
Dernière intervention
-
drogba7213 Messages postés 1524 Date d'inscription Statut Membre Dernière intervention -
drogba7213 Messages postés 1524 Date d'inscription Statut Membre Dernière intervention -
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
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();
A voir également:
- Un peu d'aide en perl svp
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- [Perl] WWW::Mechanize - Forum Perl
- DzSoft Perl Editor - Télécharger - Édition & Programmation
- Comment lire un fichier .pl perl ? - Forum Windows
5 réponses
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
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
excusez moi mais j'ai un soucis dans ma compilation voici mon code
pouvez vous me dire pourquoi rien ne s'éxécute svp?
#!/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?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question