[brlug-general] batch rename

[willhill]

The perl program "no space" has always worked for me.  For renaming camera 
images and other numbered files gqview's batch rename and krename are both 
very powerful and easy to use.  Here's my copy of nospace.pl, you might want 
to look for a newer version.

#!/usr/bin/perl -w
# nospace /this/dir /that/dir /those/too 
# author tomw (Tom Willett) of pigsty.net
 
 use File::Find; 
 use strict; 
 die "usage: nospace dir[s]\n" unless @ARGV; 
 
 my %ext; 
 
 find(\&remspaces, @ARGV); 
 
 sub remspaces {
 return if ($_ eq '.'); 
 return if ($_ eq '..'); 
 (my $new = $_) =~ tr/a-zA-Z0-9_.-/_/c; 
 my $duplicate = ($new ne $_ and -e $new);
 my $try = $new;
 
 $ext{"$File::Find::dir/$try"}++ if $duplicate;
 
 while (my $count = $ext{"$File::Find::dir/$new"}++) {
 (my $with_num = $new) =~ s/(?=\.|$)/_$count/;
 $new = $with_num, last if not -e $with_num;
 }
 
 $ext{"$File::Find::dir/$try"}-- if $duplicate;
 
 rename $_ => $new
 or warn "can't rename $_ to $new: $!";
 } 

On Thursday 16 November 2006 09:30, Joe Fruchey wrote:
>... So I wanted to convert the names to all lowercase,
> change the spaces to underscores, and strip out the special
> characters.
>
> I was gonna post a message to the list about it, but I decided to
> search first, and here's what I found:
>
> http://filerenameutils.sourceforge.net/
> ...