Perl

[Perl] Connexion serveurs

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Connexion serveurs

Misko

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.

Publicité

Misko

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

Code :

use net::telnet;
my $t = new Net::Telnet (Timeout=>undef) or die "Can't connect:$!";
my $username = XXXX;
my $passwd = XXXX;
my $server = XXXX;
$t->open($server);
$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.

anapajari

s/travail/glanding on hfr/gs;

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

Code :

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

lancé avec

Code :

perl test.pl a b

affichera

a--b

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

FORUM HardWare.fr

Programmation

Perl

[Perl] Connexion serveurs

Sujets relatifs
est ce possible en perl ?	perl et xslt ???
[SAP] Connexion RFC qui s'interrompt	sql server, perl et linux
Besoin d'explications sur un script CGI/Perl	[VB6] Comment fermer une connexion distante ouverte avec INET ?
PhpMyAdmin - Rejet de la connexion	[PERL] regexp avec caractres spéciaux
Net::SSH::Perl problème d'authentification	Créer des script Perl
Plus de sujets relatifs à : [Perl] Connexion serveurs

Page générée en 0.047 secondes