Bonjours à tous , voici mon code :
mais le problème c'est que j'ai toujours un message d'erreur , et le dernier en date est :
Code perl : 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 use warnings; use strict; use Term::ReadKey my %connect = ( "host" => "", "login" => "", "password" => "", ); print "## IDENTIFICATION ## \n"; print " Host (IP) :\t"; $connect{host}=<>; chomp $connect{host}; print "Login :\t"; $connect{login}=<>; chomp $connect{login}; print "Password : "; ReadMode('noecho'); $connect{password}=<>; chomp $connect{password}; ReadMode(0); print "ip = $connect{host}"; print "login = $connect{login}"; print "password = $connect{password}"; test(\%connect); sub test { my %auth = @_; my $host = $auth{host}; my $mdp = $auth{password}; my $ndc = $auth{login}; print "host = $host\n"; print "mdp = $mdp\n"; print "ndc = $ndc\n"; }
.
Le truc c'est que j'ai fait un script initial qui se connecte à un 4507 , qui récupère les vlans et qui leur ajoute un code client dans le nom et renvoie la config.
J'ai donc fait 3 fonction : une pour récupérer la conf , une pour le traitement et une pour le renvoi.
Je voulais faire un hash pour ne pas avoir à me connecter deux fois dans la première et dernière fonction et le passé en argument mais je n'y arrives pas :/
J'ai pourtant suivit les cours ichttp://lhullier.developpez.com/tutoriels/perl/intro/ et j'ai essayer de regarder http://perl.developpez.com/faq/perl/...depuis-Windows mais que j'essaye de manière différente me donne aussi des erreurs que je comprend pas ...
Partager