Shell Programming and Scripting

I have 3 variables , $file =abc_2011_11_01.txt (current day file), $back = Yes and $forward = No
I need to search for 3 days back files / 3 days forward files if my current file is not present
logic is,
I need to download the current day file.
If it is missing, i need to look out for currentday -1 file. (abc_2011_10_31.txt )
If that is missint, i need to check for currentday -2 file (abc_2011_10_31.txt )
If $forward is Yes , then I need to look out for currentday +1 file (abc_2011_11_02.txt )
If that is missing, I need to look out for currentday +2 file (abc_2011_11_03.txt )
IMP : The number of days file to check keeps changing. Eg: it may be 3, 4 or 9 etc...
Also, i need to check every file thrice with a sleep time of 100 seconds

How can i achieve this forward/backward check of files in perl?
Thanks in advance

Anything you tried yourself?

yes. Previously I had to check for 3 days back file alone and not forward days check.

Actually I had to create the file name for current date since it wont be available already.
So I used ADD_delta_days function to create the filename as "abc_2011_11_02.txt" and kept the 3 days back files in an array so that i could check one by one.

Now that i need to do both look back and look forward after creating the current day file, am looking out for option other than add_delta_days.
Can you please let me know if its possible

Ok, do you mind posting your code (using code tags) so people can try to see where the problem is?

yes i can post it. but sorry I dont find how to use code tags. Can you please show me the same

---------- Post updated at 02:26 AM ---------- Previous update was at 02:13 AM ----------

Code:

 
code:

my $maxdval = 0-$days_back;
my $d;
for($d=0; $d>=$maxdval; $d--)
{
my $file_name_1 = $base_file_name;
my($yy, $mm,$dd) = Add_Delta_Days(substr($run_dt,0,4), substr($run_dt,4,2), substr($run_dt,6,2), $d);
if($yy < 10  &&  length($yy) < 2) { $yy = "0". $yy };
if($mm < 10  &&  length($mm) < 2) { $mm = "0". $mm };
if($dd < 10  &&  length($dd) < 2) { $dd = "0". $dd };
my $yyyy = $yy;
my $yyyymmdd_1 = $yyyy . $mm . $dd;
$file_name_1 =~ s/yyyymmdd/$yyyymmdd_1/;
push(@fl_nm, $file_name_1);
}

In the above case, the filename is constant pattern - abc_yyyymmdd.
But the one for which am doing, the filename can be any pattern which is not known
Eg: abc_yyyy_mm_dd, abc_YYMMD, abc_mm_dd

---------- Post updated at 03:30 AM ---------- Previous update was at 02:26 AM ----------

Also, Since the file name can be of any format, looking back/forward for files is a constraint when using Add_Delta_days
Can you please suggest alternate way to achieve this