作者 主題: perl 程式問題一問  (閱讀 2487 次)

0 會員 與 1 訪客 正在閱讀本文。

JOE神

  • 可愛的小學生
  • *
  • 文章數: 1
    • 檢視個人資料
perl 程式問題一問
« 於: 2003-05-06 22:02 »
請perl高手幫忙幫忙~

我想問在perl程式中,如何可以讀入一個檔案後,找出它的last access time?
另一個問題就是如何知道這一個last access time是距離今天以前多少天?

fletcher

  • 可愛的小學生
  • *
  • 文章數: 4
    • 檢視個人資料
Re: perl 程式問題一問
« 回覆 #1 於: 2003-05-15 14:15 »
引述: "JOE神"
請perl高手幫忙幫忙~

我想問在perl程式中,如何可以讀入一個檔案後,找出它的last access time?
另一個問題就是如何知道這一個last access time是距離今天以前多少天?


可使用檔案屬性測試符號-M 或 -A 傳回距離天數

open(FILE,"./udptest.pl");
$buf=(-M FILE);

或使用File::stat模組
例:
use File::stat;

my $st = stat($FILENAME);
my $gm2 = gmtime($st->mtime);
my $fdate = ($gm2->year() + 1900) . '-' . ($gm2->mon() + 1) . '-' . $gm2->mday();
## $fdate 為最後存取此檔的時間