File: linuxtrade.name

package info (click to toggle)
linuxtrade 3.65-8
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 3,100 kB
  • ctags: 1,978
  • sloc: ansic: 30,168; sh: 4,922; perl: 566; makefile: 126
file content (35 lines) | stat: -rwxr-xr-x 587 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
#!/usr/bin/perl

#
#	Lookup the full name of a symbol
#

my $symbol = $ARGV[0] || "INTC";
$symbol =~ tr/A-Z/a-z/;
my $Symbol = $symbol;
$Symbol =~ tr/a-z/A-Z/;

my $junk;
my $name;

my $url = "http://finance.yahoo.com/q/ks?s=$symbol";

open (COMMAND, "lynx -width=9999999 -dump -connect_timeout=10 \"$url\" |")
	|| die "Can't open '$url'\n";

while (<COMMAND>) {
	chop;
	# print "$_\n";

	if ($_ =~ "($Symbol)" && !$name) {
		($name, $junk) = split(/ \(/);
		$name =~ s/^ *//;
		last;
	}
}
close (COMMAND);
if ($name eq "") {
    $name = "Unknown";
}

printf "%s: %s\n", $Symbol, $name;