請問在Perl中如何取得文件的生成時間和最后修改時間？

dbetter

文件生成時間一直不知道怎么取，文件最后修改時間用stat("filename"[9]好像不大對，具體該怎么做？請指教，謝謝！

apile

perldoc -f stat

dbetter

to apile   :
我看過這個命令，但是通過實踐感覺stat("filename"[9]好像并不像幫助中說的是最后修改時間啊。另外，stat("filename"[9]是生成時間嗎？

apile

1. 
   
2.                     1 ino      inode number
   
3.                     2 mode     file mode  (type and permissions)
   
4.                     3 nlink    number of (hard) links to the file
   
5.                     4 uid      numeric user ID of file's owner
   
6.                     5 gid      numeric group ID of file's owner
   
7.                     6 rdev     the device identifier (special files only)
   
8.                     7 size     total size of file, in bytes
   
9.                     8 atime    last access time in seconds since the epoch
   
10.                     9 mtime    last modify time in seconds since the epoch
    
11.                    10 ctime    inode change time (NOT creation time!) in seconds since the epoch
    
12.                    11 blksize  preferred block size for file system I/O
    
13.                    12 blocks   actual number of blocks allocated
    
14. 
    

復(fù)制代碼

第九個 是modify time...你要用
stat('filename')[8]
請用perl的array來思考....
生成時間...沒有辦法抓到..

dbetter

原來如此，我一直取的是[9]!
God Damn!
怪不得一直不對，謝了！

dbetter

不對，你好像弄錯了，我用perldoc -f stat 來看，還有0，你沒列出來。也就是說，我取9取的是mtime沒錯

flw

這樣試一下：

apile

[quote]原帖由 "dbetter"]不對，你好像弄錯了，我用perldoc -f stat 來看，還有0，你沒列出來。也就是說，我取9取的是mtime沒錯[/quote 發(fā)表：

sorry..少列了一項...另外一個可能
你沒用localtime轉(zhuǎn)成目前時間...

dbetter

感謝回復(fù)，請問你說的用localtime轉(zhuǎn)換成當(dāng)前時間是什么意思？我要的只是文件的最后修改時間��？

apile

因為他回傳的是1970/1/1 0:0分到目前的秒數(shù)..所以要用localtime轉(zhuǎn)成看得懂得數(shù)字..