Thanks for your reply yupapa.
What the script does is that it connects to finance.yahoo.com and strips the current stock values of a given stock.
quote.cgi <- the file itself
-r <- Reaktime quote mode
dell <- was just an exemple of a quote
yes, I did put "exec /home/newsave/public_html/cgi-bin/quote.cgi -r dell" in SSH.
When I downloaded this, it told me stupid stuff about a make file or something and that I have to compile and blabla. So I just skipped that, renamed quote to quote.cgi (code inside was perl) and tried it via SSH. But I cant make it work via the web...
Here is the code if that may help you:
#!/usr/bin/perl -w
# This is Quote, version 0.05
#
# CVS revision:
# $Id: quote.in,v 1.5 2000/09/27 09:20:21 jelson Exp $
$lynx_path = "/usr/bin/lynx";
############################################################ ###############
if ($#ARGV < 0) {
print "Usage: quote [-r] <symbol> [symbol2] [symbol3] ...\n";
print "\n\n The -r option tries to get real-time prices.\n";
exit;
}
$method = "";
if ( eval { require LWP::Simple; }) {
$method = "LWP";
} elsif ($lynx_path ne "") {
$method = $lynx_path . " -source";
}
if ($method eq "") {
print "You need to install the Perl LWP module, or lynx.\n";
exit;
}
# get the list of symbols the user wants
$symlist = "";
$realtime = 0;
while ($next_sym = shift) {
if ($next_sym eq "-r") {
$realtime = 1;
next;
}
$symlist = $symlist . "$next_sym+";
}
# ...and take off the last "+"
chop($symlist);
# decide which format string to use, depending on if the user
# requested realtime quotes or not. in hacking around with yahoo's
# "quotes.csv" script that generates spreadsheet-formatted quotes, i
# think the format string is decoded as follows:
#
# s = symbol
# v = volume
# g = day low
# h = day high
# o = open
#
# c1 = change formatted as "+1.25" or "-0.6875"
# t1 = time of last trade
# d1 = date of last trade
#
# c6, t5 = change and time but with ECN realtime data
if ($realtime) {
$format = "sl9c6t5d1v";
} else {
$format = "sl1c1t1d1v";
}
$url = "http://finance.yahoo.com/d/quotes.csv?s=" . $symlist .
"&f=$format&e=.csv";
# go get it!
if ($method eq "LWP") {
$QUOTE = LWP::Simple::get($url);
@QUOTE = split(/\n/, $QUOTE);
} else {
open(PIPE, "$method '$url'|");
@QUOTE = <PIPE>;
close PIPE;
}
sub strip_quotes ($) {
my ($s) = @_;
$s =~ s/\"//g;
return $s;
}
foreach $_ (@QUOTE) {
@cols = split(/,/);
$curr_sym = strip_quotes($cols[0]);
$price = $cols[1];
$change = strip_quotes($cols[2]);
$time = strip_quotes($cols[3]);
$date = strip_quotes($cols[4]);
$vol = $cols[5];
next if $price == 0 || $date eq "N/A";
# Compute the percent change
$pctchange = (100.0 * $change) / ($price - $change);
# Format the "volume" column
if ($vol !~ /^[\d]+/) {
$vol = 0;
} else {
$vol_suffix = "";
if ($vol >= 1000) { $vol /= 1000; $vol_suffix = "K"; }
if ($vol >= 1000) { $vol /= 1000; $vol_suffix = "M"; }
if ($vol >= 1000) { $vol /= 1000; $vol_suffix = "B"; }
}
printf "%s: %.2f %+.2f (%+.2f%%)", $curr_sym, $price, $change, $pctchange;
if (!$realtime && $vol > 0) {
printf " on vol of %.1f%s", $vol, $vol_suffix;
}
printf " \@$time\n";
}
here's some info from the readme:
DESCRIPTION
quote is a very short and simple Perl script that retrieves
stock quotes from Yahoo! Finance (http://finance.yahoo.com).
It's a clean and fast command-line interface for getting
snapshot stock market prices. quote can be used to retrieve
prices of U.S. stocks (CSCO, DELL), non-U.S. stocks (NT.TO),
and market indices (^DJI, ^IXIC). Note that the ^ character is
a shell meta-character and may need to be escaped or quoted.
quote uses the Perl LWP module if available, or lynx otherwise
(found in /usr/bin/lynx).
OPTIONS
-r Attempt to retrieve real-time quotes from Yahoo!
Finance. This is not supported for all stock symbols.
EXAMPLES
Use of quote is very simple:
% quote csco ibm dell nt.to '^ixic'
CSCO: 55.19 -2.00 (-3.50%) on vol of 72.6M @4:00PM
IBM: 119.12 -3.88 (-3.15%) on vol of 6.2M @4:52PM
DELL: 33.62 -0.69 (-2.00%) on vol of 35.2M @4:00PM
NT.TO: 95.50 -4.10 (-4.12%) on vol of 6.3M @4:58PM
^IXIC: 3689.10 -52.12 (-1.39%) @5:16PM
You can also try to retrieve real-time quotes:
% quote -r csco dell
CSCO: 55.62 -1.56 (-2.73%) @7:58 PM
DELL: 33.88 -0.44 (-1.28%) @7:39 PM