view release on metacpan or  search on metacpan

lib/App/perlmv/scriptlet/add_prefix_datestamp.pm  view on Meta::CPAN

        require POSIX;

        use vars qw($ARGS);

        my $re = $ARGS->{prefix_regex} // qr/\A[12][0-9]{3}(0[1-9]|10|11|12)([0-2][0-9]|30|31)-/;

        if ($ARGS->{avoid_duplicate_prefix} && $_ =~ $re) {
            return $_;
        }
        my @stat = stat($_);
        my $time   = defined $ARGS->{date} ? main::_parse_date($ARGS->{date}) : $stat[9];
        my $format = $ARGS->{prefix_format}  // ($ARGS->{with_time} ? '%Y%m%dT%H%M%S-' : '%Y%m%d-');
        my $prefix = POSIX::strftime($format, localtime($time));

        "$prefix$_";
    },
};

1;