Perl Parsing filename

The Jesus · 10-02-2003, 05:41 PM

I have a directory filled with medical image files. They look like the following:

smith_13_503_de7.p
smith_13_502_de7.v
jones_104_503_de7.p
jones_104_502_de7.v
etc....

I need to parse that filename so that I just have:

smith_13
jones_104

What is the best way to do this in perl? I need something similar to "cut" in a shell script.

Thanks in advance.

joesbox · 10-02-2003, 10:54 PM

i am not sure what you are trying to do. are you wanting to just look for a set of files or are you trying to rename them??

The Jesus · 10-03-2003, 09:25 AM

Here is the whole situation..... I have opened a directory and are to get the names of all the files in the folder. I need to parse the image names so that I can use the shortened image name for placement in a database. I don't need to shorten the actaul filename saved on the disk. I just need to shorten it for the sake of the database.

Hope that makes sense.

Thanks.

joesbox · 10-03-2003, 03:10 PM

as far as i am thinking you will need a gui for something like this. give me some time and i ca try and whip something out at work. i should have it ready for you tomorrow.

The Jesus · 10-03-2003, 03:21 PM

Figured it out thanks for your help....

use strict;
my %fnames; # use a hash to eliminate duplicates
while (<DATA>) {
if (/^(\w+_\d+)_\d+\w+/) {
$fnames{$1} = 1;
}
}
foreach (keys %fnames) {
print "$_\n";
}

__DATA__
smith_13_503_de7.p
smith_13_502_de7.v
jones_104_503_de7.p
jones_104_502_de7.v