怎么知道一个文件在一段时间内被访问的次数。我这脚本写得不好？

777

FREE # cat tmp
#!/usr/bin/perl -w
@time_access_old=system("ls" , "-luT" , "/etc/passwd" );
$count=0;
while (1) {
@time_access_now =system( "ls" , "-luT" , "/etc/passwd" );
if ( @time_access_old != @time_access_now ) {
$count++;
@time_access_old=@time_access_now;
last if ( $count == 6);
}
sleep (1);
}
print "OK,  successfully ! \n";

这是在FreeBSD的脚本，ls -luT的内容被输出了。要是在LINUX，显示精确的时间是ls -lu --full-time 详细看man

怎么能不输出呢，我只要结果:ask :ask:ask

KornLee

可以参考一下stat这个函数,;)

devel

在哪里呀？

KornLee

最初由 devel 发表
在哪里呀？

$time=(stat("filename"))[8];
这样,$time这个标量中被赋予了文件filename的最后访问时间~~

kiwen

不可能实现那样的目标的，程序得到的是不精确的结果，代码也有问题，system返回的是调用的返回状态，根时间没关系

home

最初由 kiwen 发表
不可能实现那样的目标的，程序得到的是不精确的结果，代码也有问题，system返回的是调用的返回状态，根时间没关系

:ask:ask

georgek

我也覺得這樣做不準確而且沒什麼意思, 不如在想監視的程序下手比較方便而且比較準確