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