I can do you one better, if (as it appears) you're trying to get information about a UPS package that's en route somewhere.
The Business::UPS module will allow you to query UPS and get back useful information. To quote from the POD:
"One word of warning: if you meet a bunch of Perl programmers on the bus or something, don't look them in the eye. They've been known to try to convert the young into Perl monks." - Frank Willison#!/usr/local/bin/perl use Business:UPS; %t = UPStrack("z10192ixj29j39"); $t{error} and die "ERROR: $t{error}; print "This package is $t{'Current Status'}\n"; # 'Delivered' or # 'In-transit' print "More info:\n"; foreach $key (keys %t) { print "KEY: $key = $t{$key}\n"; }
In reply to Re: Is this a correct way of obtaining input from a file?
by myocom
in thread Is this a correct way of obtaining input from a file?
by cecil36
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |