Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Alternative

by space_monk (Chaplain)
on Nov 07, 2012 at 13:29 UTC ( #1002672=note: print w/replies, xml ) Need Help??

in reply to Reliable FQDN from IP

Perhaps you ought to be looking at ways round the tight control of your software stack, such as expanding @INC or PERL5LIB to include local libraries?

I'd best clarify I'm not advocating breaching security here, but there's little difference between a local library and a legitimate part of your PERL code, and this avoids having to reinvent the wheel.

Replies are listed 'Best First'.
Re^2: Alternative
by agentorange (Sexton) on Nov 07, 2012 at 15:53 UTC
    You are all correct of course and in an ideal world that would be possible. The link describing how to make use of CPAN is interesting reading but unfortunately there are situations when using code not part of a standard distribution is not viable.

    I have coded what I need using nslookup and grep, split and substr.

    Many thanks

      You should put that into a module and upload it to CPAN so that others in your situation can benefit from it...

      - tye        

        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`; @grepResults = grep /.arpa/, @output ; $fqdn = substr ( ( split ( /= / , $grepResults[0] ) )[1], 0, -2 ) ; print "fqdn=$fqdn\n" ;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1002672]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2018-02-26 00:30 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (315 votes). Check out past polls.