Commit | Line | Data |
---|---|---|
14acb11f MW |
1 | #! /usr/bin/perl -w |
2 | ||
3 | use open ":utf8"; | |
4 | use strict; | |
5 | ||
6 | use DBI; | |
7 | ||
8 | BEGIN { binmode STDOUT, ":utf8"; } | |
9 | ||
10 | my $DB = DBI->connect("dbi:Pg:host=roadstar", "", "", | |
11 | { AutoCommit => 0, RaiseError => 1 }); | |
12 | ||
b2a25885 MW |
13 | my $st = $DB->prepare |
14 | ("SELECT title, ndisc, path FROM old_dvd ORDER BY title"); | |
14acb11f MW |
15 | $st->execute; |
16 | ||
b2a25885 MW |
17 | my $st1 = $DB->prepare |
18 | ("INSERT INTO dvd (title, disc, path) VALUES (?, ?, ?)"); | |
19 | while (my @r = $st->fetchrow_array) { | |
14acb11f MW |
20 | my ($title, $ndisc, $path) = @r; |
21 | print ";; $title [$ndisc]\n"; | |
22 | for (my $i = 0; $i < $ndisc; $i++) { $st1->execute($title, $i, $path); } | |
23 | } | |
24 | $DB->commit; $DB->disconnect; |