08/03/19 16:22:16 RnhiRmd90
下記どこが悪いのでしょう。
#!/usr/bin/perl
use LWP::Simple;
my $url = "URLﾘﾝｸ(ichart.finance.yahoo.com)";
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";