Perl에서 바코드 (Code128)를 png 출력 및 HTML 이미지 포함하는 방법
3453 단어 Perl
Barcode::Code128을 사용한 바코드 출력
관련 라이브러리 설치
GD 관련shell-session
$ sudo apt-get install libgd-dev
$ cpanm GD
본체 라이브러리 설치shell-session
$ cpanm Barcode::Code128
테스트 코드
use Barcode::Code128;
my $code = new Barcode::Code128;
open(PNG, ">code128.png");
binmode(PNG);
print PNG $code->png("12345A");
close(PNG);
Barcode::Code128 사용법
바코드 이미지를 HTML 임베디드 출력
출력된 바코드 이미지를 Base64로 디코딩하여 HTML에 삽입합니다.shell-session
$ cpanm MIME::Base64
테스트 코드
use Barcode::Code128;
use MIME::Base64;
my $code = new Barcode::Code128;
# output html
my $img = $code->png("AIUEO");
my $img_base64 = encode_base64($img, '');
print '<img src="data:image/png;base64,' . $img_base64 . '">';
출력 결과
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAOQAAAA3AgMAAABhkw6fAAAADFBMVEXMzMz/AAAAAAD////ghtjGAAAAAXRSTlMAQObYZgAAAAlwSFlzAAAOxAAADsQBlSsOGwAAAHRJREFUSInt1cEJwCAMBdCQSXrsmOI4/5IRulcOTb8doEUPSml+DmrggYiiYDTyG3kEA48w93ALBAc3sKz1WeDynrBhhgbOlClTpkw5Ta74HT4lM6/ZFSoVpf+wqmyUolI6IcUqiQGJZbudLCufmo7chMxzLgWrZR49PA+KAAAAAElFTkSuQmCC">
![]()
Reference
이 문제에 관하여(Perl에서 바코드 (Code128)를 png 출력 및 HTML 이미지 포함하는 방법), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/jiey@github/items/2462d7cd1b8f800832ff
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
$ sudo apt-get install libgd-dev
$ cpanm GD
$ cpanm Barcode::Code128
use Barcode::Code128;
my $code = new Barcode::Code128;
open(PNG, ">code128.png");
binmode(PNG);
print PNG $code->png("12345A");
close(PNG);
출력된 바코드 이미지를 Base64로 디코딩하여 HTML에 삽입합니다.
shell-session
$ cpanm MIME::Base64
테스트 코드
use Barcode::Code128;
use MIME::Base64;
my $code = new Barcode::Code128;
# output html
my $img = $code->png("AIUEO");
my $img_base64 = encode_base64($img, '');
print '<img src="data:image/png;base64,' . $img_base64 . '">';
출력 결과
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAOQAAAA3AgMAAABhkw6fAAAADFBMVEXMzMz/AAAAAAD////ghtjGAAAAAXRSTlMAQObYZgAAAAlwSFlzAAAOxAAADsQBlSsOGwAAAHRJREFUSInt1cEJwCAMBdCQSXrsmOI4/5IRulcOTb8doEUPSml+DmrggYiiYDTyG3kEA48w93ALBAc3sKz1WeDynrBhhgbOlClTpkw5Ta74HT4lM6/ZFSoVpf+wqmyUolI6IcUqiQGJZbudLCufmo7chMxzLgWrZR49PA+KAAAAAElFTkSuQmCC">
Reference
이 문제에 관하여(Perl에서 바코드 (Code128)를 png 출력 및 HTML 이미지 포함하는 방법), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/jiey@github/items/2462d7cd1b8f800832ff텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
좋은 웹페이지 즐겨찾기
