 User Control Panel |
|
|
 |
Advertisements
|
|
|
|
|
HELP US, HELP YOU!
|
| Author |
Message |
mat007
Almost An Agent
Joined: 12 Jan 2004
Posts: 1375
  
votes: 2
|
 Posted: Tue Jan 04, 2005 6:34 pm Post subject: |
 |
|
Looks up a UPC barcode...
| Code: | | <br /># Matthew Fenton (2005)<br /># Perl UPC BarCode Lookup.<br />if($msg eq "barcode")<br /> {<br /> $self->sendmsg("-sad- Syntax Error: Usage !barcode <UPC> \(EG: !barcode 039000031202 \(For CocaCola\)\)");<br />}<br />elsif($msg =~ /^barcode (.*)/i)<br /> {<br /> $upc = $1;<br /> $self->sendmsg("Please Wait..\(O\)");<br /> $barcode = get("http://www.upcdatabase.com/item.pl?upc=" . $upc);<br /> ($Desc) = $barcode =~ m/<tr><td>Description<\/td><td><\/td><td>(.*?)<\/td><\/tr>/ig;<br /> ($Size) = $barcode =~ m/<tr><td>Size\/Weight<\/td><td><\/td><td>(.*?)<\/td><\/tr>/ig;<br /> $Reply = "UPC: " . $upc . "\nDescription: " . $Desc . "\nSize: " . $Size;<br /> $self->sendmsg($Reply, Color => "DD");<br />}<br /> |
-- Matthew. |
|
| Back to top |
|
 |
|
|
