perl如何监控文件

mousejsh

UID: 4986
帖子: 94
积分: 216
在线时间: 12 小时

1^# mousejsh 发表于 2008-03-01 00:35

perl如何监控文件

现在有几个文件，想使用perl来实时的监控这些文件变化。如果某个发生了变化就将这个文件变化的部分打印出来！
有没有什么好的办法或者告诉我用哪个mode！谢谢了！

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-03-01 00:57

什么操作系统？

col.g

UID: 26534
帖子: 66
积分: 151
在线时间: 6 小时

3^# col.g 发表于 2008-03-01 02:05

新手瞎说一句：

1、定期检查文件的修改时间，如果和上次的变化了，那么就确定该文件被修改（并保存当前的修改时间为比较标志）

2、如果确定该文件被修改，那就比较该文件和的变化并打印出来（并保存当前文件以作下一次文件比较）

只想到这样做，不过感觉这办法好老土。而且当文件较大的时候，是很烦人的。再有一个就是，我不知道PERL读文件的时候，该文件会不会被锁住;如果被锁住，对该文件的更新不知道有没有影响。

79hy

UID: 34540
帖子: 43
积分: 98
在线时间: 2 小时

4^# 79hy 发表于 2008-03-02 14:16

如果文件不大就把文件按行做个hash，并计算文件的原始md5码。判断md5码的变化，如果不同，就比对一次差异。呵呵。前提就是文件不能太大。大了，就只能把文件的原始本保留，发现md5不同，就直接用diff得出不同就好了。

个人浅见。呵呵

mousejsh

UID: 4986
帖子: 94
积分: 216
在线时间: 12 小时

5^# mousejsh 发表于 2008-03-03 08:55

本人用的是redhat as4 操作系统。现在用File::Modified,只能是哪个文件发生变化了。但没有将变化的部分打印出来，我现还想要变化的部分显出来，保存文件也可以。

maxxfire

UID: 39267
帖子: 167
积分: 384
在线时间: 1 天 14 小时

6^# maxxfire 发表于 2008-03-03 09:57

这个文件是不是像日志那样追加的，如果那样，直接管道打开tail命令
open(FILE,"tail -F $FILE | ")

mousejsh

UID: 4986
帖子: 94
积分: 216
在线时间: 12 小时

7^# mousejsh 发表于 2008-03-03 10:08

tail -F 好像是一直打开吧。有新的内容就会显示出来。但不会是变化的内容打印出来！
现在新的内容和老的内容不容易分便开来。

maxxfire

UID: 39267
帖子: 167
积分: 384
在线时间: 1 天 14 小时

8^# maxxfire 发表于 2008-03-03 10:21

现在的做法都是从判断文件是否变化入手，如果可以有比如监控某个inode的钩子，任何写入这个inode的数据都可以钩出来那最好了。。

yang-wei

UID: 8508
帖子: 124
积分: 285
在线时间: 21 小时

9^# yang-wei 发表于 2008-03-04 17:39

类似于cvs版本控制。

Ecore

UID: 27927
帖子: 2
积分: 4
在线时间: 10 分钟

10^# Ecore 发表于 2008-03-12 19:38

程序启动的时候,读取文件长度.文件上次修改时间.然后保存..不停的读时间,初始的时间做对比,只要有变化就打印.

1.取动perl脚本.设置初始的
时间变量
文件偏移变量

2.不停的读到时间,并与时间变量中的值做对比..只要时间改变了..将这个改变后的值.赋给时间变量.

3.读取文件偏移..打开文件,将文件偏移变量中的值做为起始输出位置,到当前读取到的文件偏移位置..

就这样不停的循环.

好下效率很低下啊.