A. Khattri wrote:
Err... what were you saying about perl being hard...?
You can add other error checking, but here's the jist of it in perl
escaped for usage in a shell
perl -e "
map {
s/^[ \t]*//;
printf \"Last: %s\\n\", (split(/:/,\$_))[1] if /Last Price/;
printf \"L/H : %s\\n\", (split(/:/,\$_))[1] if /Low \\& High/;
} split(/\n/,\`lynx -dump $url$symbol\`);
"
--
[email protected] mailing list
