savonarola

package Foo;

my $i;

sub bar {
    return ++$i;
}

1;

savonarola

package Bar;
use strict;

use DBI;
my $dbh = DBI->connect("dbi:Pg:dbname=savonarola", 'savonarola', '********', {AutoCommit => 1}); 


sub rnd {
    my $sth = $dbh->prepare("SELECT RANDOM()");
    $sth->execute();

savonarola

#!/usr/bin/perl -w
use strict;

use Benchmark;
use String::CRC32;
use Digest::MD5 qw(md5);


my $s = "1234" x 100;

savonarola

#!/bin/bash
display=`xrandr --prop | grep -v disconnected | grep connected | zenity --list --column Display --text "Choose primary display" --width 600 --height 200 | cut -d ' ' -f 1`

if [ "x$display" != "x" ]; then
    xrandr --output $display --primary	
fi

savonarola

// scala -P:continuations:enable cont.scala
import scala.util.continuations.{reset,shift,cpsParam}

def saveCont[A,B](resetFun : (Unit => A @cpsParam[B,Unit] ) => B @cpsParam[B,Unit]) : A => B = {
    var cc : A => B = null;
    val switchFun : (Unit => A @cpsParam[B,Unit] )= Unit => {
        shift{ k : (A => B) =>
            cc = k
        }
    }

savonarola

#include <X11/Xlib.h>

void move(int dx, int dy) {
    Display* d;
    d = XOpenDisplay(0);
    XWarpPointer(d,0,0,0,0,0,0,dx,dy);
    XCloseDisplay(d);
}

int main(void) {

savonarola

#!/usr/bin/perl -w
use strict;

use Benchmark;


my $h = { map { $_, $_ } 1..10000 };

timethese( 1000, {
    each => sub{ my $i = 0; while( my ($k, $v) = each %$h ) { $i++ }   },

savonarola

<?xml version="1.0" encoding="UTF-8"?>
<items>
    <item>
        <TmpId>1</TmpId>
        <Id>123</Id>
    </item>
    <item>
        <TmpId>1</TmpId>
        <Id>124</Id>
    </item>

savonarola

#!/usr/bin/perl -w
use strict;
use Redis;
use Data::Dumper;
use Digest::MD5 qw/md5/;

my ($key_count, $dump_period) = @ARGV;
my $r = Redis->new();

sub key($) {unpack("H*", md5(shift))}

savonarola

ERLDIRS = %w{
  elibs
  elibs/balancer
  elibs/config
  elibs/convert
  elibs/driver
  elibs/handler
  elibs/helper
  elibs/mysql
  elibs/tcp