Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^4: Alternative (upload)

by agentorange (Sexton)
on Nov 08, 2012 at 09:45 UTC ( #1002854=note: print w/ replies, xml ) Need Help??


in reply to Re^3: Alternative (upload)
in thread Reliable FQDN from IP

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


Comment on Re^4: Alternative (upload)
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1002854]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (8)
As of 2014-12-23 01:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (133 votes), past polls