ACIL FM
Dark
Refresh
Current DIR:
/home/.cpan/build/NetAddr-IP-4.079-0/blib/lib/auto/NetAddr/IP
/
home
.cpan
build
NetAddr-IP-4.079-0
blib
lib
auto
NetAddr
IP
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
InetBase
-
chmod
Open
Rename
Delete
Lite
-
chmod
Open
Rename
Delete
Util
-
chmod
Open
Rename
Delete
UtilPP
-
chmod
Open
Rename
Delete
.exists
0 B
chmod
View
DL
Edit
Rename
Delete
autosplit.ix
388 B
chmod
View
DL
Edit
Rename
Delete
canon.al
362 B
chmod
View
DL
Edit
Rename
Delete
coalesce.al
1.35 MB
chmod
View
DL
Edit
Rename
Delete
compactref.al
1.67 MB
chmod
View
DL
Edit
Rename
Delete
do_prefix.al
891 B
chmod
View
DL
Edit
Rename
Delete
hostenum.al
329 B
chmod
View
DL
Edit
Rename
Delete
mod_version.al
427 B
chmod
View
DL
Edit
Rename
Delete
nprefix.al
603 B
chmod
View
DL
Edit
Rename
Delete
prefix.al
605 B
chmod
View
DL
Edit
Rename
Delete
re.al
1.4 MB
chmod
View
DL
Edit
Rename
Delete
re6.al
1.83 MB
chmod
View
DL
Edit
Rename
Delete
short.al
500 B
chmod
View
DL
Edit
Rename
Delete
wildcard.al
485 B
chmod
View
DL
Edit
Rename
Delete
_compact_v6.al
1.01 MB
chmod
View
DL
Edit
Rename
Delete
_compV6.al
1 MB
chmod
View
DL
Edit
Rename
Delete
_splitplan.al
2.91 MB
chmod
View
DL
Edit
Rename
Delete
_splitref.al
936 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /home/.cpan/build/NetAddr-IP-4.079-0/blib/lib/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;
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply