【新手】perl中如何實(shí)現(xiàn) 'tail -f'命令

tanggula2007

請(qǐng)問各位，perl中如何實(shí)現(xiàn) 'tail  -f'命令。

網(wǎng)上搜到一些方法，perl中提供了模塊File::Tail
根據(jù)里面的參數(shù)，始終沒有找到如何實(shí)現(xiàn)shell命令'tail -f'的方法。

學(xué)習(xí)perl一周多時(shí)間，現(xiàn)在困在這個(gè)地方，求各位大牛指點(diǎn)

cu_little_bird

直接看perldoc 文檔，
給你個(gè)模板

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.          }

復(fù)制代碼

bikong0411

while，open和seek就能幫你實(shí)現(xiàn)

tanggula2007

回復(fù) 2# cu_little_bird


    非常感謝

tanggula2007

回復(fù) 3# bikong0411


    對(duì)C比較熟悉，但是perl剛剛上手，很多函數(shù)還不是太會(huì)用，其中就包括seek

先圣遺風(fēng)

    被催，還要用驗(yàn)證碼