$folder = "test"; 
 
use File::Find; 
use Cwd; 
my $dir=cwd() . "/" . $folder; 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);$mon += 1;$year += 1900; 
my $dir2=cwd() . "/" . $folder . "_" . "$year$mon$mday"; 
 
print "$dir2\n"; 
@data1 = (); 
$dfile = "date--.txt"; 
 
 
 
 
 
find(\&print_file, $dir); 
 
sub print_file { 
$file = $_; 
$path = $File::Find::name; 
@stat_inf = stat $path; 
$fsize =$stat_inf[7]; 
($mday,$mon,$year) = (localtime($stat_inf[9]))[3..5];$mon += 1;$year += 1900; 
$fddd = "$year年$mon月$mday日"; 
if ($fsize != 0) {push @data1,"$path,$year年,$mon月,$mday日"}; 
 
} 
printf "@data1"; 
$line = <STDIN>; 
open(OUT, ">$dfile"); 
foreach $ddd ( @data1 ) {print OUT "$ddd\n";};close(OUT);