免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1632 | 回复: 2
打印 上一主题 下一主题

请教个多进程问题 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2010-11-12 16:32 |只看该作者 |倒序浏览
本帖最后由 sky_peter 于 2010-11-12 16:34 编辑

#!/usr/bin/perl -w
use strict;
use Event::File::tail;
my %event;
our $watch;
sub read_file
{
my ($me, $line)=@_;

if($line=~/^\s*$/)
{
     print "truncate\n";
}
else
{
   sleep 2;
   my $pos=$watch->pos;
   print "$line\n";
#  print "$watch->id\n";
}
}
sub log_check
{
(my $file)=@_;
$watch=Event::File->tail( file => "$file", cb => \&read_file, timeout => '5' );
Event::loop;
}s
ub start_task
{
my ($arg)=@_;
my $pid=fork;
return 0 if $pid;
log_check($arg);
}

for my $filename (keys %{$event{log}})
{
   start_task("$filename");
   sleep 10;

}
主要是实现用多进程同时监控多个文件
代码没贴完,for循环中的$filename 代表一个文件名
当代码执行到 my $pos=$watch->pos;时会提示Event: trapped error in `Helper watcher for Event::File->tail ID:1': Can't locate object method "pos" via package "Event::File::tail" at monitor.pl line 44的错误.
百思不得其解.

论坛徽章:
0
2 [报告]
发表于 2010-11-12 16:53 |只看该作者
日,解决了position写成pos了.

论坛徽章:
0
3 [报告]
发表于 2010-11-12 22:13 |只看该作者
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP