Perl a été construit pour la manipulation de texte , mais il a aussi des bibliothèques externes pour manipuler des images raster . Une bibliothèque populaire à partir de laquelle vous pouvez manipuler des images est appelé "gd ". Depuis GD n'est pas écrit en Perl, vous devez installer une bibliothèque native ( une dll sur les systèmes Windows ) et ses perl "consolidations ". Cela est relativement facile , fonction de la plateforme que vous utilisez. Instructions
Installer GD utilisant ActivePerl
1
Installer GD et ses liaisons avec la commande ppm . La commande ppm accède à la " Perl Package Manager ", un gestionnaire de paquet spécifique ActiveState conçu pour installer des modules Perl sur des systèmes avec la commande make ou un compilateur C .
2
Début ppm à partir de la ligne de commande . Cela permet de lancer un programme GUI .
3
Cliquez sur le bouton " Voir tous les paquets» sur la barre d'outils .
4
Recherche de GD dans la boîte de recherche . Faites un clic droit sur le paquet GD et cliquez sur " Installer".
Installer GD utilisant CPAN
5
utilisation CPAN pour installer GD sur un système Linux ou un autre système avec faire et un compilateur C .
6
installer la bibliothèque GD de la manière requise par votre distribution Perl particulier. Ce sera différent en fonction de votre distribution et droit de la distribution docs .
7
Installez les fixations Perl GD en commençant CPAN et en tapant la commande "Installer GD " .
< Br > manipuler des images en Perl
8
Créer une nouvelle image à manipuler. Importez le module GD et puis créer une nouvelle image en créant un nouveau GD :: objet Image . Passez le constructeur les dimensions de l'image : « utiliser GD ; $ im = new GD :: image ( 200,200 ) ; "
9
créer des couleurs en créant des objets de couleur et de les stocker dans des variables . Objets de couleur peuvent être créés selon les besoins, mais il est utile d'avoir un moyen mnémotechnique pour les couleurs que vous allez utiliser : "$ blanc = $ im -> colorAllocate ( 255,255,255 ) ; $ noir = $ im -> colorAllocate (0,0 , 0); $ rouge = $ im -> colorAllocate ( 255,0,0 ) ; "
10
définir une couleur transparente :" $ im -> transparent ( $ blanc) ; "< br >
11
Dessinez un arrière-plan. Comme l'image a besoin d'une couleur de fond, vous pouvez utiliser un rectangle rempli primitive de dessiner une couleur de fond: " $ im -> filledRectangle ( 0,0,200,200 , $ blanc) ; "
12
dessiner ce que vous vouloir . La bibliothèque GD a un certain nombre de primitives de dessin, de points et de lignes à des arcs , des cercles et des polygones : "$ im -> filledRectangle ( 50,50,150,150 , $ rouge) ; "
13
Sortie le fichier . Ici, le fichier est envoyé sur la sortie standard , qui devrait être redirigée vers un fichier, mais vous pouvez facilement sortir à un autre descripteur de fichier que vous avez ouvert . Assurez-vous que le descripteur de fichier est en mode binaire avant d'imprimer le fichier png pour elle : « STDOUT binmode ; print $ im -> png , "