last minute fixes -- frozen now for all time, as the data is in the DB
[Evergreen.git] / Evergreen / src / extras / import / renewal_subtract.pl
1 #!/usr/bin/perl
2
3 print "CREATE TABLE legacy_renewal_count ( barcode text, cnt int);\n";
4 print "COPY legacy_renewal_count FROM STDIN;\n";
5
6 while (<>) {
7         chomp;
8         my ($b,$c) = split '\|';
9         $b =~ s/\s*$//o;
10         print "$b\t$c\n";
11 }
12
13 print "\\.\n";
14