davorg

#/usr/bin/perl

use strict;
use warnings;

use Imager::QRCode;

my $url = shift || 'https://perlhacks.com/';

my $qrcode = Imager::QRCode->new;

davorg

function cpanver {
  for mod in "$@"
  do
    perl -M$mod -E"say qq[$mod - \$$mod::VERSION]"
  done
}

davorg

#!/usr/bin/perl

use strict;
use warnings;

my $logs;

while (<>) {
  my ($date, $time, $type) = split;

davorg

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use DBI;

my $dbh = DBI->connect(
  "DBI:mysql:database=test",

davorg

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use MetaCPAN::Client;

my $author_name = shift
  or die "Usage: $0 CPAN_AUTHOR_ID\n";

davorg

use strict;
use warnings;

use Test::More;
use Plack::Test;
use Plack::Util;
use HTTP::Request::Common;

my $app = Plack::Util::load_psgi './app.psgi';

davorg

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

my $target = 92;
my @prices = (35, 46, 19, 7, 41, 27);

# If we have command-line arguments

davorg

#!/usr/bin/perl
#
# Perl Weekly Challenge #19 / Task #1
# 
# Write a script to display months from the year 1900 to 2019 where
# you find 5 weekends i.e. 5 Friday, 5 Saturday and 5 Sunday.

use strict;
use warnings;
use feature 'say';

davorg

#!/usr/bin/perl

use strict;
use warnings;

use SVG;

my $PICWIDTH = 22;

my $svg = SVG->new(width => 184, height => 200);

davorg

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(param header);

my $title = 'Blood Test';
my $content = param('bloodtype') ? get_results() : get_form();

print header;