nanis

#!/usr/bin/env perl

=for comment

Office of the Unites States Trade Representative released the full text of the
Trans-Pacific Partnership trade agreement on November 5, 2015. For some reason,
it was released in 239 individual PDF documents, instead of a single file.

ToC at https://ustr.gov/trade-agreements/free-trade-agreements/trans-pacific-partnership/tpp-full-text

nanis

/*
 * Uniform random floats:  How to generate a double-precision
 * floating-point number in [0, 1] uniformly at random given a uniform
 * random source of bits.
 *
 *    Copyright (c) 2014, Taylor R Campbell
 *
 *    Verbatim copying and distribution of this entire article are
 *    permitted worldwide, without royalty, in any medium, provided
 *    this notice, and the copyright notice, are preserved.

nanis

/*
  http://www.nu42.com/2015/06/quorum-creators-cannot-write-quorum.html

  Quorum is a programming language created by Stefik et al. In a 2011 paper, the authors infamously proclaimed:
  
    Results showed that while Quorum users were afforded significantly
    greater accuracy compared to those using Perl and Randomo, Perl users
    were unable to write programs more accurately than those using a 
    language designed by chance.
    

nanis

#!/usr/bin/env perl
use v5.20;

=for commentary

This is my second entry in brian d foy's "Be Better than Quorum" challenge
See L<http://www.learning-perl.com/2015/06/learning-perl-challenge-be-better-than-quorum/>

I went for baroqueness with this one.

nanis

#!/usr/bin/env perl
use v5.20;

=for commentary

See L<http://www.learning-perl.com/2015/06/learning-perl-challenge-be-better-than-quorum/>

I know there will be reasonable entries, so here's one for variety ;-)

   -- Sinan

nanis

#!/usr/bin/env perl

=for purpose

See http://www.nu42.com/2015/03/fix-malformed-xml-with-perl-xml-parser.html
for motivation. This script is the simplest possible implementation of an 
idea. Not tested. Likely to contain bugs ;-)

=cut

nanis

#!/usr/bin/env perl

use 5.020; # hey, why not?
use warnings;
use Const::Fast;

use Win32::GuiTest qw(
    GetForegroundWindow
    SetForegroundWindow
    GetScreenRes

nanis

#!/usr/bin/env perl

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

use Const::Fast;
use Imager;
use Imager::Screenshot qw( screenshot );
use Win32::GuiTest qw( SetForegroundWindow );
use Win32::OLE qw(EVENTS valof);

nanis

#!/usr/bin/env perl

# This is a very quick and dirty script to parse information from the page
#
# http://stats.cpantesters.org/mplatforms.html
#
# This one works on a locally downloaded copy, the regex patterns used are
# the first one's that popped into my head.
#
# I hereby release this code snippet to the public domain.

nanis

#!/usr/bin/env perl

use 5.020; # just because
use strict;
use warnings;

use Const::Fast;
use GD;
GD::Image->trueColor(1);