【新手】perl中如何实现 'tail -f'命令

tanggula2007

请问各位，perl中如何实现 'tail  -f'命令。

网上搜到一些方法，perl中提供了模块File::Tail
根据里面的参数，始终没有找到如何实现shell命令'tail -f'的方法。

学习perl一周多时间，现在困在这个地方，求各位大牛指点

cu_little_bird

直接看perldoc 文档，
给你个模板

1. #!/usr/bin/perl
   
2. use File::Tail;
   
3.          $file=File::Tail->new(name=>"yourfilename", interval=>1, maxinterval=>2,tail=>100);
   
4.          while (defined($line=$file->read)) {
   
5.              print "$line";
   
6.          }

复制代码

bikong0411

while，open和seek就能帮你实现

tanggula2007

回复 2# cu_little_bird


    非常感谢

tanggula2007

回复 3# bikong0411


    对C比较熟悉，但是perl刚刚上手，很多函数还不是太会用，其中就包括seek

先圣遗风

    被催，还要用验证码