按时间查找文件

Miketanbin

UID: 18355
帖子: 76
积分: 174
在线时间: 8 小时

1^# Miketanbin 发表于 2008-08-29 16:44

按时间查找文件

标题如上: 下面是源代码.
帮我看看,那里出了问题.

#! /usr/bin/env perl -w
use File::stat;
use time::localtime;
use Time::Local;
use POSIX 'strftime';

# get directory all information and format date output.

   print "Which directory?";
   chomp(my $dir = <STDIN>;
   if ($dir =~/^\s*$/){
        chdir or die "Can't chdir to your home directory: $!";
     }
     else {
        chdir $dir or die "Can't chdir to '$dir'!";
     }

   opendir FM,$dir or die "Can't opendir dot!";



   foreach  $files(sort readdir FM){

     $sb = stat ($files);

     $timeby = scalar localtime $sb->mtime;
     my $datetime = $timeby;
     my %month;
@month{ qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/ } = 0..11;
my (undef,$month, $day, $h, $m, $s, $year) = split /\W+/, $datetime;
my $time = timelocal($s,$m,$h,$day,$month{$month},$year);

$formattime = strftime "%Y-%m-%d %H:%M:%S", localtime($time);
print $formattime,"\t","$files","\t",$sb->size,"\n";
open (LOGF,">>mytest.txt"|| die "$!";
print LOGF $formattime,"\n";
close(LOGF);

}

open (LOGFILE,"mytest.txt" or die "$!";
@line = <LOGFILE>;
$input = <STDIN>;
foreach my $openlog(@line){
      if ($input eq $openlog){
               print $openlog,"$files";

      }
   }

closedir (FM);

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

2^# forlorngenius 发表于 2008-08-30 15:56

太长了点。呵呵

Miketanbin

UID: 18355
帖子: 76
积分: 174
在线时间: 8 小时

3^# Miketanbin 发表于 2008-09-02 09:57

#! /usr/bin/env perl -w
use File::stat;
use time::localtime;
use Time::Local;
use POSIX 'strftime';

# get directory all information and format date output.

   print "Which directory?";
   chomp(my $dir = <STDIN>;
   if ($dir =~/^\s*$/){
        chdir or die "Can't chdir to your home directory: $!";
     }
     else {
        chdir $dir or die "Can't chdir to '$dir'!";
     }

   opendir FM,$dir or die "Can't opendir dot!";



   foreach  $files(sort readdir FM){

     $sb = stat ($files);

     $timeby = scalar localtime $sb->mtime;
     my $datetime = $timeby;
     my %month;
@month{ qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/ } = 0..11;
my (undef,$month, $day, $h, $m, $s, $year) = split /\W+/, $datetime;
my $time = timelocal($s,$m,$h,$day,$month{$month},$year);

$formattime = strftime "%Y-%m-%d %H:%M:%S", localtime($time);
print $formattime,"\t","$files","\t",$sb->size,"\n";
open (LOGF,">>mytest.txt"|| die "$!";
print LOGF $formattime,"\n";
close(LOGF);

}

open (LOGFILE,"mytest.txt" or die "$!";
@line = <LOGFILE>;
$input = <STDIN>;
foreach my $openlog(@line){
      if ($input eq $openlog){
               print $openlog,"$files";

      }
   }

closedir (FM);

Miketanbin

UID: 18355
帖子: 76
积分: 174
在线时间: 8 小时

4^# Miketanbin 发表于 2008-09-02 09:59

怎么还有笑脸啊。。第一个笑脸是) 第二笑脸是第三个笑脸是第四个笑脸是) 第五个笑脸是)

changejun

UID: 25164
帖子: 1
积分: 2
在线时间: 10 分钟

5^# changejun 发表于 2008-09-02 15:49

疯了疯了