/[corp]/esi/dump.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /esi/dump.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by dpavlin, Thu Mar 15 07:51:21 2001 UTC revision 1.2 by dpavlin, Sat Mar 17 17:28:57 2001 UTC
# Line 3  Line 3 
3  use DBI;  use DBI;
4    
5  my $connect = "DBI:Pg:dbname=corp";  my $connect = "DBI:Pg:dbname=corp";
6  my $sql="select lse.date,lse.current as lse,ftse.current as ftse  my $sql="select date(s1.date),avg(s1.current) as zse,avg(s2.current) as ftse
7          from stocks as lse,stocks as ftse where lse.date=ftse.date          from stocks as s1,stocks as s2 where time(s1.date) != '23:23:23' and
8                  and lse.type='LSE' and ftse.type='FTSE'                   time(s2.date) != '23:23:23' and s1.date=s2.date and
9          order by date";                   s1.type='LSE' and s2.type='FTSE'
10            group by date(s1.date),date(s2.date)
11            ";
12    
13  my $dbh = DBI->connect("$connect","","") || die $DBI::errstr;  my $dbh = DBI->connect("$connect","","") || die $DBI::errstr;
14    

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26