Evergreen/src/extras/import/drain-batgirl-cn.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use DBI;
   5
   6 my $dbh = DBI->connect('DBI:mysql:database=reports;host=batgirl.gsu.edu','miker','poopie');
   7
   8 print <<SQL;
   9
  10 DROP TABLE legacy_callnum;
  11 CREATE TABLE legacy_callnum (call_num text, cat_key int, call_key int, shadow bool);
  12 COPY legacy_callnum (call_num, cat_key, call_key, shadow) FROM STDIN;
  13 SQL
  14
  15 warn "going for the data...";
  16
  17 my $sth = $dbh->prepare('select * from CALLNUM');
  18 $sth->execute;
  19
  20 warn "got it, writing file...";
  21
  22 while (my $cn = $sth->fetchrow_hashref) {
  23         my @data = map { $$cn{$_} } qw/CALL_NUM CAT_KEY CALL_KEY SHADOW/;
  24         for (@data) {
  25                 if (defined($_)) {
  26                         s/\\/\\\\/go;
  27                         s/\t/ /go;
  28                 } else {
  29                         $_ = '\N';
  30                 }
  31         }
  32         print join("\t", @data) . "\n";
  33 }
  34
  35 print "\\.\n";
  36
  37