From: WC -Sx- Jones <[EMAIL PROTECTED]> > Jenda? > > 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.
I see. You did not include that line in the email I was responding to. So I did not see anything that could provide numerical context. my $chk = "$month - 1"; is simply wrong. If $month was '03' then $chk will be '03 - 1'. And if it was my $chk = $month - 1; then $chk would be 2. Which is much better, but needs to be handled properly. If Jas wanted a date one month before now he'd need something like: $month--; if ($month == 0) { $month = 12; $year--; } $datestamp = sprintf "%04d%02d%02d", $year, $month, $day > > foreach($file ! $chk) { This line is a clear syntax error. > Maybe I am totally confused - I have been working on WebSphere. Yes, > I plead complete insanity. No I guess it's me who's confused. I am stateless. I handle each email separately, not remembering anything from the previous ones. (Well almost.) I do not keep the old ones and with the amount of spam and viruses I get looking up something in the "Deleted" folder is rather hard. Jenda ===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz ===== When it comes to wine, women and song, wizards are allowed to get drunk and croon as much as they like. -- Terry Pratchett in Sourcery -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>