Ah, OK. Here's a version that does it algorithmically, rather than using Date::Manip. You'll have to correct for the "If it's Thursday" problem, but this will generate a list of all Friday's in the year.

Also, just as a side note, if you're not using 'use strict', and -w, I'd highly recommend enabling that. It'll help you track down problems a lot faster. 
#!/usr/local/bin/perl -w

use strict;
use Time::Local 'timelocal_nocheck';

{
   my $friday_date;

   my $now = time ();  # Not used, here, but it's where the time would
+ come from
   
   for (my $i = 0; $i < 365; $i++)
   {
      $now = timelocal_nocheck (0, 0, 0, $i, 0, 2000);

      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$rest) = localtime ($
+now);
   
      my $then = ((((5 - $wday) + 7) % 7) * (60 * 60 * 24));
   
      ($sec,$min,$hour,$mday,$mon,$year,$rest) = localtime ($now + $th
+en);

      $mon  += 1;
      $year += 1900;
   
      my $temp = sprintf ("%02d/%02d/%04d", $mon, $mday, $year);

      if ($friday_date ne $temp)
      {
         print "$temp\n";
         $friday_date = $temp;
      }
   }
}

[download]
--Chris

e-mail jcwren

In reply to (jcwren) Re: (2) Date munging suddenly broken by jcwren
in thread Date munging suddenly broken by motomuse

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.