perl跨平台的问题

netawater

open(F, $File::Find::name) or die "open $File::Find::name error"; binmode(F); my $r = $loc{$File::Find::name} = {    # Plato Wu,2008/11/28 do not create MD5 for directory.    md5 => -d _ ? 0 : Digest::MD5->new->addfile(*F)->hexdigest,    mdtm => (stat(_))[9],    size => (stat(_))[7],    type => $type,             }; close F;

这段代码在linux下没有问题，但是到Windows平台上，首先是open不能打开目录，然后目录的修改时间和大小无法求到。
请问如何解决最好。

撒哈拉里的鱼

打开目录用opendir，获取文件大小可以用-s

netawater

原帖由 撒哈拉里的鱼 于 2008-12-2 12:30 发表
打开目录用opendir，获取文件大小可以用-s

那修改时间了？
那是没有跨平台的代码吧？

net_robber

我记得有个FILE模块可以跨平台的吧

netawater

原帖由 net_robber 于 2008-12-2 15:48 发表
我记得有个FILE模块可以跨平台的吧

谢谢，用File::stat搞定！