perl 按时间排序

Miketanbin

如题:
        大体思路:在命令行上输入2008-01-1,将显示这天的所有文件及子目录的信息.        

        在此感谢大家的帮助.

sunrocs

这样行吗:

#!/usr/bin/perl -w
use strict;
print "Enter the date(yyyy-mm-dd): \n";
chomp(my $date=<STDIN>);
open (LIST,"ls -l |") or die "$!\n";
while(<LIST>){
        print $_ if("2008-".(split)[5] eq $date);
        }
close(LIST);

smonkey0

原帖由 Miketanbin 于 2008-8-4 11:23 发表
如题:
        大体思路:在命令行上输入2008-01-1,将显示这天的所有文件及子目录的信息.        

        在此感谢大家的帮助.

1. use File::Stat;提取文件时间信息及其他信息
   
2. use Date::Parse;比较时间
   

复制代码

这是土方法，不知道有没有现成的包。

一刀砍死

直接用SORT不就完了？

cobrawgl

use File::Find;

然后自己写歌 sub 实现你想要的功能就是了

newred

找一个递归显示文件 目录的程序，加上时间比较

0vk0

用SORT函数就可以了

forlorngenius

很关心那5分给谁了