cvs.andrew.net.au/stock/update_market.pl

#!/usr/bin/perl

use Pg;

$start = 0;
$db = "stock";
$db_user = "postgres";
$db_password = "ybgz004";

$conn = Pg::connectdb("dbname=$db user=$db_user password=$db_password");

while(<>) {     
        if ($start) {
                chop;
                ($code, $date, $open, $high, $low, $close, $volume) = split(",");
                $date =~ /(..)(..)(..)/;
                $date = "20${1}-${2}-${3}";
                #print "$code,$date,$open,$high,$low,$close,$volume\n";
                #print;
                $query = "INSERT INTO market VALUES ('$code', '$date', $open, $high, $low, $close, $volume)";
                #print "$query\n";
                $result = $conn->exec($query);
        }
        if (/^-- CUT/) {
                # sit up and take notice
                $start = 1;
        }
}
1	#!/usr/bin/perl
2
3	use Pg;
4
5	$start = 0;
6	$db = "stock";
7	$db_user = "postgres";
8	$db_password = "ybgz004";
9
10	$conn = Pg::connectdb("dbname=$db user=$db_user password=$db_password");
11
12	while(<>) {
13	if ($start) {
14	chop;
15	($code, $date, $open, $high, $low, $close, $volume) = split(",");
16	$date =~ /(..)(..)(..)/;
17	$date = "20${1}-${2}-${3}";
18	#print "$code,$date,$open,$high,$low,$close,$volume\n";
19	#print;
20	$query = "INSERT INTO market VALUES ('$code', '$date', $open, $high, $low, $close, $volume)";
21	#print "$query\n";
22	$result = $conn->exec($query);
23	}
24	if (/^-- CUT/) {
25	# sit up and take notice
26	$start = 1;
27	}
28	}