Shell Programming and Scripting

Hi,

I have got a requirement for which i need your help. The following problem is required to get solved in PERL SCRIPT. Here is the requirement.

There are 4 folders say SRC_DIR1, SRC_DIR2 and TGT_DIR_1,TGT_DIR_2
(Note: both path of SRC_DIR1 & SRC_DIR2 are different but both path of TGT_DIR1 & TGT_DIR2 are same but folder name is TGT_DIR1 & TGT_DIR2)

Say the files in folder SRC_DIR1 is as fololws :

Code:

aab_TRADE_20130226110444.csv
i.aab_20130226110444.csv
price.aab_20130226110444.csv
aab.i_20130226110444.csv
aab_price_aab_20130226110444.csv

Say the files in folder SRC_DIR2 is as follows :

Code:

aab_TRADE_20130226110444_PROCESSED.csv
i.aab_20130226110444_PROCESSED.csv
price.aab_20130226110444_PROCESSED.csv
aab.i_20130226110444_PROCESSED.csv
aab_price_aab_20130226110444_PROCESSED.csv

Now, each file present in folder SRC_DIR1 is compared with the folder SRC_DIR2 based on the following conditions :
CONDITION 1:
If any files in folder SRC_DIR1 whose first 20 characters is same as those in SRC_DIR2 and those 20 characters have has something like 'trade' as part of the filename then those files are to taken from SRC_DIR1 and moved to TGT_DIR1 and files in SRC_DIR2 to be moved to TGT_DIR2
OR
CONDITION 2:
If any files in folder SRC_DIR1 whose first 20 characters match with those in SRC_DIR2 and first 2 character of those 20 characters have the filename something like 'i.' as part of the filename then those files are to taken from SRC_DIR1 and moved to TGT_DIR1 and files in SRC_DIR2 to be moved to TGT_DIR2.
OR
CONDITION 3
If any files in folder SRC_DIR1 whose first 20 characters match with those in SRC_DIR2 and first 6 character of those 20 characters have the filename something like 'price.' as part of the filename then those files are to taken from SRC_DIR1 and moved to TGT_DIR1 and files in SRC_DIR2 to be moved to TGT_DIR2.

Now, there will be files in folder TGT_DIR1 and TGT_DIR2.
Files which satisfy condition 1 :
Lastly after getting the files in TGT_DIR1, the file content (present after 2nd comma and before 3rd comma has to be extracted and append a string like 'ABC,' before the extracted value. The new file name given can be said as SOURCE_FILE.csv. File present in TGT_DIR2 need not to be altered.

Files which satisfy condition 2 :
Lastly after getting the files in TGT_DIR1, the file content (present after 4th comma and before 5th comma has to be extracted and append a string like 'XYZ,' before the extracted value. All this records satisfying the condition 2 file naming convention should be appended to the above file name said as SOURCE_FILE.csv.

Files which satisfy condition 3:
Lastly after getting the files in TGT_DIR1, the file content (present after 7th comma and before 8th comma has to be extracted and append a string like 'MNO,' before the extracted value. All this records satisfying the condition 3 file naming convention should be appended to the above file name said as SOURCE_FILE.csv.

Finally the SOURCE_FILE.csv isto be created into a new path whose folder name is say TGT_DIR (for path of TGT_DIR is not as same as TGT_DIR1 & TGT_DIR2)

Since, I am a DWH Architect and the specialist is gone for vocation, I had
to ask you guys for help. I do not DEMAND an answer but REQUEST your help if you can. If so, I don't have to reassign the ticket and making his vocation ruined.

Hi shadow_fawkes,

1. Why does it have to be done in Perl?
2. Have you tried anything already? We can help you, but we can't build the whole script
3. As your previous post suggested it was urgent, you might be better of hiring a consultant on sites like oDesk to do the job quickly

Hi,
Thanks for the reply.
Anyways I have assigned the ticket to the respective owners. If you can help how to get through this situation for anybody in future requiring such doubts. Kindly provide any solutions whichever you can.
Thanks for the reply.

Hi shadow_fawkes, I don't know what you mean with "I have assigned the ticket to the respective owners". Does that mean you no longer want your question answered and that we should close your thread? If you still would like some help, it would be good if you could answer Subbeh's questions..

What I meant is, I am not from PERL team and since the responsible guy went for vocation, I thought of getting help from you guys for this requirement instead of him canceling the vocation. I thought, if any of you help me then I can put the code into live but it seems it requires more workmanship. Hence I have sent the job to himself, now he had to come half-way this travel to work on this fix.

And I intent to keep this forum open because, in future some or the other would require the same requirement and if answered, it will be useful for them to get the solutions from this forum thread.