It turns out that the scanner emulates a PS/2 keyboard and will read almost any 1D or 2D barcode symbology. After a few hijinks with a loose ribbon cable and flaky PS/2 support on my computer I got the scanner working perfectly. I was even able to change its configuration by scanning barcodes from the manual displayed on my LCD (though I don’t know if it will work with glossy screens — mine is matte).

I’m planning on putting up a more complete summary of what I’ve found, but here are a few other things that caught my eye:

• A solenoid-controlled proportional valve for small pneumatics or hydraulics.
• A bag of large rubber grommets, one of which I cut up to replace the feet on a table lamp.
• Three matched stepper motors.
• A worm-gearbox connected to a large motor with integrated optical encoder.
• A wide variety of IR LED/phototransistor gates.
• A pile of 1.8V, 2.5V and 3.3V voltage regulators.

Stay tuned for pictures and more details on what I’m taking and what I’m going to do with it.

To make a long story short, I was recently offered a chance to receive one of these migratory lending libraries, so expect to see something in this space about it soon.

To start, installing Finance::Quote is a breeze. As long as you have CPAN installed, just type at the command line:

$perl -MCPAN -e shell
>install Finance::Quote

From there it’s easy to get start, it’s just a matter of importing the module and creating and instance. This means the beginning of our script will look like:

#!/usr/bin/perl -w
use strict;
 
# import module
use Finance::Quote;
# create object
my $q = Finance::Quote->new();

The instance that we created has one main method: fetch(). It takes a list of arguments, with the first being a the exchange to look for quotes on, and the remaining being a list or array of ticker symbols. The Finance::Quote documentation provides the following list of valid exchanges:

australia           Australan Stock Exchange
dwsfunds            Deutsche Bank Gruppe funds
fidelity            Fidelity Investments
tiaacref            TIAA-CREF
troweprice          T. Rowe Price
europe              European Markets
canada              Canadian Markets
usa                 USA Markets
nyse                New York Stock Exchange
nasdaq              NASDAQ
uk_unit_trusts      UK Unit Trusts
vanguard            Vanguard Investments
vwd                 Vereinigte Wirtschaftsdienste GmbH

For the purposes of this script, I’m going to stick to “usa” because it covers both NYSE and NASDAQ, and those are the stocks I’m interested in.
Fetch() returns a two-dimensional hash of results. The first index (or dimension) is the ticker symbol of the stock and the second is the label for the specific piece of information. For now, the labels that we’re interested are the name of the company (‘name’) and the price (‘price’). A full listing of labels is available in the Finance::Quote documentation.
Using this information we can now build a simple script to fetch a stock quote:

#!/usr/bin/perl -w
use strict;
 
# import module
use Finance::Quote;
 
# create object
my $q = Finance::Quote->new();
 
# retrieve stock quote
my %data = $q->fetch('usa', 'GOOG');
 
# print price
print $data{'GOOG', 'price'} . "n";

This script, although it does what it’s supposed to, isn’t very pretty. By adding a little code to read ticker symbols from the command line we can check on multiple stocks at the same time, as well as remove the need to hard-code the ticker symbols. We can also make it produce much prettier results by adding more information about the company and add some basic error checking, which yields the following script:

#!/usr/bin/perl -w
use strict;
 
# import module
use Finance::Quote;
 
# create object
my $q = Finance::Quote->new();
 
#print usage information
if (length(@ARGV) == 0) {
	print "Usage: $0 ticker1, ticker2, ... , tickerNn";
	exit;
}
 
# get stock symbols from the command line and
# format them correctly (uppercase)
for (@ARGV){
	$_ = uc();
}
 
# retrieve stock quote
my %data = $q->fetch('usa', @ARGV);
 
# print result for each stock
for (@ARGV){
	if ($data{$_, 'success'}) {		# if getting the quote succeeded
		my $name = $data{$_, 'name'};	# build a report
		my $price = $data{$_, 'price'};
		my $message = '';
		$message .= $name . ' (' . $_ . ')';
		$message .= ' ' x(25 - length($message));
		$message .= "$$pricen";
		print $message;
	}
	else { print "Failed to retrieve quote for $_: $data{$_, 'errormsg'}n"; }
}

This is very simple, but it does its job well:

$ quote goog msft aapl dell java
GOOGLE (GOOG)            $352.32
MICROSOFT CP (MSFT)      $22.32
APPLE INC (AAPL)         $98.23
DELL INC (DELL)          $11.99
SUN MICROSYSTEMS (JAVA)  $4.54

Download the script here