view release on metacpan or  search on metacpan

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

        use vars qw($ARGS);

        my $replace = $ARGS && $ARGS->{replace};

        my $file = $_;
        my ($name, $ext);
        if ($file =~ /\A(.+)((?:\.\w+)+)\z/) {
            ($name, $ext) = ($1, $2);
            #say "ext=<$ext>";
        } else {
            warn "File does not have extension, won't guess if it's image, skipped: $file\n";
            return $file;
        }

        #my $existing_suffix;
        if ($name =~ s/(\.\d+x\d+)\z//) {
            unless ($replace) {
                warn "File already has image size suffix, not replacing, skipped: $file\n";
                return $file;
            }
            #$existing_suffix = $1;