I found a really nice

I found a really nice journal application for the HP laptop. It is called “The Journal”. It is simple to use and from my perspective feature rich. The Journal contains two main section. First is the daily journal and the second is a notebook. Text entry has a look and feel similar to Microsoft Word. The realtime spelling checker is really nice. I really depend on the spell checker to help me not look stupid. Navigation among entries is a simple matter of moving through a tree view of entries presented in the left margin of The Journal’s window. The addition of tables and images is a snap. There are many other features, and if you are into journaling you should really check this one out. One feature was the ease of importing journal entries form other tools. In my case I imported entries from MacJournal. In my case I just exported the MacJournal entries into a rich text file format, change the file name with some Perl script to a date format of mm-dd-yyyy, emailed them to myself, and within seconds imported each to The Journal. Another feature I really like is that I can post notebook entries to my blog. The notebook is a great editor, and the page provides a nice history of what I have blogged.

Here is the Perl script …

#!/usr/bin/perl -w
use strict;
use vars qw($dirtoget @thefiles $file $newname @filenameparts $filenameparts);
$dirtoget=”C:/Documents and Settings/Michael/My Documents/My Journal”;
opendir(IMD, $dirtoget) || die(“Cannot open directory”);

@thefiles= readdir(IMD);

closedir(IMD);
chdir(“C:/Documents and Settings/Michael/My Documents/My Journal”);
foreach $file (@thefiles)
{
unless ( ($file eq “.”) || ($file eq “..”) )
{
@filenameparts = split / /,$file;
#$newname = $file;
#$newname =~ s/([a-zA-Z ]*[0-9]*)[a-z]{2}(, 2005\.rtf)/$1$2/;
$filenameparts[0] =~ s/January/01/;
$filenameparts[0] =~ s/February/02/;
$filenameparts[0] =~ s/Februry/02/;
$filenameparts[0] =~ s/March/03/;
$filenameparts[0] =~ s/April/04/;
$filenameparts[0] =~ s/May/05/;
$filenameparts[0] =~ s/June/06/;
$filenameparts[0] =~ s/July/07/;
$filenameparts[0] =~ s/August/08/;
$filenameparts[0] =~ s/September/09/;
$filenameparts[1] =~ s/,//;
$filenameparts[1] =~ s/th//;
$filenameparts[1] =~ s/nd//;
$filenameparts[1] =~ s/rd//;
$filenameparts[1] =~ s/st//;
$filenameparts[1] =~ s/ //;
if(length($filenameparts[1] < 10)){$filenameparts[1] = "0$filenameparts[1]";}
$newname = “$filenameparts[0]-$filenameparts[1]-2005.rtf”;
print “$newname\n”;
rename($file, $newname) or warn “Couldn’t rename $file to $newname: $!\n”;
}
}