pass ip scan through subroutine as an argument

Is it possible to pass an nmap scan of any IP address through as a subroutine?

I am currently executing the scans like so:

('Nmap -v -r xx.xx.xxx.xxx p 1-10); Which works but I want to pass it through a subroutine. Can th开发者_开发知识库is be done?

You may want to try the Nmap::Parser module from CPAN.

The syntax seems pretty straightforward:

use Nmap::Parser;
my $np = new Nmap::Parser;
$np->parsescan($nmap_path, $nmap_args, @ips);