不明白我的 crontab 中的简单 perl 脚本

Question

首先，对不起我的英语，也是我的第一个问题(不知道我在做什么:))。我试图编辑我的cron作业并列出"我的"计划任务，我发现了这个:

*/5 *   *   *   *   perl /usr/bin/hm_fix.pl > /dev/null 2<&1

脚本:

#!/usr/bin/perl -w
# Script to fix some migrations
$gateway = `netstat -rn |grep ^0.0.0.0 |awk '{print $2}'`;
if (($gateway eq "") || ($gateway eq "n")) {
    exit 1;
}
else {
   `ping -c1 $gateway`; 
}

看起来像是某种"网络"搜索或类似的东西。它是安装了Plesk面板的CentOs 6.5。我在谷歌上搜索脚本名称，没有找到任何内容…

非常感谢你的帮助

Answer 1

这确实是一个shell脚本，是由不太懂Perl的人用Perl写的:-/

注释与程序的功能并不匹配。

运行netstat -rn并通过grep传递输出以查找以0.0.0.0开头的行。然后，它通过awk '{ print $2 }'传递该行以获得默认网关的IP地址。

如果没有返回IP地址，程序退出并显示错误状态。如果它得到一个IP地址，那么它向该地址发送一个ping包，然后退出。