PERL postgresql yaml poker and thank you

Thank you to all who helped me get this started. Even though my name is on it that just means that I borrowed most of it from others. You will see your suggested way of doing things throughout this post.

I will describe how I created the postgresql database. Any and all comments are welcome.

I did not use these tables but I am strongly considering them.

CREATE TABLE seven_stud_spread_stakes(bring_in int, fourth_street int 
+check(fourth_street >= bring_in), fifth_street int check(fifth_street
+ >= bring_in), sixth_street int check(sixth_street >= bring_in), seve
+nth_street int check(seventh_street >= bring_in));

CREATE TABLE colorado_limit_stakes(small_blind int, big_blind int chec
+k(big_blind >= small_blind), preflop int check(preflop <= 100), flop 
+int check(flop <= 100), turn int check(turn <= 100), river int check(
+river >= big_blind));

CREATE TABLE spread_limit_stakes(small_blind int, big_blind int check(
+big_blind >= small_blind), preflop int check(preflop >= small_blind),
+ flop int check(flop >= small_blind), turn int check(turn >= small_bl
+ind), river int check(river >= small_blind));

CREATE TABLE seven_stud_stakes(bring_in int, fourth_street int check(f
+ourth_street >= bring_in), fifth_street int check(fifth_street >= fou
+rth_street), sixth_street int check(sixth_street >= fifth_street), se
+venth_street int check(seventh_street >= sixth_street));

CREATE TABLE stakes(small_blind int, big_blind int check(big_blind >= 
+small_blind), preflop int check(preflop >= big_blind), flop int check
+(flop >= preflop), turn int check(turn >= flop), river int check(rive
+r >= turn));
INSERT INTO stakes VALUES(1, 3, 3, 3, 6, 9);
[download]

I am using the following tables. Note that I am using v_limits since limit is a reserved word in postgresql.

CREATE TABLE v_limits(v_limit TEXT PRIMARY KEY);
CREATE TABLE states(abbreviation TEXT PRIMARY KEY, state TEXT);
CREATE TABLE cities(city TEXT PRIMARY KEY);
CREATE TABLE games(game TEXT PRIMARY KEY);
CREATE TABLE hi_lows(hi_lo TEXT PRIMARY KEY);
CREATE TABLE kills(kill TEXT PRIMAY KEY);
CREATE TABLE stakes(stake TEXT PRIMARY KEY);
CREATE TABLE venues(venue TEXT PRIMAY KEY);

CREATE TABLE visits(id INT PRIMARY KEY, arrival_date DATE, departure_d
+ate DATE, arrival_time TIME, departure_time TIME, venue TEXT REFERENC
+ES venues(venue), city TEXT REFERENCES cities(city), state TEXT REFER
+ENCES states(abbreviation), game TEXT REFERENCES games(game), stake T
+EXT REFERENCES stakes(stake), kill TEXT REFERENCES kills(kill), hi_lo
+ TEXT REFERENCES hi_lows(hi_lo), v_limit REFERENCES v_limits(v_limit)
+, buy_in MONEY, cash_out MONEY);
[download]

This is the visit_configuration.yaml file I am using.

arrival_date:   20180214
departure_date: 20180215
arrival_time:   1000
departure_time: 1800
venue:          "Binion's"
city:           "Las Vegas"
state:          "NV"
game:           "hold'em"
stake:          "4-8"
kill:           "no-kill"
hi_lo:          "hi"
limit:          "fixed"
buy_in:         200
cash_out:       400
[download]

Next I will post the perl file I am using.

Back to Meditations