Discussion :

[SupraPF]

Bonjours à tous , voici mon code :

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";
}

mais le problème c'est que j'ai toujours un message d'erreur , et le dernier en date est :
.


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 ...