Skip to content

Instantly share code, notes, and snippets.

@l3dlp

l3dlp/vcard2qrcode.pl

Forked from adulau/vcard2qrcode.pl
Created October 26, 2017 16:05
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save l3dlp/0e263d62ff139bff87c534af2c8ae2e3 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save l3dlp/0e263d62ff139bff87c534af2c8ae2e3 to your computer and use it in GitHub Desktop.
Download ZIP
VCARD to QRcode
Raw
vcard2qrcode.pl
#!/usr/bin/perl
#
use GD::Barcode::QRcode;
open(X, ">./out.png");
binmode(X);
my $vcard = "
BEGIN:VCARD
N:Lastname;Firstname
EMAIL:Firstname.Lastname\@example.com
END:VCARD
";
print X GD::Barcode::QRcode->new($vcard, { Ecc => 'Q', Version=>7, ModuleSize => 2})->plot->png;
close(X);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment