stock.pl

#!/usr/bin/env perl

#
# http://cafe.naver.com/perlstudy/2148
#

use v5.14;
use utf8;
use strict;
use warnings;

use Finance::QuoteHist::Yahoo;

local $| = 1;

die "Usage: $0 <stock file>\n" unless @ARGV == 1;
my $file = shift;

open my $fh, $file or die "cannot open $file file: $!\n";
while ( my $stock = <$fh> ) {
    chomp $stock;

    my $q = Finance::QuoteHist::Yahoo->new(
        symbols    => $stock,
        start_date => '01/01/1960',
        end_date   => 'today',
    );

    for my $row ( $q->quotes ) {
        my ( $symbol, $date, $open, $high, $low, $close, $volume, $adj ) = @$row;
        say "$date $open $high $low $close $volume $adj";
    }
}
close $fh;