Gane neto:: UPCDatabase es un módulo Perl con una interface OO simple a UPCDatabase.com

SINOPSIS

use Red:: UPCDatabase;
mi $upcdb = Gana neto:: UPCDatabase-> nuevo;

letra <pre>;

imprima "n [consulta] n";
mi $upc = 035000764119;
mi $item = $upcdb-> consulta ($upc);
imprima "UPC: $item-> {upc} n";
si ($item-> {error}) {
imprima "el Error: $item-> {error} n";
}
más {
imprima "el Producto: $item-> {descripción} n";
imprima "el Tamaño: $item-> {tamaño} n";
}

imprima "n [convertUpcE] n";
mi $upcE = 01212901;
mi $upcA = $upcdb-> convertUpcE ($upcE);
imprima "UPCE: $upcA-> {upcE} n";
si ($upcA-> {error}) {
imprima "el Error: $upcA-> {error} n";
}
más {
imprima "UPCA: $upcA-> {upc} n";
}

imprima "n [calculateCheckDigit] n";
mi $upcC = 01200000129C;
mi $upcA = $upcdb-> calculateCheckDigit ($upcE);
imprima "UPCC: $upcA-> {upcC} n";
si ($upcA-> {error}) {
imprima "el Error: $upcA-> {error} n";
}
más {
imprima "UPCA: $upcA-> {upc} n";
}

imprima </pre>;