l*******r 发帖数: 3799 | 1 ################################## CODE START ###########################
#! /usr/bin/perl
# Download option data from Yahoo finance
use strict;
use warnings;
use LWP::UserAgent;
use Data::Dumper;
$|++;
my $browser = new LWP::UserAgent;
my $URL = "http://finance.yahoo.com/q/op?s=";
my $SYMBOL_FILE = "data/symbols.tsv";
open (FH, $SYMBOL_FILE) or die $!;
print join("\t", "symbol", "close", "type", "strike", "last", "chg", "bid",
"ask", "vol", "open.int"), "\n";
while (){
chomp;
my $symbol |
|