I will take a look at doing that. Only been using Perl for 3-4 weeks so not up to speed on how I'd achieve it but I found a decent guide on here.
But would be good to give something back given how much help I got with my first steps from this site.
However I will admit to being slightly cautious of CPAN. I understand and completely appreciate that sharing code is to the benefit of others but excessive duplicate modules or those that overlap in functionality cause huge amounts of grief for newcomers - as I found! I ended up in a CPAN fog rather than focusing on coding what I wanted with Perl.
I addition I feel it can make people lazy. The below code to achieve what I required is trivial and linking in another module wasteful - at least in my eyes. :)
For the moment though here is the code
@output = `nslookup 10.1.1.1`;
@grepResults = grep /.arpa/, @output ;
$fqdn = substr ( ( split ( /= / , $grepResults[0] ) )[1], 0, -2 ) ;
print "fqdn=$fqdn\n" ;
|