Install GD Uso ActivePerl
1
Install GD y sus enlaces con el comando ppm . El comando ppm accede al " Perl Package Manager ", un gestor de paquetes específicos ActiveState diseñado para la instalación de módulos de Perl en sistemas con el comando make o un compilador C .
2
Start ppm desde la línea de comandos. Se iniciará un programa de interfaz gráfica de usuario .
3 Haga clic en el botón " Ver todos los paquetes" en la barra de herramientas .
4
Búsqueda de GD en el buscador . Haga clic derecho en el paquete GD y haga clic en " Instalar".
Install GD Uso CPAN
5
Uso CPAN para instalar GD en un sistema Linux o cualquier otro sistema de marca y un compilador de C .
6
instalar la biblioteca GD en la forma requerida por la distribución de Perl particular. Esto será diferente en función de su distribución y está justo en la distribución de documentos .
7
instalar los enlaces de Perl GD iniciando CPAN y escribiendo el comando "Instalar GD " .
manipular imágenes en Perl
8
Crear una nueva imagen de manipular. Importe el módulo GD y luego crear una nueva imagen mediante la creación de un nuevo GD :: objeto Image . Pase el constructor las dimensiones de la imagen : " usar GD ; $ im = new GD :: Imagen ( 200.200 ),"
9
Crear algunos colores mediante la creación de algunos objetos de color y almacenarlos en variables. Objetos de color se pueden crear si es necesario , pero es útil tener una regla mnemotécnica para los colores que vas a utilizar : "$ blanco = $ im -> colorAllocate ( 255255255 ), $ negro = $ im -> colorAllocate (0,0 , 0); rojo = $ $ im -> colorAllocate ( 255,0,0 ) ; "
10
definir un color transparente :" $ im -> transparente ( $ blanco) ; "
Foto 11
Dibuje un plano. Dado que la imagen tiene un color de fondo , puede utilizar un rectángulo relleno primitivas para dibujar un color de fondo: " $ im -> filledRectangle ( 0,0,200,200 , $ blanco) ; "
12
Dibujar lo que desear. La biblioteca GD tiene una serie de primitivas de dibujo , de puntos y líneas a arcos, círculos y polígonos : "$ im -> filledRectangle ( 50,50,150,150 , $ rojo); "
13
salida del archivo . En este caso, el archivo se emite en la salida estándar , que debe ser canalizado a un archivo, pero usted puede hacer salir fácilmente a otro identificador de archivo que ha abierto . Asegúrese de que el identificador de archivo está en modo binario antes de imprimir el archivo png a la misma: " STDOUT binmode ; print $ im -> png ; "