Renaming Every File in a directory

[Anonymous Monk]

I have this code to delete every file in a directory and skip directories... but I'm not remembering how to use the sub to rename files...

#!/usr/bin/perl
use CGI qw(:standard);
use strict; 
use File::Find;
use vars qw($_amountOfFiles);

my $_excludeList = 1;
my $_expcludeMain = 1;
my $dir = "/home/path/public_html/files";
my %_excludeListing = (
 'cgi-bin' => "cgi-bin",
);

#my $dir = shift || die "usage $0 <dir>\n"; 
 
print "Content-type: text/plain\n\n";
$_amountOfFiles = 0;
finddepth(\&do_this, $dir); 
print "Renamed: $_amountOfFiles files\nDone\n"; 
#rmdir $dir; 
 
sub do_this {
    # ignore . and .. 
  return if /^\.\.?$/; 
 
  if (-d) {
      if($_excludeList && exists($_excludeListing{$_})) {
          print "Skipping dir: $File::Find::name\n";
          return;
      }
      if($_expcludeMain && $_ eq "$dir") {
          print "Skipping dir: $File::Find::name\n";
          return;
      }
#    print "Removing dir: $File::Find::name\n"; 
#    rmdir; 
  } else { 
    print "."; 
    $_amountOfFiles++;
    unlink; 
  }
}

Where unlink is, what do I put to rename the file, IF it ends in .jpg to a Random string.jpg?

Instead of unlink?

I have not been writing Perl programming for a few years, and I feel like I'm getting dementia... I am at a total loss on it.

Can you point me in the right direction?
Please.

Rich

[Athanasius]

Hello Rich,

Can you point me in the right direction?

• To rename a file, use the built-in function rename.
• To select only files ending in .jpg, use if (/\.jpg$/) { ... }.
• To generate a random string, maybe try String::Random (a module I haven’t used see below).

P.S. Always code with use warnings as well as use strict.

Update: Example use of String::Random:

use strict;
use warnings;
use String::Random;

my $oldfile = 'picture.jpg';
my $random  =  String::Random->new;

if ($oldfile =~ /\.jpg$/)
{
    my $oldname = $oldfile =~ s/\.jpg$//r;
    my $newfile = $random->randpattern('.' x length $oldname) . '.jpg'
+;
    print "$oldfile will be renamed $newfile\n";
}

Example output:

14:18 >perl 1230_SoPW.pl
picture.jpg will be renamed O^aK&!R.jpg

14:19 >

Hope that helps,

[Anonymous Monk]

Ok... so in the sub routine... do_this
How do I get the file name?

unlink is just said as unlink not unlink(filename)...

so the rename one you showed me, has this:
rename OLDNAME,NEWNAME

How do I get the Oldname in the routine??

Thank you,
Rich

[Athanasius]

The subroutine do_this is a callback function for File::Find, documented in The-wanted-function of File::Find.

The OLDNAME you are looking for is contained in the $_ variable, which holds the current filename. Note that this variable (also called $ARG — see perlvar#General-Variables) is special: it is “understood” (used implicitly) in many Perl constructs. For example, /abc/ by itself is shorthand for $_ =~ /abc/.

Hope that helps,

[Don Coyote]

Make backups of your server directories.

Re-read the documentation for the File::Find module.

Remember to use fullpaths, with/or the $File::Find::dir var, examine the chdir no_chdir flags. Do some extensive testing pre-production run, to ensure your routine does what you want it to do / think it does.

my $count = 1;

sub do_this{ 
 ...
 next unless $_ =~ m/(.*)(\.jpg)$/;
# untaint = $1,$2

# rename(OLDFILE, NEWFILE);
 rename($File::Find::dir.$1.'.jpg', $File::Find::dir.$count++.'.jpg');
}

Also IIRC you will want to next rather than return inside the &do_this routine.

---

^{Scavenging Leftovers since the Naughties}

[Marshall]

I am not sure what you are trying to do.
It would be helpful if you could explain in plain text a description of what you are trying to accomplish and what that has to do with cgi-bin. I am not sure based upon this code.