- 849 名前：プログラム初心者 mailto:sage [2008/03/19(水) 16:22:16 ID:RnhiRmd90]
- 下記どこが悪いのでしょう。
#!/usr/bin/perl
use LWP::Simple;
my $url = "ichart.finance.yahoo.com/table.csv?s=%5EDJI&d=2&e=20&f=2008&g=d&a=0&b=1&c=1926&ignore=.csv";
my $data = "G:\\Program Files\\Omega Chart\\data\\0301";
my $buf = get($url);
my @sp = split(/\n/, $buf);
my @rec = split(/,/, $sp[1]);
$rec[0] =~ s/-//g;
print $rec[0] . " " . $rec[2]*100 . " " . $rec[3]*100 . " " . $rec[4]*100 . " " . $rec[5]*100 . " " . $rec[6]*100;
open(OUT, ">>$data") || die "NG $data";
binmode DAT;
print(OUT pack("LLLLLLLL", $rec[0] , $rec[1]*100, $rec[2]*100, $rec[3]*100, $rec[4]*100, $rec[5],,));
close(OUT);
print "Done\n";
|
 |
