alexm

#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

use Test::More;

die "usage: $0 file1 file2\n" unless @ARGV == 2;

alexm

# Moved to https://github.com/alexm/Act-vagrant/blob/master/README.devel

alexm

Keybase proof

I hereby claim:

• I am alexm on github.
• I am alexmuntada (https://keybase.io/alexmuntada) on keybase.
• I have a public key whose fingerprint is 50F6 D09B 8F6C 56CD 885B 5BCB 6A16 DCC9 DF78 FF53

To claim this, I am signing this object:

alexm

#!/usr/bin/env perl
use strict;
use warnings;

use URI::Escape  'uri_unescape';
use MIME::Base64 'decode_base64';
use File::Temp   'tempfile';

die "usage: $0 cookie pubkey.pem\n" unless @ARGV == 2;

alexm

#!/usr/bin/env perl

use strict;
use warnings;
use HTML::TableExtract;

# Can parse bad formed HTML too!
my $html = "<table><tr><td>foo<td>bar<tr><td>42<td>3.14\n";

my $te = HTML::TableExtract->new();

alexm

#!/usr/bin/perl

use warnings;
use strict;

local *p = sub {
    print "[", ( join ",", @_ ), "]\n";
};

p(qw( foo bar ));

alexm

puppet camp barcelona

14 mar 2013

state of puppet (chris spence)

Puppet Enterprise provides:

• GUI
• orchestration (m-collective): live management thru GUI

alexm

my $callback = sub {
    my ($line) = @_;

    return line_match($line, @words);
};

my @matches;
while (my $line = <STDIN>){
    if (my $result = scan_input( $., $line, $callback )) {
        push @matches, $result;

alexm

sub opt_postinstalls {
    print "\nValid Postinstalls\n";
    print "------------------\n\n";
    list_postinstall();
    print "\n";
    exit 0
}

sub opt_distros {
    print "\nValid Distributions\n";

alexm

#!/usr/bin/env perl

use strict;
use warnings;
use 5.010;

use Getopt::Long;

sub list_postinstall {
    say "postinstall: <@_>";