Evergreen/src/extras/import/drain-batgirl-email.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_bill;
  11 CREATE TABLE legacy_email (user_key int, email text);
  12 COPY legacy_email (user_key, email) FROM STDIN;
  13 SQL
  14
  15 warn "going for the data...";
  16
  17 my $sth = $dbh->prepare('select USER_KEY, EMAIL from USER');
  18 $sth->execute;
  19
  20 warn "got it, writing file...";
  21
  22 while (my $cn = $sth->fetchrow_hashref) {
  23         my @data = map { $$cn{uc($_)} } qw/user_key email/;
  24         print join("\t", @data) . "\n";
  25 }
  26
  27 print "\\.\n";
  28
  29