view bin/rmcrc @ 635:5d3ce722285a

Use function keys for some functions
author nanaya <me@nanaya.pro>
date Mon, 13 Jan 2020 00:19:42 +0900
parents 66c32422a3d4
children
line wrap: on
line source

#!/usr/bin/env perl

use warnings;
use strict;
use File::Basename;

my @files = @ARGV or print("Usage: ",basename($0)," file1 ... fileN\n") && exit(1);
my $skip=0;
foreach (@files) {
  print(qq(Could not find file "$_", skipping\n)) and next() unless -e $_;
  my $newname = $_;
  $newname =~ s/\[[[:xdigit:]]{8}\]//i;
  $newname =~ s/ *(\.\w+)$/$1/;
  print(qq($_: $newname already exists, skipping\n)) and next() if -e $newname and $_ ne $newname;
  if ($_ eq $newname) {
    print("$_: no need to rename, skipping\n");
  } else {
    if($skip==1) { print("Result: $_ --> $newname\n"); }
    else {
      if(rename($_, $newname)) { print("$_ -> $newname\n"); }
      else { print("$_: rename failed\n"); }
    }
  }
  next();
}

exit(0);