用PERL 读取文件的一一些属性

HF.SKY000

UID: 28252
帖子: 3
积分: 6
在线时间: 10 分钟

1^# HF.SKY000 发表于 2008-11-11 14:30

用PERL 读取文件的一一些属性

#!usr/local/bin/perl -w

use strict;
use warnings;
use Data:umper;
use Time:arseDate;
use Date::Format;

my $path="/unicom/uniload/lxz";
#my $DIR;
#my $file;
my $to_time;
my $to_file;

opendir(ML,$path);
while(my @counter=readdir(ML)){
closedir(ML);
foreach $to_file(@counter) {
chomp($to_file);
$to_time=(stat($to_file))[9];
#my $current=parsedate($to_time);
#$current=time2str('%Y-%m-%d %H:00:00',$current);
print $to_file,"  ",$to_time,"\n";
}
}

结果都看不懂.
.  1226375050
..  1226382043
eri_sz_msc_dal.pl  1219822930
collect_step.pl  1219468347
rand_data.pl  1219913569
aa.pl  1220593908
read_file.pl  1219651593
aa.sh  1220953284
file_read  1219651265
bb.sh  1220675061
file_time.pl  1220693733
a.pl  1220674868
temp_time.txt  1220693546
read_file_time.pl  1226382087

请问:我本想获得文件的时间.但是结果好像看不懂,得怎么办?

[fly]php忠实网迷[/fly]

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2008-11-11 14:48

perldoc -f stat

HF.SKY000

UID: 28252
帖子: 3
积分: 6
在线时间: 10 分钟

3^# HF.SKY000 发表于 2008-11-11 16:26

加入PERL 语言爱好者群:37240144 共同学习.共同进步.

[fly]php忠实网迷[/fly]

redicaps

UID: 37436
帖子: 187
积分: 430
在线时间: 1 天 23 小时

4^# redicaps 发表于 2008-11-11 17:00

unix时间戳
被注释掉的代码有转换功能

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

5^# machine 发表于 2008-11-11 22:45

没转换格式。

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

6^# ynchnluiti 发表于 2008-11-12 00:06

print $to_file," ",ctime($to_time);

...
closedir ML;

HF.SKY000

UID: 28252
帖子: 3
积分: 6
在线时间: 10 分钟

7^# HF.SKY000 发表于 2008-11-12 12:09

ctime($to_time) 对时间戮有转换作用,格式是:
Sep 9 17:41:24 2008

呵呵,谢谢了

[fly]php忠实网迷[/fly]

HF.SKY000

UID: 28252
帖子: 3
积分: 6
在线时间: 10 分钟

8^# HF.SKY000 发表于 2008-11-12 12:16

.    512 2008-11-11 11:00:00
..    1536 2008-11-12 12:00:00
eri_sz_msc_dal.pl    1823 2008-08-27 15:00:00
collect_step.pl    549 2008-08-23 13:00:00
rand_data.pl    894 2008-08-28 16:00:00
aa.pl    5498 2008-09-05 13:00:00
read_file.pl    1796 2008-08-25 16:00:00
aa.sh    8075 2008-09-09 17:00:00
file_read    137783 2008-08-25 16:00:00
bb.sh    360 2008-09-06 12:00:00
file_time.pl    568 2008-09-06 17:00:00
a.pl    1084 2008-09-06 12:00:00
temp_time.txt    19 2008-09-06 17:00:00
read_file_time.pl    818 2008-11-12 12:00:00

以上是我们服务器上某一个目录下的一些文件,现在想将以上文件及文件大小还有时间写到一个文件里,文如:2008-11-10.log
这应该怎么写呀?

[fly]php忠实网迷[/fly]