All the Perl that's Practical to Extract and Report
use Perl Log In
pudge (1)
(email not shown publicly)
http://pudge.net/
AOL IM: Crimethnk (Add Buddy, Send Message)
I run this joint, see?
Barcode Reading
A couple of years ago I got a free CueCat USB barcode reader. I did some stuff so I could use it on my Mac. Well, I wanted to use it on Mac OS X, so I grabbed the old script, installed Barcode::Cuecat, modified my little script to save to the Mac OS X clipboard, and away I go.
#!/usr/local/bin/perl -s
use warnings;
use strict;
our($c, $p);
use Barcode::Cuecat;
my $bc = new Barcode::Cuecat;
print "Type 'q' to quit.\n" if $c;
while (chomp(my $data = <STDIN>)) {
last if $data eq 'q';
$bc->scan($data);
printf "%s: %s\n", $bc->type, $bc->code;
if ($p) {
open my $clip, '|pbcopy' or die $!;
print $clip $bc->code;
close $clip;
}
last unless $c;
}
Usage:
[pudge@bourque bin]$ cuecat -p
^[[28~.C3nZC3nZC3n2D3bWDhvZDxnY.fGzX.C3T1D3DYENzZ.
UE2: 086441950
And then "086441950" is put onto the clipboard (BTW, that is a scan of the new TV Guide with Aragorn on the cover
because that's exactly how much difference there is. :-)
--Larry Wall in <10209@jpl-devvax.JPL.NASA.GOV>
CueCat Still in Style (Score:1)
It is very good to see that the CueCat is still in style. Now I know that I am not the one that still uses a CueCat (or two)!
I quickly pulled both of mine apart just as soon as I received them. I had to add a jumper to each of them so that I would not have to do the software decoding of the data.
Re:CueCat Still in Style (Score:1)
Re:CueCat Still in Style (Score:1)
I'd love to get my hands on a USB CueCat. My PS2-passthrough one hasn't been used in a while.. mostly because I don't use PS2 devices anymore.
Anyone wanna trade?
Re:CueCat Still in Style (Score:1)
All of mine are PS2. Have you tried an eBay search for 'usb cuecat' [ebay.com]?
CueCats (Score:1)
Darn you people with your country where a pile of these things were given away. =)
---ict / Spoon