📄 make_ip_del.pl
字号:
#!/usr/bin/perl -wuse strict;while (<>) { chomp; s/^\s*(.*)\s*$/$1/; s/\s*#.*$//; next if /^$/; die "format error: $_" unless (/^([\d\.]+)\/(\d+)\s+([\w\.]+)$/); my $m=$2; my $s=$3; my ($i1, $i2, $i3, $i4)=split(/\./, $1); print "{ ".(($i1<<24)+($i2<<16)+($i3<<8)+$i4)."UL, ". (~(0xffffffff>>$m))."UL, \""; if ($s =~ /\./) { print "$s"; } else { print "whois.$s.net"; } print "\" },\n";}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -