view release on metacpan or  search on metacpan

script/filedetails.pl  view on Meta::CPAN

print
    "|| File || MD5 || Size (bytes) || Size (human) || File Creation Time || Last access time || Last modify time ||\n";

foreach my $file (@files) {
    $file = File::Spec->rel2abs($file);
    my $basename = basename($file);
    my $details = File::Details->new($file);

    my ( $hash, $size, $ctime, $actime, $mtime ) = (
        $details->hash, $details->size,
        ctime( stat($file)->ctime ),
        ctime( stat($file)->atime ),
        ctime( stat($file)->mtime )
    );

    my $hsize = $human->format($size);

    my $info = <<EOF;
| $basename | $hash | $size | $hsize | $ctime | $actime | $mtime |
EOF

    if ( $self->has_line_count ) {
        my $line_count;