
Kanji
User
/ Moderator
Aug 31, 2000, 4:23 PM
Post #2 of 2
(3472 views)
|
Re: A prog that works out a date
[In reply to]
|
Can't Post
|
|
<BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR> #!/usr/bin/perl -wl use strict; use Date::Manip qw( DateCalc ParseDate UnixDate ); my %days = ( 0 => "Initial", 14 => "First", 24 => "Second", 34 => "Third" ); my $date = ParseDate( $ARGV[0] ) || die "You didn't supply a (valid) date"; foreach my $offset ( sort { $a <=> $b } keys %days ) { print UnixDate( DateCalc( $date, "+ $offset days" ), "%b %d" ), ": $days{$offset}"; } __END__ Jul 01: Initial Jul 15: First Jul 25: Second Aug 04: Third</pre><HR></BLOCKQUOTE>
|