perl script to locate files

[kholikt]

I am writing some perl script to create omniback report in excel format.

I have put my delimited file inside one of the directory. I will loop through all the file with *csv extension. For each new file I will create a new worksheet inside the workbook excel file.

currently I am having problem as the $files always said no such file ...

[kholikt]

I think I have found out the problem. The write excel module cannot create worksheet with the / character.

Is there anyway in perl that I can filter the name
/omrpt/abc/12-03-bac_hpsgqa_QAS.csv

to become bac_hpsgqa_qas

[Mark Grant]

I think your problem might be a missing "s"

foreach my $file (@files) {
open (TABFILE, $files) or die "$files: $!";

$file should be $files

[kholikt]

ya u are right I have fixed that already.

[Mark Grant · Accepted solution]

Your other problem might be solved with this

#!/usr/bin/perl

$DATA="/omrpt/abc/12-03-bac_hpsgqa_QAS.csv";

($RESULT)=($DATA=~m#.*/(.+)\.csv#);
print "result $RESULT\n";

[kholikt]

Hi,

The code that you suggest work very well. Thank for your help.

Just wondering is it possible to remove the number as well

12-03- can it be removed as well.

[Mark Grant]

assuming that the number part always ends in a number and then a "-" as in 12-03- then

#!/usr/bin/perl

$DATA="/omrpt/abc/12-03-bac_hpsgqa_QAS.csv";

($RESULT)=($DATA=~m#.*\d-(.+)\.csv#);
print "result $RESULT\n";