This is the partial original post -
Jas wrote:
Wouldn't this be better?
my $year = ""; my $month = ""; my $day = "";
if($file =~ /^(\d{4})(\d{2})(\d{2})-www.tar.gz$/) { $year = $1; $month = $2; $day = $3;
my $chk = "$month - 1";
Here - this is weird =)
"03" in numerical context is 3.
File name was 20040301 - collapses to 200431 - Not a match IMHO.
foreach($file ! $chk) { $ftp->delete($file); }
??? Not sure but I am going to test it out....
Maybe I am totally confused - I have been working on WebSphere. Yes, I plead complete insanity.
-Bill- __Sx__________________________________________ http://youve-reached-the.endoftheinternet.org/
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
