| Category: | Miscellaneous/Text processing |
| Author/Contact Info | (c)2003 Mark Beihoffer, released under your choice of Artistic or GPL license. |
| Description: | I've used this script under both Win32 and OpenBSD to generate a plain-text file that I use for keeping a little journal of my thoughts.
I wrote it a long time ago (it's written in baby Perl) but have been using it monthly to make my journals, which are then really easy to edit and archive. I like keeping them in plain text format because then the entries are easy to cut and paste into other applications (emails, HTML forms, word processors, etc) without having to start a gigantic program or be online, etc. I also like it because it simply writes a date for each day of the current month, like "Monday, July 14, 2003", with a few line breaks thrown in. That way, I can write down what I worked on that day, keep little notes or code snippets, lyrics, and so forth, and easily go back and review my month. And cross-platform date handling is a little trickier than I had initially expected, so I learned some things writing it, too. Anyway, I know it isn't fancy, but since I use it every month, I figure somebody else out there might. |
#$/usr/bin/perl -w use strict; use warnings; my ($date, $month, $year, $weekday) = (localtime)[3,4,5,6]; $month++; # Converts $month to human readable. my $days = MonthDays($month, $year); # Figures out how many + $days are in current month. my $offset = ($date % 7); # Returns the offset of weekd +ays today is from the 1st, 0-6. # i.e. 0 means that today's $weekday == th +e 1st's $weekday. my @months = qw(January February March April May June July August Sept +ember October November December); my $i = 1; # Set increment counter to 1. $month--; # Converted $month back to machine-re +adable. $month = $months[$month]; # Converts $month number to m +onth Name $year = $year + 1900; # Converts $year to human rea +dable $weekday = ($weekday - $offset); my @weekdays = qw(Monday Tuesday Wednesday Thursday Friday Saturday Su +nday); ###################################################################### +########################### # # # This section names the file - either journal.txt or journal_m +onth_year.txt # # # # # ###################################################################### +########################### my $file = "journal.txt"; if (-e "journal.txt") { # Checks to see if journal.txt exi +sts. $file = ("journal_" . $month . "_" . $year . ".txt"); # If so, gi +ves it a dated name instead. } if (-e $file) { die "File $file already exists!\n"; sleep(2); # I sleep here so I can read the msg in W +in32. } ###################################################################### +########################### # # # OK, now're we're ready to get on with things. This part actua +lly outputs # # the file in a simple, nicely formatted monthly journal. + # # # ###################################################################### +########################### open (OUTPUT, "> $file") or die "Could not open file for writing: $!\n"; while ($i <= $days) { print OUTPUT "$weekdays[$weekday], $month $i, $year\n\n\n"; $i++; push(@weekdays, shift(@weekdays)); } close (OUTPUT); sub MonthDays { # This subroutine determines the natura +l weekday names. my @monthDays= qw( 31 28 31 30 31 30 31 31 30 31 30 31 ); my $month = shift(@_); my $year= @_ ? shift(@_) : 1900+(localtime())[5]; if( $year <= 1752 ) { # Note: Although September 1752 only had 19 days, # they were numbered 1,2,14..30! return 19 if 1752 == $year && 9 == $month; return 29 if 2 == $month && 0 == $year % 4; } else { return 29 if 2 == $month and 0 == $year%4 && 0 == $year%100 || 0 == $year%400; } return $monthDays[$month-1]; } |
|