sub Quote {
my $stock = shift;
- my @results = &::getURL("http://quote.yahoo.com/d/quotes.csv" .
+ my @results = &::getURL('http://quote.yahoo.com/d/quotes.csv' .
"?s=$stock&f=sl1d1t1c1ohgv&e=.csv");
my ($ticker, $recent, $date, $time, $change, $open,
$high, $low, $volume) = split(',',$result);
- # add some commas
- # "+ 0" removes trailing cr/lf/etc.
+ # add some commas
+ # "+ 0" removes trailing cr/lf/etc.
my $newvol = commify($volume + 0);
$reply .= ' ;; ' if $reply;
"Opened $open, Volume $newvol, Change $change";
}
- if ($reply eq "") {
+ if ($reply eq '') {
$reply = "i couldn't get the quote for $stock. sorry. :(";
}