anime_rename

   1 #!/bin/env perl
   2 # anime_rename: A script to rename arbitrary anime chapters (it can rename any
   3 #               kind of files of course, but that is the reason why i code it)
   4
   5 use warnings;
   6 use Getopt::Long;
   7
   8 our %options;
   9
  10 $options{'-h --help'}= "Shows help and exit.";
  11 $options{'-p --prefix'}="Sets the prefix of each file.";
  12 $options{'-d --debug'}="Show debug information.";
  13 $options{'-s --simulate'}="Do nothing just print what it will do (implies -d)";
  14
  15 sub
  16 debug_eval
  17 {
  18   my $string = join '', @_;
  19   print "$string" if $debug_eval;
  20   eval "$string" unless $simulate;
  21 }
  22
  23 sub
  24 show_help
  25 {
  26   my ($option, $description, $format_top);
  27
  28   $format_top="format STDERR_TOP =\n"
  29     . "$0 ".
  30     join(' | ', map {s/^[[:space:]]*([^[:space:]]+).*$/$1/g;$_} keys %options)
  31     . " <files to rename>"."\n"
  32     . ".\n";
  33
  34   eval "$format_top";
  35
  36 format STDERR =
  37 ~~^<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  38   $option,          $description
  39 .
  40
  41   write STDERR while ( ($option, $description ) = each  %options);
  42   exit 1
  43 }
  44
  45 #####################################################################
  46 # MAIN                                                              #
  47 #####################################################################
  48
  49 our ($debug_eval, $simulate);
  50
  51 my $prefix;
  52
  53 GetOptions ( "help|h" => \&show_help
  54     , 'prefix|p=s'=>\$prefix
  55     , 'debug|d' => \$debug_eval
  56     , 'simulate|s' => sub{ ($simulate,$debug_eval)=(1,1)}
  57     );
  58
  59 unless (@ARGV)
  60 {
  61   print STDERR "$0 needs an argument!\n"
  62     . "$0 --help for usage\n"
  63     ;
  64
  65   exit 1
  66 }
  67
  68 die "ERROR: I need a -p option (see $0 -h for usage)\n" unless $prefix;
  69
  70 foreach my $file (@ARGV)
  71 {
  72   my ($basedir, $numeric_id, $extension) =
  73   ( $file =~ m|^(.*/)?[^[:digit:]]*\W?([[:digit:]]{2})\W?.*\.(.*)$|);
  74
  75   $basedir = './' unless $basedir;
  76   $numeric_id = '' unless $numeric_id;
  77   $extension = '' unless $extension;
  78
  79   debug_eval "rename '$file', '$basedir${prefix}_${numeric_id}.$extension'\n"
  80     if $basedir or $numeric_id or $extension;
  81 }