Einstein, Newton, and Pascal are hanging out in heaven, feeling rather bored, so Pascal suggests a game of hide and seek. Einstein is chosen to be it, and he covers his eyes and counts as Newton and Pascal go to hide. Einstein reaches 60 and opens his eyes only to discover Newton standing right there out in the open.

Einstein goes over to him and says, "What are you doing? You are supposed to hide. You made it too easy for me to find you, Isaac."

Newton points to the ground at his feet, and Einstein looks down to see there is a square drawn on the ground, one meter to a side. Newton is standing inside this square.

"You haven't found Newton," he says, and smiles smugly, confident in his victory.

I'm sure there is probably some simple built in unix command line tool that does this automatically, but what fun would that be?

Here is the result:

#!/usr/bin/perl
use warnings;
use strict;
use Tree::Simple;
use Tree::Simple::Visitor::LoadDirectoryTree;
use Tree::Simple::View::ASCII;
use Cwd;

my $dir = shift(@ARGV) || cwd();

if (!-d $dir) {

    die "$dir is not a directory, smart ass.";

}

# create a Tree::Simple object whose

# node is path to a directory

my $tree    = Tree::Simple->new($dir);

my $visitor = Tree::Simple::Visitor::LoadDirectoryTree->new();

# set the directory sorting style

$visitor->setSortStyle( $visitor->SORT_FILES_FIRST );

# create node filter to filter

# out certain files and directories

$visitor->setNodeFilter(

    sub {

        my ($item) = @_;

        return 0 if ($item =~ /CVS|svn/ || ($item =~ /^.*/ && -f $item));

        return 1;

    }

);

# pass the visitor to a Tree::Simple object

$tree->accept($visitor);

my $tree_view = Tree::Simple::View::ASCII->new($tree);

$tree_view->includeTrunk(1);

print $tree_view->expandAll();

exit(0);

P.S. Is it weird that I miss earthquakes?

All I can say is: shit piss fuck cunt cocksucker motherfucker tits.

Props to anyone who gets the joke.

The trip was rather pleasant. It was good to spend some time with my Mom, solving the worlds problems while the country side passed by. I was impressed with the hills of Ohio and the lush greenery. For some reason I expected it to flat and boring like Illinois and Indiana. There were a lot of really cool old barns and farm houses, slowly being reclaimed by the wilderness.

The whole trip it seemed like we had luck on our side as after getting to a family friend's house with no trouble, we were able to locate places and people that we weren't sure how to find, and our timing always seemed to work out just right.

It was a strange place in some ways. The town is dominated by Ohio University, and it's very much a typical college town. Educated and intellectual. But just 15 minutes outside town, in the country, there are homes that are little more than shacks and I'd swear I could hear the music from Deliverance being played somewhere, and I saw the most horribly awesome Mullet EVER. I wish I could have gotten a picture of it. It was scary bad.

One of my Mom's friends told us Athens County is the poorest in Ohio, and I'd have to say that seemed likely. Some of the poverty I witnessed would have not been surprising if we had been in a third world country. The fact that we were just outside a midwest college town made it a bit shocking. Then you get into town and there are beautiful houses set into the hill sides.

We even managed to find the farm house that used to belong to my family. It has changed a bit (according to my Mom), but it's still there.

My camera got a good work out. I wish I could have taken more pictures, but we had a rather busy schedule. I did manage to get some good pictures nevertheless.

BTW, if anyone wants 10.6 acres of land 20 minutes outside of Athens, Ohio, let me know.

I have been really happy with it so far.

I will be heading to Ohio to take care of some family business as well as see the place of my birth (we moved to California when I was a year old, so it'll all be new to me). I plan to give the camera a good work out, as I'm sure there will be a lot of great scenery.

I don't think it's unreasonable of me to want the weather to be a bit more consistent from day to day.

#!/usr/bin/perl
use warnings;
use strict;

if ( scalar(@ARGV) < 1 ) { die "No filename given!" }

my $file  = shift(@ARGV);
my $file2 = "$file-new";

open( FILE, "<$file" )
    or die "can't open $file: $!";
open( FILE2, ">$file2" )
    or die "can't open $file2: $!";
my $count = 1;
while ( my $line =  ) {
    if ( $line =~ /^(INSERT INTO .*? VALUES)/ ) {
        my $insert = $1;
        $line =~ s/\),\(/\);\n$insert \(/g;
        print "line $count: ", sprintf("%.2fk\n", length($line)/1024);
    }
    $count++;
    print FILE2 $line;
}
close(FILE);
close(FILE2);

exit(0);