Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^4: scandns.pl

by jdporter (Canon)
on Nov 14, 2013 at 20:21 UTC ( #1062655=note: print w/replies, xml ) Need Help??


in reply to Re^3: scandns.pl
in thread scandns.pl

I don't know, I think maybe you've made other changes to the code? Because when I run it with that exact argument — 209.197.123.153/29 — I get a result indicating that the IP address is valid.

I reckon we are the only monastery ever to have a dungeon stuffed with 16,000 zombies.

Replies are listed 'Best First'.
Re^5: scandns.pl
by taint (Chaplain) on Nov 14, 2013 at 21:20 UTC
    Greetings, jdporter.

    I just now copied the source from this page. Then only removed the
    ($x==4)
    from the offending line, and replaced it with your proposed solution
    ($x=0)
    then ran it;

    % ./scandns.pl 209.197.123.153/29 209.197.123.153 is an invalid address %
    I have no idea. The only possible difference(s) I can imagine, would be

       * differing OS's
       * differing versions of: IO::Socket or Net::Netmask
       * differing versions of Perl itself

    Sincerely confused.

    Best wishes.

    --Chris

    #!/usr/bin/perl -Tw
    use Perl::Always or die;
    my $perl_version = (5.12.5);
    print $perl_version;

      Please read my original reply again. My suggested fix was not to replace
      ($x==4)
      with
      ($x==0)

      but to replace
      my $x;
      with
      my $x=0;

      All I can say is, if this is the accuracy with which you approach programming, I would never hire you.

      I reckon we are the only monastery ever to have a dungeon stuffed with 16,000 zombies.
        In all fairness to both of us;

        Your last statement:

        Please read my original reply again. My suggested fix was not to repla +ce ($x==4) with ($x==0) but to replace my $x; with my $x=0;

        I think if you carefully go back over all this, you'll see neither of us suggested:

        ($x==4) with ($x==0)

        I'm going to take this opportunity to suggest that we'd both do well to drop this.

        It's all beginning to seem pretty silly. Don't you think? :)

        Best wishes, jdporter.

        --Chris

        #!/usr/bin/perl -Tw
        use Perl::Always or die;
        my $perl_version = (5.12.5);
        print $perl_version;

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2018-06-24 08:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (126 votes). Check out past polls.

    Notices?