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

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 ]
  1. Nenhum comentário ainda.
  1. No trackbacks yet.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: