Howdy:
Can someone clue me in as to how I
can get the last Wednesday (or whatever)
of the month?
I have an example of what *might* work, but
I'm not sure how I can use it if, say, there
are five Wednesdays in the Month.
[snip from code]
#!/usr/bin/perl -w
use strict;
use warnings;
use Dat
{
@last_wednesday = Nth_Weekday_of_Month_Year($new_year,$month,3,4); # try
4th Wed
}
print @last_wednesday, "\n\n";
Wags ;)
-Original Message-
From: Johnson, Shaunn [mailto:[EMAIL PROTECTED]]
Sent: Friday, November 22, 2002 09:06
To: [EMAIL PROTECTED]
Subject: Last Wednesday of Month
H
--Looks great!
--Thanks!
-X
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:[EMAIL PROTECTED]]
Sent: Friday, November 22, 2002 12:40 PM
To: Johnson, Shaunn; [EMAIL PROTECTED]
Subject: RE: Last Wednesday of Month
I took at the doc and it
Hi,
In one of my scripts I am trying to grep lines from a list that doesn't
have the word HOLD
@temp_str = grep ( {$_ ne /HOLD/}, @temp_str);
Can anybody help me on this.
Satya Devarakonda
IS - EDI
Tufts Health Plan
Tel: 617-923-5587 X 3413
Fax: 617-923-
--
To unsubscribe, e-mail: [
> "Shaunn" == Shaunn Johnson <[EMAIL PROTECTED]> writes:
Shaunn> Can someone clue me in as to how I
Shaunn> can get the last Wednesday (or whatever)
Shaunn> of the month?
use Date::Manip;
print UnixDate(ParseDateString("last wed of oct 2002"), "%m/%d/%Y\n");
=> "10/30/2002\n"
--
Randal L
