File Coverage

blib/lib/File/Irenamer.pm

Criterion	Covered	Total	%
statement	15	90	16.6
branch	0	42	0.0
condition	0	7	0.0
subroutine	5	11	45.4
pod	0	6	0.0
total	20	156	12.8

package File::Irenamer;
##############################################################################
#  $Id: Irenamer.pm,v 1.3 2004/11/07 13:59:23 bheckel Exp bheckel $
#
#  $Log: Irenamer.pm,v $
#  Revision 1.3  2004/11/07 13:59:23  bheckel
#  Adjust docs
#
#  Revision 1.2  2004/11/07 02:30:36  bheckel
#  Cleaned up release for initial upload to CPAN
#
#  Revision 1.1  2004/11/07 02:29:39  bheckel
#  Initial revision
#
##############################################################################
use 5.008002;
use strict;
use warnings;
use Getopt::Std;
use File::Find;

require Exporter;

our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw(
  InteractiveRename
);
our $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/o);
our %opts;

getopts('drv', \%opts);


# Main
sub InteractiveRename {
  my (@options) = @_;

  $opts{d} = 1 if grep { /debug/ } @options;
  $opts{r} = 1 if grep { /recurse/ } @options;
  $opts{v} = 1 if grep { /verbose/ } @options;

  if ( $ARGV[0] ) {
    # Remove user's trailing slash if necessary.
    $ARGV[0] =~ s#/$##;
  } else {
    # Default to current working dir.
    $ARGV[0] = '.';
  }

  print "DEBUG \$ARGV[0] is $ARGV[0]\n" if $opts{d};

  RenameFiles(ParseChanges(EditFilesInEditor(ReadFiles($ARGV[0]))));

  exit 0;
}


my @FILES;
sub Wanted {
  -f $_ and push @FILES, $File::Find::name;
}


sub ReadFiles {
  my $dir = shift;

  @FILES = ();

  die "ERROR: no input directory in ReadFiles().  Exiting.\n" if ! $dir;

  if ( $opts{r} ) {
    find \&Wanted, $dir;
  } else {
    opendir DH, "$dir" or die "Error: $0: $!";
    @FILES = grep { !/^..?$/ && !-d } map "$dir/$_", readdir DH;
    close DH;
  }

  return @FILES;
}


sub EditFilesInEditor {
  my @orignames = @_;

  my $rand = int(rand(42)) + time + $$;
  my $tmpfile = "$ENV{TMP}/renamer-pl.$rand.tmp";
  open TMPF, ">$tmpfile" || die "Can't create $tmpfile in $ENV{TMP}: $!\n";

  print TMPF <<"EOT";
#
# Changes to these filenames will be made after exiting this
# tempfile.  Delete all lines to cancel.
#
EOT

  for ( @orignames ) {
    print TMPF "$_\n";
  }

  close TMPF;

  system "$ENV{EDITOR} $tmpfile";

  # We make changes to $tmpfile within our favorite editor...Vim, right? ;-)

  open TMPF, "<$tmpfile" || die "Can't open $tmpfile : $!\n";
  my @newnames = ;
  @newnames = grep { !/^#/ } @newnames;

  if ( $opts{d} ) {
    close TMPF;
    print "DEBUG: $tmpfile\n";
  } else {
    # TODO only if user does not cancel
    close TMPF && unlink $tmpfile;
  }

  return \@orignames, \@newnames;
}


# Parse saved editor diffs into a hash.
sub ParseChanges {
  my $origarrref = shift;
  my $newarrref = shift;

  if ( scalar @$origarrref != scalar @$newarrref ) {
    die "ERROR: Problem with parsing filename change file.\nDifferent " .
        "number of files in old vs. new.  Exiting.\n";
  }

  my %same = map { $_, 1 } @$origarrref;

  my %torename;
  my $i = 0;
  foreach my $f ( @$newarrref ) {
    chomp $f;  # take away newlines used previously for easier editing
    if ( ! $same{$f} ) {
      $torename{@$origarrref[$i]} = @$newarrref[$i];
    }
    $i++;
  }

  return \%torename;
}


sub RenameFiles {
  my $hr = shift;

  if ( ! keys %$hr ) {
    die "No changes requested.  Exiting.\n" if $opts{v};
  } else {
    print "We are about to rename:\n" if $opts{v};
  }

  foreach ( sort keys %$hr ) {
    print "  FROM:\t$_\n    TO:\t$$hr{$_}\n\n" if $opts{v};
  }

  if ( $opts{v} ) {
    print "Proceed? [yes/no] ";
    if (  !~ /yes/i ) {
      die "cancelled\n";
    }
  }

  # It's possible to try to rename a file into a subdir that doesn't exist,
  # etc.  Can't stop all stupidity but can at least whine about it.
  my $rc = 1;
  foreach ( sort keys %$hr ) {
    $rc = rename $_, $$hr{$_};
    print "Potential error during rename of $_\n" if $rc ne 1;
  }

  if ( $opts{v} ) {
    print "Directory contents after committed changes:\n";
    map { print "  $_\n" } ReadFiles($ARGV[0]);
  }

  return 0;
}


1;


__END__