use utf8;
use strict;
use warnings;
use Text::QRCode;
use TextPrinter::ColourGrid;
use TextPrinter::StarGrid;
use GridFiller;
use GridFiller::Scaler;
use feature 'say';
use open ':std',':locale';
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($INFO);
binmode DATA,':utf8';
my $data = do { local $/="\n__WORDS__\n";my $x=<DATA>;chomp $x;$x };
my @words = <DATA>;chomp @words;
my $qr=Text::QRCode->new(
level=>'H',
mode=>'8-bit',
);
my $arr=$qr->plot($data);
my $filler=GridFiller->new({
words=>\@words,
grid=> GridFiller::Scaler->scale($arr,2),
});
my $result = $filler->fill({
mode => 'longest',
chooser => 'Smarter',
});
TextPrinter::ColourGrid->new->draw_whole($result->grid,1);
say '';
say 'Leftovers:';
say for @{$result->leftover_words};
__DATA__
MECARD:N:Ceccarelli,Gianni;TEL:+447564023056;EMAIL:dakkar@thenautilus.net;URL:http://www.thenautilus.net/contacts/;NICKNAME:dakkar;;
__WORDS__
Lois McMaster Bujold
Kage Baker
David Weber
Robert Heinlein
Douglas Adams
Neal Stephenson
Lewis Carrol
Terry Pratchett
Jorge Luis Borges
Frank Herbert
Alessandro Bergonzoni
Stefano Benni
Jules Verne
Neil Gaiman
H.G. Wells
Isaac Asimov
Arthur C. Clarke
Philip K. Dick
JRR Tolkien
Ed Wood
Tim Burton
Monty Python
Terry Gilliam
Orson Welles
Peter Greenaway
David Cronenberg
Stanley Kubrick
Joss Whedon
Quentin Tarantino
Mel Brooks
MIYAZAKI Hayao
OSHII Mamoru
ANNO Hideaki
Alan Moore
KITOH Mohiro
TEZUKA Osamu
YUKI Masami
URASAWA Naoki
YUKINOBU Hoshino
yoshitoshi ABe
SHIROW Masamune
Amanda Palmer
Marian Call
Jonathan Coulton
The Flaming Lips
The Pillows
Nightwish
Stefano Nosei
Jethro Tull
KANNO Yoko
Franco Battiato
Enya
Helloween
Mike Oldfield
Alan Parsons Project
Emerson, Lake & Palmer
Fabrizio De André
Kenji Kawai
David Bowie
Girl Genius
Gunnerkrigg Court
Cyrano de Bergerac
Watership Down
RHPS
Thunderbirds
Doctor Who
The Twilight Zone
Blade Runner
Forbidden Planet
Cowboy Bebop
FLCL
Gundam
Macross
Fushigi no umi no Nadia
SUZUMIYA Haruhi
Cutey Honey
Dennou Coil
Haibane Renmei
Star Trek
D&D
Go
Shogi
Perl
