alexm

#!/usr/bin/perl
#
# vots-pirates.pl
#
# Requeriments:
# sudo apt-get install libnotify-bin libwww-perl
#

use LWP::Simple;

alexm

#!/usr/bin/perl

use strict;
use warnings;

my $SERVER = 'imap.example.com';
my $USER   = 'user.name@example.com';
my $PASSWD = '***';
my $PORT   = 993;
my $SSL    = 1;

alexm

# Perl 6
use v6;

my @Barcelona = < Barcelona >;
my @PerlMongers = < Perl >;

# Define Camelia binary operator: »ö«
# https://github.com/perl6/mu/raw/master/misc/camelia.txt
# Takes a pair from the operand arrays and puts a heart in the middle
sub infix:<»ö«> {

alexm

#!/bin/sh
# markdown as shell script

## setup

	set -e
	set -x
	FOOBAR="foobar"

## step 1

alexm

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Getopt::Long;

my %opt = ( 'list'    => sub { say $_[0] } );
GetOptions( 'list=s'  => sub { $opt{ $_[0] }->( $_[1] ) } );

alexm

#!/usr/bin/env perl

use strict;
use warnings;
use 5.010;

use Getopt::Long;

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

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

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

puppet camp barcelona

14 mar 2013

state of puppet (chris spence)

Puppet Enterprise provides:

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

alexm

#!/usr/bin/perl

use warnings;
use strict;

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

p(qw( foo bar ));