import-csv.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use autotrade::MarketTools;
   6
   7 use autotrade::SQL;
   8 use autotrade::RateHistory;
   9
  10 my $db = autotrade::SQL::db_connect();
  11 my $rh = autotrade::RateHistory->new(dbh => $db);
  12 my $lt = 0;
  13 $db->do('BEGIN');
  14 while (<>) {
  15         chomp;
  16         my ($t, $buy, $amount) = split(/,/);
  17         $t - $lt > 20 or next;
  18         $lt = $t;
  19         $buy = str_curr($buy);
  20         print "$t $buy ($amount)\n";
  21         $rh->record($t, $buy, $buy);
  22 }
  23 $db->do('COMMIT');