Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: How to include a variable in output for derived subnets

by poj (Prior)
on Jun 22, 2013 at 17:16 UTC ( #1040280=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use Socket;
    ...
      my $subnet_ip = Socket::inet_ntoa pack "N", $subnet_ipn; 
      printf "%-20s %s %x %s\n","$ip/$len",$ipn,$maskn,$subnet_ip;
    }
    
  2. or download this
    IP                   IPN        Mask      Subnet
    192.168.1.1/30       3232235777 3fffffffc 192.168.1.0
    ...
    192.168.1.8/30       3232235784 3fffffffc 192.168.1.8
    192.168.1.9/30       3232235785 3fffffffc 192.168.1.8
    etc
    
  3. or download this
    $subnets{"$ip,$len"}{ipn}   = $ipn;
    $subnets{"$ip,$len"}{maskn} = $maskn;
    if ( $subnets{"$ip,$len"}{'comment'} eq '' ){
      $subnets{"$ip,$len"}{'comment'} = $comment;
    } 
    
  4. or download this
    $subnets{"$ip,$len"} = { ipn => $ipn, maskn => $maskn };
    
  5. or download this
    print "subnet,prefix,name\n";
    print "$_,$subnet{$_}{'comment'}\n"
       for sort { $subnets{$a}{ipn} <=> $subnets{$b}{ipn} };
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1040280]
help
Chatterbox?
[stevieb]: yeah, so the wiringPi library appears to be missing/injecting incorrect defined variables into I2C calls, and it's all over the map. I'm going to have to revisit and use something else, write something else, or scrutinize the code and fix

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2017-06-23 00:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (532 votes). Check out past polls.