1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/perl use strict; use warnings; use File::Find::Rule; my $directory = '\\path\'; my @files = File::Find::Rule->file->in( $directory ); for my $file ( @files ) { my $size = -s $file; my $mtime = -M $file; print sprintf "%s;%s;%s\n", $file, $size, $mtime; }