Perl byggdes för texthantering , men det har också externa bibliotek för att manipulera rasterbilder . Ett populärt bibliotek där du kan manipulera bilder kallas " gd . " Eftersom GD inte är skriven i Perl , måste du installera en infödd bibliotek ( en dll på Windows-system ) och dess perl " bindningar . " Det är relativt lätt , beroende på vilken plattform du använder . Instruktioner
Installera GD Använda ActivePerl
1
Installera GD och dess bindningar med ppm kommandot . Den ppm kommando ansluter till " Perl Package Manager " en ActiveState specifik pakethanterare avsedd för installation Perlmoduler på system med kommandot make eller en C-kompilator .
2
Start ppm från kommandoraden . Detta kommer att lansera ett GUI-program .
3
Klicka på " Visa alla paket " -knappen på verktygsfältet .
4
Sök efter GD i sökrutan . Högerklicka på GD -paketet och klicka på " Install ". Addera Installera GD Använda CPAN
5
Använd CPAN att installera GD på ett Linux-system eller annat system med göra och en C-kompilator .
6
Installera GD biblioteket på det sätt som krävs av din Perl fördelning . Detta kommer att variera beroende på din distribution och ligger rätt i fördelningen docs .
7
Installera GD Perl-bindningar genom att starta CPAN och skriva kommandot " Install GD " .
manipulera bilder i Perl
8
Skapa en ny bild att manipulera . Importera GD-modul och sedan skapa en ny bild genom att skapa en ny GD :: bildobjekt . Passera konstruktören dimensionerna för bilden : " använd GD , $ im = ny GD :: Image ( 200,200 ) ; "
9
Skapa vissa färger genom att skapa vissa färgobjekt och lagra dem i variabler . Färgobjekt kan skapas vid behov , men det är bra att ha ett kortkommando för de färger du ska använda : " $ vit = $ im - > colorAllocate ( 255.255.255 ) , $ svart = $ im - > colorAllocate ( 0,0 , 0 ) ; $ röd = $ im - > colorAllocate ( 255,0,0 ) , "
10
Ställ en transparent färg : " $ im - > transparent ( $ vit ) , "
11
Rita en bakgrund . Eftersom bilden behöver en bakgrundsfärg , kan du använda en fylld rektangel primitiv att rita en bakgrundsfärg : " $ im - > filledRectangle ( 0,0,200,200 , $ vit ) , "
12
Draw vad du vill . GD Biblioteket har ett antal rita primitiver , från punkter och linjer till bågar, cirklar och polygoner : " $ im - > filledRectangle ( 50,50,150,150 , $ red ) , "
13
Utgång filen . Här är filen utdata på stdout , som ska ledas till en fil , men du kan lätt avge till en annan fil handtag som du har öppnat . Kontrollera att filen handtaget är i binärt läge innan du skriver PNG-filen till det : " binmode STDOUT , print $ im - > png , " Addera
