Leser: 1
3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub find
{
$a = "$path/input.log";
$b = "$path/output.log";
my $session = Net::Telnet::Netscreen->new(
Host => $wan,
Timeout => "90",
Input_log => $a,
Output_log => $b
);
$session->login('user', 'password');
$command="commando";
$session->cmd($command);
$session->close;
}
open($fh, '>', \$variable)
3 Einträge, 1 Seite |