9

私は少しの間グーグルとオーバーフローを行ってきましたが、使用できるものを見つけることができませんでした.

パブリック フォルダーを監視し、新しいファイルの作成をトリガーして、ファイルをプライベートな場所に移動するスクリプトが必要です。

Windowsに/exam/ple/マッピングされたUNIX上のsamba共有フォルダーがあります。X:\特定のアクションでは、txt ファイルが共有に書き込まれます。/pri/vateフォルダーに表示されるtxtファイルを誘拐し、UNIXのプライベートフォルダーに配置したい。そのファイルが移動された後、別の perl スクリプトをトリガーしたいと考えています。

EDIT 誰かがアイデアを持っている場合は、まだシェルスクリプトを見るのを待っています...新しいファイルを監視し、次のようなものを実行するもの:

#!/bin/ksh
mv -f /exam/ple/*.txt /pri/vate
4

8 に答える 8

9

incronを確認してください。それはまさにあなたが必要とすることをするようです。

于 2009-10-07T20:30:46.257 に答える
6

私の理解が正しければ、このようなものが欲しいだけですか？

#!/usr/bin/perl

use strict;
use warnings;

use File::Copy

my $poll_cycle = 5;
my $dest_dir = "/pri/vate";

while (1) {
    sleep $poll_cycle;

    my $dirname = '/exam/ple';

    opendir my $dh, $dirname 
        or die "Can't open directory '$dirname' for reading: $!";

    my @files = readdir $dh;
    closedir $dh;

    if ( grep( !/^[.][.]?$/, @files ) > 0 ) {
        print "Dir is not empty\n";

        foreach my $target (@files) {
            # Move file
            move("$dirname/$target", "$dest_dir/$target");

            # Trigger external Perl script
            system('./my_script.pl');
    }
}
于 2009-10-07T20:38:56.427 に答える
5

File::ChangeNotify を使用すると、ファイルとディレクトリの変更を監視できます。

https://metacpan.org/pod/File::ChangeNotify

于 2009-10-07T23:58:35.487 に答える
3

私はパーティーに遅れていますが、完全性と将来の訪問者への情報提供のために。

#!/bin/ksh
# Check a File path for any new files
# And execute another script if any are found

POLLPATH="/path/to/files"
FILENAME="*.txt" # Or can be a proper filename without wildcards
ACTION="executeScript.sh argument1 argument2"
LOCKFILE=`basename $0`.lock

# Make sure we're not running multiple instances of this script
if [ -e /tmp/$LOCKFILE ] ; then 
     exit 0
else
     touch /tmp/$LOCKFILE
fi

# check the dir for the presence of our file
# if it's there, do something, if not exit

if [ -e $POLLPATH/$FILENAME ] ; then
     exec $ACTION
else
     rm /tmp/$LOCKFILE
     exit 0
fi

cronから実行します。

*/1 7-22/1 * * * /path/to/poll-script.sh >/dev/null 2>&1

後続のスクリプト（$ ACTION）でロックファイルを使用し、終了時にクリーンアップして、スタッキングプロセスがないようにします。

于 2013-02-28T08:29:56.887 に答える
2 
$ python autocmd.py /exam/ple .txt,.html /pri/vate some_script.pl

利点:

autocmd.py :

#!/usr/bin/env python
"""autocmd.py 

Adopted from autocompile.py [1] example.

[1] http://git.dbzteam.org/pyinotify/tree/examples/autocompile.py

Dependencies:

Linux, Python, pyinotify
"""
import os, shutil, subprocess, sys

import pyinotify
from pyinotify import log

class Handler(pyinotify.ProcessEvent):
    def my_init(self, **kwargs):
        self.__dict__.update(kwargs)

    def process_IN_CLOSE_WRITE(self, event):
        # file was closed, ready to move it
        if event.dir or os.path.splitext(event.name)[1] not in self.extensions:
           # directory or file with uninteresting extension
           return # do nothing

        try:
            log.debug('==> moving %s' % event.name)
            shutil.move(event.pathname, os.path.join(self.destdir, event.name))
            cmd = self.cmd + [event.name]
            log.debug("==> calling %s in %s" % (cmd, self.destdir))
            subprocess.call(cmd, cwd=self.destdir)
        except (IOError, OSError, shutil.Error), e:
            log.error(e)

    def process_default(self, event):
        pass


def mainloop(path, handler):
    wm = pyinotify.WatchManager()
    notifier = pyinotify.Notifier(wm, default_proc_fun=handler)
    wm.add_watch(path, pyinotify.ALL_EVENTS, rec=True, auto_add=True)
    log.debug('==> Start monitoring %s (type c^c to exit)' % path)
    notifier.loop()


if __name__ == '__main__':
    if len(sys.argv) < 5:
       print >> sys.stderr, "USAGE: %s dir ext[,ext].. destdir cmd [args].." % (
           os.path.basename(sys.argv[0]),)
       sys.exit(2)

    path = sys.argv[1] # dir to monitor
    extensions = set(sys.argv[2].split(','))
    destdir = sys.argv[3]
    cmd = sys.argv[4:]

    log.setLevel(10) # verbose

    # Blocks monitoring
    mainloop(path, Handler(path=path, destdir=destdir, cmd=cmd,
                           extensions=extensions))
于 2009-10-08T19:52:22.310 に答える
1

私はkshを使用しませんが、shを使用する方法は次のとおりです。kshに簡単に適応できると確信しています。

#!/bin/sh
trap 'rm .newer' 0
touch .newer
while true; do
  (($(find /exam/ple -maxdepth 1 -newer .newer -type f -name '*.txt' -print \
      -exec mv {} /pri/vate \; | wc -l))) && found-some.pl &
  touch .newer
  sleep 10
done
于 2011-01-15T22:01:34.493 に答える
1

これにより、かなりの量の io - stat() 呼び出しなどが発生します。実行時のオーバーヘッドなしで迅速な通知が必要な場合 (ただし、事前の労力がかかります)、FAM/dnotify: link textまたはlink textをご覧ください。

于 2009-10-08T01:29:15.063 に答える
0 
#!/bin/ksh
while true
do
    for file in `ls /exam/ple/*.txt`
    do
          # mv -f /exam/ple/*.txt /pri/vate
          # changed to
          mv -f  $file  /pri/vate

    done
    sleep 30
done
于 2009-10-08T14:58:08.287 に答える