#! /usr/bin/perl
 
# This script is made freely available for non-commerical use by Mike Fast
# September 2011
# http://fastballs.wordpress.com/
# Attribution is appreciated but not required.
#
# This script uses portions of Joseph Adler's code from hack_28_parser.pl
# as published by O'Reilly Media in the book Baseball Hacks, copyright 2006
# ISBN 0-596-00942-9, available at http://www.oreilly.com/catalog/baseballhks/

CREATE TABLE IF NOT EXISTS `atbats` (
  `ab_id` mediumint(9) unsigned NOT NULL AUTO_INCREMENT,
  `game_id` smallint(6) unsigned NOT NULL,
  `inning` tinyint(2) unsigned NOT NULL,
  `half` tinyint(1) unsigned DEFAULT '0',
  `num` tinyint(3) unsigned NOT NULL,
  `ball` tinyint(1) unsigned NOT NULL,
  `strike` tinyint(1) unsigned NOT NULL,
  `outs` tinyint(1) unsigned NOT NULL,
  `batter` mediumint(6) unsigned NOT NULL,

#! /usr/bin/perl
 
# This script is made freely available for non-commerical use by Mike Fast
# September 2011
# http://fastballs.wordpress.com/
# Attribution is appreciated but not required.
#
# This script uses portions of Joseph Adler's code from hack_28_parser.pl
# as published by O'Reilly Media in the book Baseball Hacks, copyright 2006
# ISBN 0-596-00942-9, available at http://www.oreilly.com/catalog/baseballhks/

#! /usr/bin/perl
 
# This script is made freely available for non-commerical use by Mike Fast
# August 2007
# http://fastballs.wordpress.com/
# Attribution is appreciated but not required.
#
# This script uses portions of Joseph Adler's code from hack_28_parser.pl
# as published by O'Reilly Media in the book Baseball Hacks, copyright 2006
# ISBN 0-596-00942-9, available at http://www.oreilly.com/catalog/baseballhks/

#! /usr/bin/perl
 
# This script is made freely available for non-commerical use by Mike Fast
# February 2008
# http://fastballs.wordpress.com/
# Attribution is appreciated but not required.
 
# MySQL database connection statement
use DBI;
$dbh = DBI->connect("DBI:mysql:database=pbp;host=localhost", 'root', 'package') 

-- phpMyAdmin SQL Dump
-- version 2.6.2-pl1
-- http://www.phpmyadmin.net
-- 
-- Host: localhost:3306
-- Generation Time: Aug 26, 2009 at 03:49 AM
-- Server version: 5.0.41
-- PHP Version: 5.2.3
-- 
-- Database: `pbp`

#! /usr/bin/perl
 
# This script is made freely available for non-commerical use by Mike Fast
# August 2007
# http://fastballs.wordpress.com/
# Attribution is appreciated but not required.
#
# This script uses portions of Joseph Adler's code from hack_28_parser.pl
# as published by O'Reilly Media in the book Baseball Hacks, copyright 2006
# ISBN 0-596-00942-9, available at http://www.oreilly.com/catalog/baseballhks/

#! /usr/bin/perl
 
use LWP;
my $browser = LWP::UserAgent->new;
$baseurl = "http://gd2.mlb.com/components/game/mlb";
$outputdir = "./games";
 
use Time::Local;
 
sub extractDate($) {