| GD :: ¹ÙÄÚµå GD :: ¹ÙÄÚµå´Â GD°¡ÀÖ´Â ¹ÙÄÚµå À̹ÌÁö¸¦ ¸¸µå´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
GD :: ¹ÙÄÚµå ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Kawai Takanori
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kwitknr/GD-Barcode-1.15/Barcode.pm
GD :: ¹ÙÄÚµå ű×
GD :: ¹ÙÄÚµå ¼³¸í
GD :: ¹ÙÄÚµå´Â GD°¡ÀÖ´Â ¹ÙÄÚµå À̹ÌÁö¸¦ ¸¸µå´Â Perl ¸ðµâÀÔ´Ï´Ù. ½Ã¸³ ¿¢½º. CGI »ç¿ë GD :: Barcode :: evce; binmode (stdout); Àμâ "Content-Type : image / pngnn"; Àμâ GD :: ¹ÙÄÚµå -> »õ·Î¿î ( 'ean13', '123456789012') -> plot-> png; ¿À·ù°¡ÀÖ´Â ³» $ ogdbar = gd :: ¹ÙÄÚµå -> new ( 'ean13', '12345678901'); $ GD :: Barcode :: errstr ($ ogdbar); #invalid ±æÀÌ $ ogdbar-> plot-> png; GD :: ¹ÙÄÚµå´Â GDÀÇ ÇÏÀ§ Ŭ·¡½ºÀ̸ç GD·Î ¹ÙÄÚµå À̹ÌÁö¸¦ ¸¸µé ¼ö ÀÖ½À´Ï´Ù. ÀÌ ¸ðµâÀº "Barcode Ver 1.02°¡ Shisei Hanai 97/08/22".From 1.14¸¦ ±â¹ÝÀ¸·ÎÇÕ´Ï´Ù. GD (ÇÃ·Ô ¸Þ¼µå Á¦¿Ü)°¡ ¾ø´õ¶óµµÀÌ ¸ðµâÀ» »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù .NEW $ OGDBAR = GD :: BARCODE :: UPCE-> »õ·Î¿î ($ stype, $ stxt); »ý¼ºÀÚ. $ stxt.plot () $ ogd = $ ogdbar-> ÇÃ·Ô (À»À§ÇÑ $ stxt °´Ã¼¸¦ »ý¼ºÇÕ´Ï´Ù. $ STXT´Â »õ ¸Þ¼µå¿¡ ÁöÁ¤µÇ¾ú½À´Ï´Ù. $ iheight´Â À̹ÌÁöÀÇ ³ôÀÌÀÔ´Ï´Ù. notext°¡ 1À̸é À̹ÌÁö¿¡´Â $ STXTÀÇ ÅؽºÆ® À̹ÌÁö°¡ ¾ø½À´Ï´Ù. Àü. MY $ OGDB = GD :: ¹ÙÄÚµå -> »õ·Î¿î ( 'eAn13', '123456789012'); MY $ OGD = $ OGDB-> ÇÃ·Ô (notext => 1, height => 20); # $ SGD´Â text.barkode () $ sptn = $ ogdbar-> barcode ()°¡¾ø´Â ³ôÀÌ => 20 Çȼ¿ÀÌÀÖ´Â GD À̹ÌÁöÀÔ´Ï´Ù. '1'¹× '0'À¸·Î ¹®ÀÚ¿ÀÇ ¹ÙÄÚµå ÆÐÅÏÀ» ¹ÝȯÇÕ´Ï´Ù. '1'Àº °ËÀº »ö, '0'Àº Èò»öÀ» ÀǹÌÇÕ´Ï´Ù. Àü. MY $ OGDB = GD :: ¹ÙÄÚµå -> »õ·Î¿î ( 'upce', '123456789012'); MY $ SPTN = $ OGDB-> ¹ÙÄÚµå (); # $ sptn = '; $ errstr $ gd :: barcode :: errstrhas ¿À·ù ¸Þ½ÃÁö. $ text $ ogdbar -> {$ text} »õ ¸Þ¼Òµå¿¡ ÁöÁ¤µÈ $ stxt¸¦ ±â¹ÝÀ¸·Î ¹ÙÄÚµå ÅؽºÆ®°¡ ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
GD :: ¹ÙÄÚµå °ü·Ã ¼ÒÇÁÆ®¿þ¾î