App-FileTools-BulkRename

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: App-FileTools-BulkRename
requires:
  Carp: 0
  Clipboard: 0
  Config::IniFiles: 0
  Contextual::Return: 0
  Data::Dump: 0
  Data::Dumper: 0
  Encode: 0
  Exporter: 0
  File::Slurp: 0
  FindBin: 0
  Getopt::Long: 0
  IO::File: 0
  IO::Interactive: 0
  Lingua::EN::Titlecase: 0
  List::Util: 0
  Pod::Text::Termcap: 0

Makefile.PL  view on Meta::CPAN

    "bin/brn"
  ],
  "LICENSE" => "gpl",
  "NAME" => "App::FileTools::BulkRename",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Clipboard" => 0,
    "Config::IniFiles" => 0,
    "Contextual::Return" => 0,
    "Data::Dump" => 0,
    "Data::Dumper" => 0,
    "Encode" => 0,
    "Exporter" => 0,
    "File::Slurp" => 0,
    "FindBin" => 0,
    "Getopt::Long" => 0,
    "IO::File" => 0,
    "IO::Interactive" => 0,
    "Lingua::EN::Titlecase" => 0,
    "List::Util" => 0,
    "Pod::Text::Termcap" => 0,

bin/brn  view on Meta::CPAN

use IO::File;
use List::Util qw(min max);
use Text::ParseWords;

use App::FileTools::BulkRename::Docs qw(usage help manpage readme);
use App::FileTools::BulkRename::Errors;
use App::FileTools::BulkRename::UserCommands;

# for debug only.
use Data::Dump qw(dd pp dump);
use Data::Dumper;
# $Getopt::Long::debug = 1;

Getopt::Long::Configure(qw/bundling permute/);

# preload config options with defaults
my %cfg	=
  ( config    => "$ENV{HOME}/.config/brn.conf"
  , verbosity => 1
  );

lib/App/FileTools/BulkRename/UserCommands.pm  view on Meta::CPAN

#     # SCALARREF and ARRAYREF are autogenerated, so we don't
#     # bother defining them.
#     return
#       (
# 	::SCALAR  { $out		}
# 	::LIST    { split("\n",$out)	}
# 	::HASHREF { {}			}
#       );
#   }

use Data::Dumper;

sub _USER::rd
  { my @dirs = @_;

    push @dirs,$_ if !@dirs && defined($_);
    push @dirs,"." if !@dirs;

    my @ret;
    for my $dir (@dirs)
      {