文件操作 - trace_dns.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Net-DNS-0.72/demo/trace_dns.pl
编辑文件内容
#!/usr/bin/perl use strict; use warnings; use Net::DNS; use Net::DNS::Resolver::Recurse; my $res = Net::DNS::Resolver::Recurse->new; $res->recursion_callback(sub { my $packet = shift; $_->print for $packet->additional; printf(";; Received %d bytes from %s\n\n", $packet->answersize, $packet->answerfrom); }); $res->query_dorecursion(@ARGV);
修改文件时间
将文件时间修改为当前时间的前一年
删除文件