[Perl] Connexion serveurs

Connexion serveurs [Perl] - Perl - Programmation

Marsh Posté le 12-10-2006 à 20:57:07    

Bonjour,
 
Je souhaiterais via un script Perl me connecter sur un serveur Unix et via un autre script sur un serveur Windows 2000 Serveur.
Une fois ces connexions établies, il faudrait que je puisse lancer des commandes sur ces serveurs.
 
Mon objectif est d'automatiser des traitements qui sont actuellement lancés manuellement.
Au passage, je suis complètement novice en programmation Perl et Perl me sert uniquement d'intermédiaire pour arriver à mes fins.
 
Accès Unix
Dans le serveur Unix, il faut que je puisse lancer des scripts .sh et .ksh
En manuel, j'utilise Putty pour m'y connecter en me connectant sur le serveur, puis login/mdp
 
Accès Windows serveur 2000
Sur ce serveur, il faut que je puisse lancer des commandes MS-DOS.
En manuel, je me connecte sur le serveur via un bureau à distance et idem login/mdp.
 
 
Avec le script Perl, j'ai réussi à me connecter sur Oracle et exécuter des scripts SQL après moult recherches et tests... mais pour mes connexions serveurs, je pêche complètement  :sweat: .
 
Avez vous des idées ou des liens qui pourraient me guider pour accéder aux serveurs et lancer mes traitements ?
 
Merci.
 

Reply

Marsh Posté le 12-10-2006 à 20:57:07   

Reply

Marsh Posté le 13-10-2006 à 16:27:04    

Bon j'ai réussi pour la partie Unix en passant par :
 

Code :
  1. use net::telnet;
  2. my $t = new Net::Telnet (Timeout=>undef) or die "Can't connect:$!";
  3. my $username = XXXX;
  4. my $passwd = XXXX;
  5. my $server = XXXX;
  7. $t->open($server);
  8. $t->login($username, $passwd);


 
J'essaierai plus tard pour ma connexion Windows.
 
Maintenant je bute sur un remplacement de chaînes de caractères c'est à dire un paramètre à remplacer par une variable.
 
Exemple :
lance_traitement.sh <date>
 
qui devient lance_traitement.sh 20061013 (la date est mon paramètre d'entrée dans le script Perl).
 
Merci.

Reply

Marsh Posté le 13-10-2006 à 16:32:19    

en ligne de commande, les paramètres passés à ton script perl se trouvent dans le tableau ARGV.
Par exemple  

Code :
  1. #!/usr/bin/perl
  2. use strict;
  4. print $ARGV[0]."--".$ARGV[1];


lancé avec

Code :
  1. perl test.pl a b


affichera

a--b


Message édité par anapajari le 13-10-2006 à 16:32:55
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed