Process Archived Files

[fmuquartet]

Greetings!
I have a new requirement for a small shell scrip that I want to convert over to perl as follows:

1)unzip files in the format 'file-`date +%Y%m%d`.zip' into Spool DIR

2)parse each file with a perl script and append prefix ADD on them
e.g ADD_file-`date +%Y%m%d`.zip

3) package them up in an zip archive into /var/tmp/file-`date +%Y%m%d`.zip

Presentlty, I am simply unzipping the files and passing them to perl script as follows:

unzip -p file-`date +%Y%m%d`.zip |perlscript.pl > file-`date +%Y%m%d`.txt

Note: I need to have each file in the archive parsed against the perl script and ADD prefixed now.

If someone can help me out here, is is kindly apprciated!

 

[MikeLacey]

Hi,

You can fix the filename problem like this:

unzip -p file-`date +%Y%m%d`.zip |perlscript.pl > ADD_file-`date +%Y%m%d`.txt

But I can't work out what else it is you need help with. Processing each file one by one? Parsing the contents of the files?

Mike

http://www.myspace.com/micahhowzat

http://mikelacey.fuzz.com/

 

[fmuquartet]

MikeLacey--
Initally, your example is how I was doing things, but the requirements changed where I needed individual files parsed, instead of one file containing the parsed data.

So no I am passing the data in a for loop:

for file in `ls -1 *.txt`
do
cat $i |perlscript.pl > ADD_$i-`date +%Y%m%d`.txt



Would much rather have a perl script.

 

[MikeLacey]

Oh ok, I see - well, as you would imagine, the Perl code for what you want to do looks similar(ish) to your existing code.

# for each input file
while (<*.txt>) {
# open it
open(IN,$_) || die;
# create a target file
open(OUT,">ADD_filename.txt") || die;
# read each line of the input file
while(<IN>){
# parse and process it
# then write your data out to the target file
print OUT $_;
}
# then close the target file
close(OUT);
# and the input file, best practise, believe me
close(IN);
}

You can get the date stuff you need for the target filenames from here:

http://perldoc.perl.org/functions/localtime.html

Mike

http://www.myspace.com/micahhowzat

http://mikelacey.fuzz.com/