Output XML pour Nmap::Scanner
Bonjour à tous!
Alors je tiens à dire dans un premier temps que je suis vraiment Novice... Mais que franchement, je suis litéralement tombé amoureux du language Perl (Pour mon boulot et mon utilisation perso').
Donc je viens sur le forum pour poser une question qui me tracasse, mais tout d'abord, n'ayant pas d'environnement UNIX sous la main, je travail sous ActivePerl(State) en version 4.19 sous un Windows 7 x64.
Donc mon script est le suivant (s'inspirant de l'exemple CPAN) " http://search.cpan.org/~maxschube/Nm...map/Scanner.pm ".
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| use strict;
use warnings;
use Nmap::Scanner;
my $scanner = new Nmap::Scanner;
$scanner->add_target('192.168.2.1');
$scanner->guess_os();
my $results = $scanner->guess_os();
print "Hash for get OS of 192.168.2.1\n";
print "$results\n\n";
print $results->as_xml();
my $scanner2 = new Nmap::Scanner;
$scanner2->add_target('192.168.2.1');
$scanner2->add_scan_port(8080);
my $results2 = $scanner2->add_scan_port(8080);
print "Hash for scan port of 192.168.2.1\n";
print "$results2"; |
Lorsque je lance ce petit script, le résultat est le suivant:
Can't locate object method "as_xml" via package "Nmap::Scanner" at C:\Users\*\Desktop\SCRIPT\audit.pl line 14."
J'ai beau chercher sur la toile, pas moyen de trouver comment résoudre ce problème... Après vue mon niveau, il est possible que ce soit du à ma mauvaise compréhension du code :aie:
Merci d'avance ;)
