Advertisement
Guest User

Untitled

a guest
Feb 14th, 2016
50
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.67 KB | None | 0 0
  1. use strict;
  2. use warnings;
  3.  
  4. use MyDatabase 'db_handle';
  5.  
  6. my $dbh = db_handle('moblo.db');
  7. my $posts =<<"SQL";
  8.  
  9. CREATE TABLE IF NOT EXISTS posts(
  10. id INTEGER PRIMARY KEY AUTOINCREMENT,
  11. author TEXT,
  12. title TEXT,
  13. content TEXT,
  14. date_published VARCHAR(30),
  15. author_id INTEGER
  16.  
  17.  
  18. );
  19. SQL
  20. $dbh->do($posts);
  21.  
  22.  
  23. my $users =<<"SQL";
  24.  
  25. CREATE TABLE IF NOT EXISTS users(
  26. id INTEGER PRIMARY KEY AUTOINCREMENT,
  27. pw_hash TEXT,
  28. username TEXT UNIQUE,
  29. fullname TEXT
  30. );
  31. SQL
  32. $dbh->do($users);
  33.  
  34.  
  35. my $comments =<<"SQL";
  36.  
  37. CREATE TABLE IF NOT EXISTS comments(
  38. id INTEGER PRIMARY KEY AUTOINCREMENT,
  39. post_id INTEGER,
  40. user_id INTEGER,
  41. created_at VARCHAR(30),
  42. content TEXT
  43. );
  44. SQL
  45. $dbh->do($comments);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement