Copying Only Certain Images to Another Folder

[BeginnerJoe]

I have a directory with three types of images (ex: gm0013a.jpg) all ending in either a.jpg b.jpg or c.jpg, depending upon their size. My question is, how would I copy only the files ending in a.jpg to a separate directory using perl. Should I slurp them all into an array or is there a better way. Any examples would be helpful. Thanks

 

[audiopro]

There are many ways to do it but here is a snippet I use.
It could be simplified but I use on dirs. where some users save image names in a mixture of upper and lower case.
You need to declare the vars before it will work

opendir DIR, "directory"  or die;
while ($bfile = readdir DIR) {
	$start=length($bfile)-4;
	$ext=uc(substr($bfile,$start,4));
	if($ext eq '.JPG'){

	# Copy file here

	}
}

Keith

http://www.studiosoft.co.uk

 

[BeginnerJoe]

The problem with this is that it returns all the .jpg files. I know how to do that. I only want the aforementioned *a.jpg files.

 

[audiopro]

change the value 4 to 5 and change the line

if($ext eq '.JPG'){

to

if($ext eq 'A.JPG'){

Keith

http://www.studiosoft.co.uk

 

[MillerH]

Use a glob

use File::Copy;

for my $file (<YOUR_DIRECTORY/*a.jpg>) {
    move($file, 'NEW_DIRECTORY');
}

- Miller

 

[BeginnerJoe]

Thanks all. I think I have it understood now. Appreciate it.