Perl blev bygget til tekst manipulation, men det har også eksterne biblioteker til at manipulere rasterbilleder . En populær bibliotek , hvorfra du kan manipulere billeder kaldes " gd ". Da GD ikke er skrevet i Perl, er du nødt til at installere en indfødt bibliotek ( en dll på Windows -systemer) og dens perl " bindinger ". Det er forholdsvis let, afhængigt af hvilken platform du bruger. Instruktioner
Installer GD Brug ActivePerl
1
Install GD og dets bindinger med ppm kommando. Den ppm Kommandoen tilgår " Perl Package Manager ", en ActiveState specifik pakkehåndtering designet til installation af Perl -moduler på systemer med make kommando eller en C compiler .
2
Start ppm fra kommandolinjen . Dette vil lancere en GUI program.
3
Klik på " Vis alle pakker" knappen på værktøjslinjen .
4
Søg efter GD i søgefeltet . Højreklik på GD pakken, og klik på " Install".
Install GD Brug CPAN
5
Brug CPAN at installere GD på et Linux-system eller et andet system med foretage og en C compiler .
6
Installer GD bibliotek på den måde kræves af din særlige Perl distribution. Dette vil variere afhængigt af din distribution og er ret i fordelingen docs .
7
Installer GD Perl bindinger ved at starte CPAN og indtaste kommandoen "Install GD " .
< Br > manipulere billeder i Perl
8
Opret et nyt billede at manipulere. Importer GD modulet og derefter oprette et nyt billede ved at oprette en ny GD :: Billede objekt. Før konstruktøren dimensioner for billedet : "brug GD , $ im = new GD :: Billede ( 200.200 ), "
9
Opret nogle farver ved at skabe nogle farveobjekter og gemme dem i variabler. Color objekter kan oprettes efter behov , men det er nyttigt at have en huskeregel for de farver , du vil bruge : "$ white = $ im -> colorAllocate ( 255,255,255 ), $ sort = $ im -> colorAllocate ( 0,0 , 0) , $ rød = $ im -> colorAllocate ( 255,0,0 ) "
10
Indstil en transparent farve: " $ im -> transparent ( $ hvid) , " < br >
11
Tegn en baggrund. Da billedet har brug for en baggrundsfarve , kan du bruge en fyldt rektangel primitiv at tegne en baggrundsfarve: "$ im -> filledRectangle ( 0,0,200,200 , $ hvid) ,"
12
Draw , hvad du ønsker. GD -biblioteket har en række tegning primitiver , fra punkter og linjer på buer, cirkler og polygoner : "$ im -> filledRectangle ( 50,50,150,150 , $ rød) ,"
13
Output filen . Her er filen udgang på stdout , der bør ledes til en fil , men du kan nemt udskrive til en anden fil håndtag , du har åbnet. Sørg for at filen håndtaget er i binær tilstand , før du udskriver png-fil til det: " binmode STDOUT , print $ im -> png , "