Perl foi construído para manipulação de texto , mas também tem bibliotecas externas para manipular imagens raster . A biblioteca popular, a partir do qual você pode manipular imagens é chamado de " gd ". Desde GD não está escrito em Perl, você tem que instalar uma biblioteca nativa (a dll em sistemas Windows ) e seus perl " ligações. " Isso é relativamente fácil , dependendo de qual plataforma você está usando. Instruções
Instale GD Usando
ActivePerl
1
Instale GD e as suas ligações com o comando ppm. O comando ppm acessa o " Perl Package Manager ", um gerenciador de pacotes específico ActiveState projetado para a instalação de módulos Perl em sistemas com o comando make ou um compilador C .
2
Comece ppm a partir da linha de comando. Isto irá iniciar um programa GUI.
3
Clique em "Ver Todos os pacotes " botão na barra de ferramentas .
4
Procure GD na caixa de pesquisa . Botão direito do mouse sobre o pacote de GD e clique em " Install".
Instale GD Utilizando CPAN
5
Use CPAN para instalar GD em um sistema Linux ou outro sistema com fazer e um compilador C .
6
instalar a biblioteca GD , na forma requerida pela sua distribuição Perl particular. Estas informações serão diferentes dependendo da sua distribuição e é reto aos docs de distribuição.
7
Instalar as ligações GD Perl iniciando CPAN e digitar o comando "Instalar GD" .
< Br > manipular imagens em Perl
8
criar uma nova imagem de manipular. Importe o módulo GD e , em seguida, criar uma nova imagem , criando uma nova GD :: objeto de imagem . Passe o construtor as dimensões para a imagem : " usar GD ; $ im = new GD :: Imagem ( 200.200 ),"
9
Criar algumas cores criando alguns objetos de cores e armazená-los em variáveis. Podem ser criados objetos de cores conforme necessário , mas é útil ter um mnemônico para as cores que você vai usar : "$ branco = $ im -> colorAllocate ( 255,255,255 ); $ preto = $ im -> colorAllocate (0,0 , 0); $ vermelho = $ im -> colorAllocate ( 255,0,0 ), "
10
Definir uma cor transparente :" $ im -> transparente ( $ branco ), " < br >
11
Desenhe um fundo . Desde que a imagem precisa de uma cor de fundo , você pode usar um retângulo preenchido primitivo para desenhar uma cor de fundo: " $ im -> filledRectangle ( 0,0,200,200 , $ branco ); "
12
Desenhe o que você querem. A biblioteca GD tem um número de primitivas de desenho , a partir de pontos e linhas de arcos, círculos e polígonos : "$ im -> filledRectangle ( 50,50,150,150 , $ vermelho); "
13
saída do arquivo . Aqui , o arquivo é impresso na saída padrão , que deve ser canalizada para um arquivo, mas você pode facilmente saída para outro identificador de arquivo que você abriu . Certifique-se que o identificador de arquivo está no modo binário antes de imprimir o arquivo png a ele : " binmode STDOUT ; print $ im - > png ; "