Evergreen/src/extras/import/non-real_user_loader.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 print <<SQL;
   7 CREATE TABLE legacy_non_real_user (profile text, lib text, barcode text);
   8 COPY legacy_non_real_user (profile, lib, barcode) FROM STDIN;
   9 SQL
  10
  11 while (<>) {
  12         chomp;
  13         my ($p,$l,$b) = split '\|';
  14         print "$p\t$l\t$b\n";
  15 }
  16
  17 print '\.'."\n";
  18