Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 3fd50e9bd4
Fetching contributors…

Cannot retrieve contributors at this time

executable file 93 lines (81 sloc) 2.087 kB
#!/usr/bin/perl
use strict;
use warnings;
use lib 'lib';
use Literature::Schema;
my $sch = Literature::Schema->connect('dbi:mysql:literature',
'literature', 'l173r47ur3')
or die;
my $rs = $sch->resultset('Work');
my @cols = qw(author title published);
while (<DATA>) {
chomp;
my %rec;
@rec{@cols} = split /,/;
my $author = delete $rec{author};
my $wk = $rs->create(\%rec);
$wk->add_to_author_works({ author => $author});
}
__END__
1,The Pickwick Papers,1836-03-31
1,The Adventures of Oliver Twist,1837-02-28
1,The Life and Adventures of Nicholas Nickleby,1838-04-30
1,The Old Curiosity Shop,1840-04-25
1,Barnaby Rudge,1841-02-13
1,A Christmas Carol,1843-12-19
1,The Chimes,1844-12-01
1,The Cricket on the Hearth,1845-12-20
1,The Battle of Life,1846-12-01
1,The Haunted Man and the Ghost's Bargain,1848-12-19
1,The Life and Adventures of Martin Chuzzlewit,1843-01-01
1,Dombey and Son,1846-10-01
1,David Copperfield,1849-05-01
1,Bleak House,1852-03-01
1,Hard Times,1854-04-01
1,Little Dorrit,1855-12-01
1,A Tale of Two Cities,1859-04-30
1,Great Expectations,1860-12-01
1,Our Mutual Friend,1864-05-01
1,The Mystery of Edwin Drood,1870-04-01
2,Sense and Sensibility,1811-01-01
2,Pride and Prejudice,1813-01-28
2,Mansfield Park,1814-07-01
2,Emma,1815-12-01
2,Northanger Abbey,1817-12-01
2,Persuasion,1818-01-01
3,Henry VI Part I,
3,Henry VI Part II,
3,Henry VI Part III
3,Richard III,
3,The Comedy of Errors,
3,Titus Andronicus,
3,The Taming of the Shrew,
3,The Two Gentlemen of Verona,
3,Love's Labour's Lost,
3,Romeo and Juliet,
3,Richard II,
3,A Midsummers Night's Dream,
3,King John,
3,The Merchant of Venice,
3,Henry IV Part I,
3,Henry IV Part II,
3,Henry V,
3,Julius Caesar,
3,Much Ado About Nothing,
3,As You Like It,
3,The Merry Wives of Windsor,
3,Hamlet,
3,Twelfth Night,
3,Troilus and Cressida,
3,All's Well That Ends Well,
3,Othello,
3,King Lear,
3,Macbeth,
3,Measure for Measure,
3,Antony and Cleopatra,
3,Coriolanus,
3,Timon of Athens,
3,Pericles Prince of Tyre,
3,Cymberline,
3,The Winter's Tales,
3,The Tempest,
Jump to Line
Something went wrong with that request. Please try again.