in reply to UPS Online over HTTPS
This may not be the greatest code as I wrote it a while ago, but see if this helps.
#!/usr/bin/perl use strict; my $resfile = 'ground.txt'; my $comfile = 'grndcomm.txt'; my $zonefile='delzone.txt'; my @res; my @com; my @zone; &buildrates; &buildzones; sub buildrates{ my $line; open FH, $resfile; while ($line = <FH>){ my ($index, $z2, $z3, $z4, $z5, $z6, $z7, $z8)= split(',',$line); $res[$index]= [$z2,$z3,$z4,$z5,$z6,$z7,$z8]; } close FH; open FH, $comfile; while ($line = <FH>){ my ($index, $z2, $z3, $z4, $z5, $z6, $z7, $z8)= split(',',$line); $res[$index]= [$z2,$z3,$z4,$z5,$z6,$z7,$z8]; } close FH; } sub buildzones{ my ($x, $y, $line); my $i=0; open FH, $zonefile; while ($line = <FH>){ ($x,$y) = split(',',$line); if (length($x)<=3){ $zone[$x]=$y } else{ (my $temp, $x) = split('-',$x); for ($temp..$x){ $zone[$_]= $y; } } } }
When I wrote this, I just grabbed the files off the UPS website. I believe that they were available in a plain text format, but it's been a while so I don't remember for sure.
Hopefully this will help in some way. :)
There is no emoticon for what I'm feeling now.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: UPS Online over HTTPS
by ajdelore (Pilgrim) on Jul 17, 2003 at 17:16 UTC | |
by Popcorn Dave (Abbot) on Jul 17, 2003 at 18:40 UTC |