<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#This script grabs the daily stock price files from the public
#section of the Wall Street Journal's website.

use strict;
use LWP::Simple;

print "What is the trading date(MMDDYY)?";
my $indate = &lt;STDIN&gt;;

my $traddt = substr($indate,0,6);

while (my $downloadurl = &lt;DATA&gt;){
	my $x="http://online.wsj.com/public/resources/documents/";
	my $finurl=$x.$downloadurl;
	my @urlsplit=split /\./, $downloadurl;
	my $savefilename = $urlsplit[0].$traddt.".csv";
	print $savefilename;
	print "\n";
	my $status = getstore($finurl,$savefilename);
	print $status."\n" if is_success($status);			}
	

__END__;
NYSE.csv
Nasdaq.csv
SCAP.csv
AMEX.csv
</pre></body></html>