未定义的子程序＆amp; main :: remove_tree调用

Question

我正在编写一个perl脚本，该脚本将发送有关打开案例数量的电子邮件，同时将删除超过30天的目录。

 $age = -M;
if($age > 30)
{
    remove_tree ($_);
}

这就是我正在做的事情。这个脚本运行正常，但30天后它停止运行，没有删除旧目录并抛出以下错误。

 Undefined subroutine &main::remove_tree called at /var/www/cgi-bin/remedy-case- 
  management/remedy-open-cases-script.pl line 35.

不确定我是如何解决这个问题的。

我从remove_tree行中删除了paranthesis，它抛出错误如下。    如果没有/ var / www / cgi-bin / remedy-case-management / remedy-open-cases-script.pl第35行中的包或对象引用，则无法调用方法“remove_tree”。

任何人都可以让我知道我在这里犯了什么错误吗？谢谢。

Answer 1

remove_tree是File::Path中的函数。

在使用该功能之前，请务必包含该模块：

use File::Path qw(remove_tree);

Answer 2

您似乎删除或注释了与

类似的行

use File::Path qw{ remove_tree };

请参阅File::Path。