标题有点长,这算是我第一个写出的Perl程序,主要是服务器太多的网站,而之前的管理工作没有做好,没有做对应的IP和域名对应。
我的Nginx主要是用来做前端反向代理的,里面n多的网站。
server { listen 0.0.0.0:80; server_name www.com; location / { proxy_set_header Host $host; proxy_pass http://1.1.1.1/; } }
这里面,0.0.0.0是用来监听端口对外公开的网站IP
www.com是域名(我没有用到这个地方,因为我的Nginx配置文件就是用域名.conf的格式命名的)
1.1.1.1是web服务器的IP,同样这里不需要用到这个东西
下面是Perl代码
my $dir = 'd:\v3'; my $csv = 'd:\v3.csv'; opendir DH,$dir or die 'can not open dir.'; open WFH,">>",$csv; foreach $file (readdir DH) { next if $file eq "." or $file eq ".."; #print $file."\n"; $file =~ m/(.*)\.conf/; $domain = $1; open FH,$dir.'\\'.$file or die 'file can not be open.'; while (defined($line = <FH>)) { chomp $file; if ($line =~ m/listen\s+(.*):80;/) { $ip = $1; } } close FH; print WFH "$domain,$ip\n"; } closedir DH;
解释一下,其中$dir是存放Nginx配置文件的目录,这里我给下载到本地windows电脑了
$csv是要保存到的excel文件(其实是可以用excel打开的逗号分隔文本文件)
PS:我不知道csdn的博客为何不支持perl高亮版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。