diff options
| author | dakkar <dakkar@thenautilus.net> | 2010-11-23 20:59:28 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2010-11-23 20:59:28 +0000 |
| commit | 2844aba0f859497e13d0168a0e0171edcfdeabca (patch) | |
| tree | 166c45d6020299eb4bfb8a244dc7c79d10265138 /script | |
| parent | first proof of concept (diff) | |
| download | qr-builder-2844aba0f859497e13d0168a0e0171edcfdeabca.tar.gz qr-builder-2844aba0f859497e13d0168a0e0171edcfdeabca.tar.bz2 qr-builder-2844aba0f859497e13d0168a0e0171edcfdeabca.zip | |
refactor
Diffstat (limited to 'script')
| -rw-r--r-- | script/qr-color.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/script/qr-color.pl b/script/qr-color.pl new file mode 100644 index 0000000..ecf7025 --- /dev/null +++ b/script/qr-color.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl +use strict; +use warnings; +use Text::QRCode; +use TextPrinter; + +my $data='MECARD:N:Ceccarelli,Gianni;TEL:+447564023056;EMAIL:dakkar@thenautilus.net;URL:http://www.thenautilus.net/contacts/;NICKNAME:dakkar;;'; + +my $qr=Text::QRCode->new( + level=>'H', + mode=>'8-bit', +); + +my $arr=$qr->plot($data); + +TextPrinter::draw_whole($arr,1); |