Perl + GD Graphic Library: Exemplo 5 (Código de Barras EAN 13)

Este exemplo utilizará o módulo GD::Barcode para a criação de Códigos de Barras.

O GD pode lhe ser útil também para trabalhar com códigos de barras.

Utilizando o módulo Barcode você poderá gerar etiquetas compatíveis com vários padrões internacionais incluindo os principais EAN-8 e EAN-13.

Para este exemplo, o módulo utilizado foi:

use GD::Barcode::EAN13;

Obs.: Usamos ‘GD::Barcode::EAN13’ pois nosso objetivo é criar um código de barras EAN-13.

Para criar o gráfico apenas chame seu instanciador passando o código de barras por parâmetro:

my $barra = GD::Barcode::EAN13->new(‘8711253001205’);

Pronto.

Feito isto basta esboçar e mandar exibir o gráfico:

binmode(STDOUT);
print “Content-Type: image/png\n\n”;
print $barra->plot->png;

Compare os códigos de barra gerados:
Resultado: gd-exemplo5.cgi	Exemplo Válido da Wikipedia: Encoding EAN-13

---

Veja o Código Completo:
(gd-exemplo5.cgi)

#!/usr/bin/perl
use GD::Barcode::EAN13;
# GD::EAN13 pode ser substituido por outro módulo de Barcode. (EAN8,UPCA,UPCE….)

my $barra = GD::Barcode::EAN13->new(‘8711253001205’);
# Em new() definimos o código EAN 13 para criar as barras.

binmode(STDOUT);
print “Content-Type: image/png\n\n”;
print $barra->plot->png; # Esboça e Escreve

---

Perl + GD Graphic Library
[ 1 | 2 | 3 | 4 | 5 | 6 | 7 ]