[dvddb] / upgrade-v2

#! /usr/bin/perl -w

use open ":utf8";
use strict;

use DBI;

BEGIN { binmode STDOUT, ":utf8"; }

my $DB = DBI->connect("dbi:Pg:host=roadstar", "", "",
		      { AutoCommit => 0, RaiseError => 1 });

my $st = $DB->prepare
  ("SELECT title, ndisc, path FROM old_dvd ORDER BY title");
$st->execute;

my $st1 = $DB->prepare
  ("INSERT INTO dvd (title, disc, path) VALUES (?, ?, ?)");
while (my @r = $st->fetchrow_array) {
  my ($title, $ndisc, $path) = @r;
  print ";; $title [$ndisc]\n";
  for (my $i = 0; $i < $ndisc; $i++) { $st1->execute($title, $i, $path); }
}
$DB->commit; $DB->disconnect;
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
b2a25885 MW	14	("SELECT title, ndisc, path FROM old_dvd ORDER BY title");
14acb11f MW	15	$st->execute;
14acb11f MW	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;