Perl werd gebouwd voor tekst manipulatie, maar het heeft ook externe bibliotheken voor het manipuleren van rasterafbeeldingen . Een populaire bibliotheek waaruit u beelden te manipuleren is " gd " genoemd. Aangezien GD niet in Perl is geschreven , moet je een native library ( een dll op Windows-systemen ) en zijn perl installeren " bindingen . " Dit is relatief eenvoudig , afhankelijk van welk platform je gebruikt . Instructies Install GD behulp ActivePerl 1 Install GD en haar banden met de ppm commando . De ppm commando opent het " Perl Package Manager ", een ActiveState specifieke package manager ontworpen voor het installeren van Perl modules op systemen met het maken commando of een C -compiler . Start ppm vanaf de command -line 2 . Dit zal een GUI-programma te starten . 3 Klik op de " Bekijk Alle pakketten " knop op de werkbalk . 4 Zoek GD in het zoekvak . Klik met de rechtermuisknop op de GD -pakket en klik op " Install ". Install GD gebruik CPAN 5 Gebruik CPAN aan GD installeren op een Linux- systeem of een ander systeem met maken en een C -compiler . 6 Installeer de GD library op de wijze vereist door uw specifieke Perl distributie . Dit is afhankelijk van uw distributie en ligt midden in de distributie docs . 7 Installeer de GD Perl bindingen door het starten CPAN en het typen van het commando " Install GD " . < Br > Manipuleer Afbeeldingen in Perl 8 Maak een nieuw beeld te manipuleren . Importeer de GD module en maak vervolgens een nieuwe afbeelding door het creëren van een nieuwe GD :: object afbeelding . Passeren de constructeur de afmetingen voor de afbeelding : " Gebruik GD ; $ im = new GD :: Afbeelding ( 200200 ) ; " 9 Maak sommige kleuren door het creëren van wat kleur objecten en ze op te slaan in variabelen . Kleur objecten kunnen worden gemaakt als nodig is , maar het is handig om een geheugensteuntje voor de kleuren die je gaat gebruiken : " $ wit = $ im - > colorAllocate ( 255255255 ) ; $ zwart = $ im - > colorAllocate ( 0,0 , 0 ) ; $ red = $ im - > colorAllocate ( 255.0.0 ) ; " 10 Stel een transparante kleur : " $ im - > transparant ( $ wit ) ; " < br > 11 Teken een achtergrond . Omdat de afbeelding moet een achtergrondkleur , kunt u een gevulde rechthoek gebruiken primitief om een achtergrondkleur te tekenen : " $ im - > filledRectangle ( 0,0,200,200 , $ wit ) ; " Draw 12 wat je willen . De GD library heeft een aantal tekenen primitieven , van punten en lijnen te bogen, cirkels en veelhoeken : " $ im - > filledRectangle ( 50,50,150,150 , $ rood ) ; " Output 13 het bestand . Hier is het bestand op stdout , die moet worden doorgesluisd naar een bestand , maar u kunt gemakkelijk uitvoeren naar een ander bestand handle je hebt geopend . Zorg ervoor dat de file handle is in binaire modus voordat u de png -bestand om het : " binmode STDOUT ; druk $ im - > png ; "
|