Help for this page

Select Code to Download


  1. or download this
    while(<F>)
    {
...
        @split0= split(/ /, $_);
         @MYIP0=(@MYIP0,@split0);
        }
  2. or download this
    @MYIP0 = ( 'IP', 'Address', "192.168.1.1\r\n" )
  3. or download this
    while (<F> {
  if (/IP\sAddress\s+(\d+\.\d+\.\d+\.\d+)/) {
...
# even better, use 2 arg version of Net::Netmask->new2
$block = Net::Netmask->new2( $MYIP[0], '255.255.255.0');
...