Question about perl script to rename multiple files

joellpr · 09-05-2012, 09:38 AM

Hi

I have several files for instance:

abc_invoice_09052012.txt
abc_purchase_09052012.txt
abc_inventory_09052012.txt

the numbers on the name are the current date and it can change every day.

I need to rename without the _DATE, for instance:

abc_invoice.txt
abc_purchase.txt
abc_inventory.txt

but, also the number of files can change every day, could be between 8 to 12.

I'm kindly new on perl, and I have a perl script, it creates a zip file with these files and sent via sftp using expect.

I just need a routine or code to rename those files and include on my perl script running on Linux RHEL.

Thanks in advance!!

cortman · 09-05-2012, 01:36 PM

This should do the job.

Code:

#! /usr/bin/perl


while(<*>) {
	$oldname = $_;
	s/_[^_][0-9]*(?=\.)//;
	rename $oldname, $_
}