Current Path : /proc/2/root/proc/3/root/usr/local/lib64/perl5/auto/NetAddr/IP/

Upload File :

Current File : //proc/2/root/proc/3/root/usr/local/lib64/perl5/auto/NetAddr/IP/do_prefix.al

# NOTE: Derived from blib/lib/NetAddr/IP.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package NetAddr::IP;

#line 493 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/do_prefix.al)"
sub do_prefix ($$$) {
    my $mask	= shift;
    my $faddr	= shift;
    my $laddr	= shift;

    if ($mask > 24) {
	return "$faddr->[0].$faddr->[1].$faddr->[2].$faddr->[3]-$laddr->[3]";
    }
    elsif ($mask == 24) {
	return "$faddr->[0].$faddr->[1].$faddr->[2].";
    }
    elsif ($mask > 16) {
	return "$faddr->[0].$faddr->[1].$faddr->[2]-$laddr->[2].";
    }
    elsif ($mask == 16) {
	return "$faddr->[0].$faddr->[1].";
    }
    elsif ($mask > 8) {
	return "$faddr->[0].$faddr->[1]-$laddr->[1].";
    }
    elsif ($mask == 8) {
	return "$faddr->[0].";
    }
    else {
	return "$faddr->[0]-$laddr->[0]";
    }
}

# end of NetAddr::IP::do_prefix
1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez