Data::Petitcom - Data converter for Petitcom mkII
use Data::Petitcom; my $prg = <<'EOP'; PRINT "Hello World" EOP my $qrcodes = QRCode($prg, type => 'term', version => 5); my $qr_num = @$qrcodes; for my $i ( 1 .. $qr_num ) { printf( "QR: %d / %d\n%s\n", $i, $qr_num, $qrcodes->[ $i - 1 ], ); } use Path::Class; use GD::Tiler; my $bmp = '8b_256x192.bmp'; my $raw_bmp = file($bmp)->slurp; my $qrcodes = QRCode($raw_bmp, resource => 'GRP', name => 'TEST_GRP', type => 'img'); my $tiled = GD::Tiler->tile( Images => $qrcodes, Background => 'white', ImagesPerRow => 3, ); file('qrcodes.png')->open('>')->print($tiled);
Data::Petitcom is data converter for Petitcom mkII.
following resources supported.
Turn raw data into PTC.
Turn PTC into raw data.
Returns barcode for the data (or object) specified.
Writes the PTC to a file.
Reads the PTC from a file.
hayajo <hayajo@cpan.org>
プチコンmkII
Petit Computer
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Data::Petitcom, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Data::Petitcom
CPAN shell
perl -MCPAN -e shell install Data::Petitcom
For more information on module installation, please visit the detailed CPAN module installation guide.