Comments /Forum/anonymous24.html


Thu Aug 25 11:44:03 2005: Subject:   TonyLawrence
Please SEARCH before you post.



If you had typed "rename" into the search box at the top of every page here, you would have got http://aplawrence.com/SCOFAQ/FAQ_scotec1rename.html as the first hit and had your answer instantly, and also saved me the time of pointing this out to you.

Search first. If you don't find what you want or don't understand it, post. But search first.

Fri Aug 26 05:45:06 2005: Subject: rename (remove leading didgets)   anonymous
I would try something like this: Make a directory called scripts with another directory called test then save the contents of this file as rename.pl, and copy some of your files into the test directory. Notice i said COPY. You don't want to lose the originals, but this worked for me when I had to rename a bunch of spyware images one time... if it doesn't, we can use perl's substr() function....



#!/usr/bin/perl
$dir="/scripts/test/";
opendir (DH1,"$dir") || die "Cannot open directory\n";
@ARRAY1=readdir(DH1);
$cnt="0";


foreach $file (@ARRAY1)
{
next if $file=~/\^./;
if ($file =~/^\d/)
{
$file2 = $file;
$file2 =~ s/^\d[4]//; # This d[4] item is what you would change for the
# number of didgets to remove...
`cp $dir/$file $dir/$file2`;
# `rm -f $dir/$file`; use for cleanup with caution ;)
$cnt++;
}
}
print "$cnt files handled\n";

close DH1;





Sat Aug 27 13:28:26 2005: Subject: rename (remove leading didgets)   anonymous
Many Thanks for your help,


I tried to do as per your instruction, but scipt gave me the error:

source $PATH and file names with source $PATH file names are identical.

Any suggestion on it..


Fri Sep 9 20:43:56 2005: Subject:   anonymous
Where did you save the script? It should be in the scripts directory and not the test directory. If that is not the issue, then I would want to look at putting the copied files into another directory.



Add your comments