Re^4: Alternative (upload)

[agentorange]

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