diff options
| author | dakkar <dakkar@thenautilus.net> | 2010-11-23 22:06:51 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2010-11-23 22:06:51 +0000 |
| commit | f36ec6adae6deb32336e5826f948433289542ba6 (patch) | |
| tree | bc5b44ed5ba91e5f6b09ddf9af1fa15b66ffad42 /script/qr-color.pl | |
| parent | refactor (diff) | |
| download | qr-builder-f36ec6adae6deb32336e5826f948433289542ba6.tar.gz qr-builder-f36ec6adae6deb32336e5826f948433289542ba6.tar.bz2 qr-builder-f36ec6adae6deb32336e5826f948433289542ba6.zip | |
filler!
Diffstat (limited to 'script/qr-color.pl')
| -rw-r--r-- | script/qr-color.pl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/script/qr-color.pl b/script/qr-color.pl index ecf7025..45c47ee 100644 --- a/script/qr-color.pl +++ b/script/qr-color.pl @@ -3,6 +3,8 @@ use strict; use warnings; use Text::QRCode; use TextPrinter; +use GridFiller; +use Path::Class; my $data='MECARD:N:Ceccarelli,Gianni;TEL:+447564023056;EMAIL:dakkar@thenautilus.net;URL:http://www.thenautilus.net/contacts/;NICKNAME:dakkar;;'; @@ -13,4 +15,11 @@ my $qr=Text::QRCode->new( my $arr=$qr->plot($data); -TextPrinter::draw_whole($arr,1); +my @words = grep { length($_) > 2 } + file('/usr/share/dict/words')->slurp(chomp=>1); + +my $filler=GridFiller->new({words=>\@words,grid=>$arr}); + +$filler->fill; + +TextPrinter::draw_whole($filler->result,1); |