Regex Question

LouM has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I am new to Perl and am in need of help with the following problem:

I have a config file that looks like this:

# Feed Name
# action=ecrypt OR decrypt
# input_file # input file to be encrypted or decrypted
# output_file # output file to be encrypted or decrypted

SLS
action=decrypt
input_file=/home/qsi/tmp/SLSInterestExtract.*.*.*.pgp
output_file=/home/qsi/tmp/SLSInterestExtract.*.*.csv

I already have the code to read the cfg file but I am not sure how to parse the file names, read the directories and generate the output file name.
For example:

/home/qsi/tmp/SLSInterestExtract.*.*.*.pgp is actually
SLSInterestExtract.080308.0459.txt.pgp in the directory.

I need to generate:
SLSInterestExtract.080308.0459.csv

Thanks for your help!!!

Comment on Regex Question

Replies are listed 'Best First'.
Re: Regex Question by moritz (Cardinal) on Mar 10, 2008 at 16:01 UTC
You can read the file with Config::INI::Simple, and transform the file names with glob.	[reply]
Re^2: Regex Question by LouM (Initiate) on Mar 10, 2008 at 16:15 UTC
Thanks moritz. I have the Config::INI::Simple part covered but woiuld appreciate more help on the glob piece. I looked at some examples but still not sure how to code it.	[reply]
Re^3: Regex Question by moritz (Cardinal) on Mar 11, 2008 at 12:57 UTC
It's not that hard: `my @matched_files = glob $pattern;` [download] glob expands shell "patterns" like a star * to all files, '..' to the parent directory, ~ to the home directory and so on.	[reply] [d/l]
Re: Regex Question by nefigah (Monk) on Mar 10, 2008 at 16:10 UTC
I would look at File::Basename! I'm a peripheral visionary... I can see into the future, but just way off to the side.	[reply]
Re^2: Regex Question by LouM (Initiate) on Mar 10, 2008 at 16:39 UTC
Thanks nefigah. That worked. Now, how do I read the directory for that file pattern within the script? Is there a link that explains all of the File:: functions?	[reply]
Re^3: Regex Question by nefigah (Monk) on Mar 10, 2008 at 16:48 UTC
Well, I'm pretty new too, so not sure if this is the best way, but I would use the glob function as was recommended earlier, something like this: `use File::Basename; my $dir = dirname($path); $dir .= '/'; # Note: if the result of dirname already has the slash, +you only need to add the while (glob $dir) { # this will loop through files in that directory, putting each filen +ame in $_ }` [download] You can check out `perldoc -f glob` at the command line or perldoc.org! I'm a peripheral visionary... I can see into the future, but just way off to the side.	[reply] [d/l] [select]