相关疑难解决方法(0)

这是我的Perl代码用于监视Unix文件夹的样子:

#!/usr/bin/perl
use strict;
use warnings;
use File::Spec::Functions;

my $date    = `date`; chomp $date;
my $datef   = `date +%Y%m%d%H%M.%S`; chomp $datef;
my $pwd     = `pwd`; chomp $pwd;

my $cache   = catfile($pwd, "cache");
my $monitor = catfile($pwd, "monme");
my $subject = '...';
my $msg     = "...";
my $sendto  = '...';
my $owner   = '...';

sub touchandmail {
     `touch $cache -t "$datef"`;
     `echo "$msg" | mail -s "$subject" $owner -c $sendto`;
}

while(1) {

    $date  = `date`; chomp $date;
    $datef …

有一个伙伴添加产品的新版本的目录.

列表看起来像这样

$ ls path-to-dir/
01
02
03
04
$

列出的数字不是文件,而是包含构建的目录的名称.

我必须每次手动去检查是否有新的版本.我正在寻找一种自动化方法,以便程序可以在path-to-dir/更新时向某些人(包括我)发送电子邮件.

• 我们是否有一个已经存在的实用程序或Perl库来执行此操作？

  inotify.h做了类似的事情,但我的内核不支持它(2.6.9).

我认为在Perl中可以有一个简单的方法.

• 你认为这会奏效吗？

  继续在Perl中运行一个循环ls path-to-dir/,例如每隔5分钟执行一次循环并将结果存储在一个数组中.如果发现新结果与旧结果不同,则会使用" 邮件"或" 电子邮件"发送电子邮件.