Perl ble bygget for tekst manipulasjon , men det har også eksterne biblioteker for å manipulere rasterbilder . En populær bibliotek som du kan manipulere bilder kalles " gd . " Siden GD ikke er skrevet i Perl , må du installere en innfødt bibliotek ( en dll på Windows-systemer ) og dets perl " bindinger ". Dette er relativt enkelt , avhengig av hvilken plattform du bruker. Instruksjoner
Install GD Bruke ActivePerl
en
Installer GD og dets bindinger med ppm kommandoen . Den ppm kommandoen gir tilgang til " Perl Package Manager ", en ActiveState bestemt pakkebehandler designet for å installere Perl-moduler på systemer med make kommando eller en C-kompilator .
2
Start- ppm fra kommando- linjen. Dette vil starte et GUI program .
3
Klikk på " Vis alle pakker" -knappen på verktøylinjen .
4
Søk etter GD i søkeboksen . Høyreklikk på GD -pakken og klikk på " Install".
Install GD hjelp CPAN
5
Bruk CPAN å installere GD på et Linux- system eller et annet system med lage og en C-kompilator .
6
Installer GD -biblioteket på den måten som kreves av din spesielle Perl distribusjon. Dette vil variere avhengig av din distribusjon og er midt i fordelingen docs .
7
Installer GD Perl bindinger ved å starte CPAN og skrive kommandoen " Install GD " .
manipulere bilder i Perl
8
Lag et nytt bilde for å manipulere. Importere GD -modul og deretter opprette et nytt bilde ved å opprette en ny GD :: Bilde objekt. Pass konstruktøren dimensjonene for bildet : "bruk GD , $ im = new GD :: Bilde ( 200 200 ),"
9
Lag noen farger ved å skape litt farge gjenstander og lagre dem i variabler . Fargeobjekter kan opprettes etter behov , men det er nyttig å ha en mnemonic for fargene du skal bruke : " $ hvit = $ im - > colorAllocate ( 255.255.255 ), $ svart = $ im - > colorAllocate (0,0 , 0 ), $ rød = $ im - > colorAllocate ( 255,0,0 ) ; "
10
Sett en gjennomsiktig farge : " $ im - > gjennomsiktig ( $ hvit); "
11
Tegn en bakgrunn. Siden bildet trenger en bakgrunnsfarge , kan du bruke et fylt rektangel primitiv å tegne en bakgrunnsfarge : «$ im - > filledRectangle ( 0,0,200,200 , $ hvit); "
12
Draw hva du ønsker. GD har en rekke tegning primitive , fra punkter og linjer til buer, sirkler og polygoner : «$ im - > filledRectangle ( 50,50,150,150 , $ rød ); "
13
Output filen . Her er filen utgang på stdout , som skal transporteres til en fil , men du kan enkelt sende ut til en annen fil håndtaket du har åpnet . Kontroller at filen håndtaket er i binær modus før du skriver ut png fil til det : " binmode STDOUT ; print $ im - > png ; "