blob: ecf7025b7be3202c0243918d4642407452046605 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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);
|