BooK's Journal

**Avoid duplicate copies of messages?**

    git filter-branch --commit-filter '\
      GIT_AUTHOR_DATE=`echo "$GIT_AUTHOR_DATE"|perl -pe'\''s/\d+/$&+3600/e'\''`;\
      GIT_COMMITTER_DATE=`echo "$GIT_COMMITTER_DATE"|perl -pe'\''s/\d+/$&+3600/e'\''`;\
      git commit-tree "$@"' -- <rev-list>
post-receive
template.modtime
    #!/bin/sh
    git log --name-only --date=iso --reverse --pretty=format:%at "$@" \
    | perl -00ln -e '($d,@f)=split/\n/;$d{$_}=$d for grep{-e}@f' \
                 -e '}{utime undef,$d{$_},$_ for keys%d'
    #!/bin/sh
    # create a good looking graph with dot
    echo "digraph G {"
    git log --pretty=format:"%h %p" $* \
    | perl -lna  -e 'print qq("$F[0]";),map{qq("$_"->"$F[0]";)}@F[1..$#F]'
    echo "}"
    #!/usr/bin/perl -w
    use strict;
    use WWW::Mechanize;
    use Getopt::Long;

    my %SITE = (
        snit  => 'http://nopaste.snit.ch/',
        scsys => 'http://paste.scsys.co.uk/',
    );

    my %CONF = (
        channel => '',
        nick    => '',       # use your own
        summary => '',
        paste   => '',
        site    => 'snit',
        list    => '',
    );

    GetOptions( \%CONF, 'lang=s', 'nick=s', 'summary|desc=s', 'paste|text=s',
        'list!', 'site=s' )
        or die "Bad options";

    die "No such paste site: $CONF{site}\nValid choices: @{[keys %SITE]}\n"
        if !exists $SITE{ $CONF{site} };

    my $m = WWW::Mechanize->new;
    $m->get( $SITE{ $CONF{site} } );
    die $m->res->status_line unless $m->success;

    if ( $CONF{list} ) {
        print "Possible channels for $CONF{site}:\n",
            map {"- $_\n"} grep $_,
            $m->current_form()->find_input('channel')->possible_values;
        exit;
    }

    unless ( $CONF{paste} ) {
        $CONF{summary} ||= $ARGV[0] || '-';
        $CONF{paste} = join "", <>;
    }

    delete @CONF{qw( site list )};
    $m->set_fields(%CONF);
    $m->submit;
    die $m->res->status_line unless $m->success;

    print +( $m->links )[0]->url, "\n";
    $ git checkout -f perl-5.8.9
    [git output]
    $ git clean -xdf
    [more git output]
    $ sh Configure -Dprefix=/opt/perl/5.8.9 -des -Uinstallusrbinperl
    [Configure output]
    $ make && make test && make install
    [make output]
    [test output]
    [install output]
    $ sh Configure -Dprefix=/opt/perl/5.8.8 -des -Uinstallusrbinperl
    [Configure output]
    Run make depend now? [y]
    sh ./makedepend MAKE=make
    make[1]: Entering directory `/data/home/book/src/ext/perl'
    sh writemain lib/auto/DynaLoader/DynaLoader.a  > perlmain.c
    rm -f opmini.c
    cp op.c opmini.c
    echo  av.c scope.c op.c doop.c doio.c dump.c hv.c mg.c reentr.c perl.c perly.c pp.c pp_hot.c pp_ctl.c pp_sys.c regcomp.c regexec.c utf8.c gv.c sv.c taint.c toke.c util.c deb.c run.c universal.c xsutils.c pad.c globals.c perlio.c perlapi.c numeric.c locale.c pp_pack.c pp_sort.c miniperlmain.c perlmain.c opmini.c | tr ' ' '\n' >.clist
    make[1]: Leaving directory `/data/home/book/src/ext/perl'
    ./makedepend: 1: Syntax error: Unterminated quoted string
    make: *** [depend] Error 2

    If you compile perl5 on a different machine or from a different object
    directory, copy the Policy.sh file from this object directory to the
    new one before you run Configure -- this will help you with most of
    the policy defaults.
    $ make
    [make output]
        Making IPC::SysV (dynamic)
    Checking if your kit is complete...
    Looks good
    Writing Makefile for IPC::SysV
    make[1]: Entering directory `/data/home/book/src/ext/perl/ext/IPC/SysV'
    make[1]: Leaving directory `/data/home/book/src/ext/perl/ext/IPC/SysV'
    make[1]: Entering directory `/data/home/book/src/ext/perl/ext/IPC/SysV'
    cp Msg.pm ../../../lib/IPC/Msg.pm
    cp Semaphore.pm ../../../lib/IPC/Semaphore.pm
    cp SysV.pm ../../../lib/IPC/SysV.pm
    ../../../miniperl "-I../../../lib" "-I../../../lib" ../../../lib/ExtUtils/xsubpp  -typemap ../../../lib/ExtUtils/typemap  SysV.xs > SysV.xsc && mv SysV.xsc SysV.c
    cc -c   -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2   -DVERSION=\"1.04\" -DXS_VERSION=\"1.04\" -fpic "-I../../.."   SysV.c
    SysV.xs:7:25: error: asm/page.h: No such file or directory
    make[1]: *** [SysV.o] Error 1
    make[1]: Leaving directory `/data/home/book/src/ext/perl/ext/IPC/SysV'
    make: *** [lib/auto/IPC/SysV/SysV.so] Error 2
    #!/bin/sh

    # blead has my local patch
    git checkout blead
    git clean -xdf

    # setup temporary directories
    rm /tmp/buildperl.log
    rm -rf /tmp/perl
    mkdir /tmp/perl
    mkdir /tmp/perl/source

    # compile and test all the tags given on command-line
    for tag in $* ; do

        # get the version
        version=`echo $tag|cut -d- -f 2`

        # make a tarball
        echo "=== creating /tmp/perl/source/perl-$version.tar.gz"
        git archive --format=tar --prefix=$tag/ $tag^{tree} \
        | gzip > /tmp/perl/source/$tag.tar.gz

        perl cpan/Devel-PPPort/devel/buildperl.pl --config default --perl $version --test

        # check it was installed correctly
        if [ -d /tmp/perl/install/default/$tag/ ] ; then
            result="ok"
        else
            result="not ok"
        fi
        echo "$result - $version" >> /tmp/buildperl.log

    done
    $ ./compile_perl `git tag -l 'perl-5.8*'`
/opt/perl
$ ls /opt/perl
5.10.0  5.6.2  5.8.7  5.8.8
perl
5271 pts/2    Ss     0:01 bash
6182 pts/2    S      0:00  \_ /bin/bash ./perlenv 5.10.0
6183 pts/2    S      0:00      \_ /bin/bash
/opt/perl/$VERSION/bin
setperl ()
{
    export PATH=`echo $PATH|sed -e "s:/opt/perl/[^/]*/bin:/opt/perl/$1/bin:"`
}
~/.bashrc
X-Mailman-Action
List-Id
X-Mailman-Approved-At
Mail::Box
Mail::Box
;-)
;-)
Test::Database
Test::Database
    my @handles = Test::Database->handles( @requests );
@request
Test::Database
Test::Database
Test::Database::Handle
Test::Database::Handle
    # $handle is a Test::Database::Handle object

    # get all the info you need and DIY
    my ( $dsn, $user, $pass ) = $handle->connection_info();
    my $dbh = DBI->connect( $dsn, $user, $pass );

    # be lazy and let it do the DBI->connect( $dsn, $user, $pass ) for you
    my $dbh = $handle->dbh();
    my @handles = Test::Database->handles( 'SQLite', 'mysql' );
/the logo is (gay|feminine|childish)/
#!/usr/bin/env perl
use strict;
use warnings;
use GraphViz;

my $png = shift || 'use.png';
my $g = GraphViz->new( rankdir => 1 );

my @stack;
while (<>) {
    # first node
    /^Modules used from (.*):/ && do {
        $g->add_node($1);
        @stack = ($1);
    };
    # all other nodes
    /^((?:  )+)(\S+),/ && do {
        my $idx = length($1) / 2;
        $stack[$idx] = $2;
        $g->add_node($2);
        $g->add_edge( $stack[ $idx - 1 ] => $2 );
    };

    # ignore all other lines
}

$g->as_png($png);
0.08 Mon Apr 23 19:08:30 CEST 2007
        [ENHANCEMENTS]
        - the hook callback now receives the socket on which the data
          was received, in addition to the connector
        [NEW CONNECTOR]
        - Net::Proxy::Connector::connect_ssl
          (combines Net::Proxy::Connector::connect and
          Net::Proxy::Connector::ssl in a single connector)
        [TESTS]
        - made tests more robust when connector prerequisites are missing
        - test Net::Proxy::Connector::ssl as an "in" connector
        - test the start_cleartext option of Net::Proxy::Connector::ssl
connect_ssl
connect
 Net::Proxy 
:-)
$ cd ~/src/perl-5.8.8
$ sh Configure -Dprefix=~/local -des
...
$ make && make test && make install
$ ls ~/local/
$ cd ~/src/perl-5.8.8
$ ls \~
bin  lib  man
$ rm -rf ~
;-)
6/46 unexpectedly succeeded
Acme::MetaSyntactic::summerwine

BooK's Journal

Flore Louise Apolline Bruhat-Souche

Fixing Mailman with Perl

Pink stinks

git-move-dates

More Git gadgets

git-mtime

Git fractals

git-dot

nopaste

buildperl.pl

Switching perls

Mail::Box++

OSDC.fr

Test::Database, for CPAN testers

Test::Database, for CPAN authors

My favorite Perl logo

A reason to like the Perl 6 logo

White Camel

/me ♥ git

An iCalendar for all Perl events

Onward to the 100th Perl conference!

Graphing module usage

Alice Claire Rose Bruhat-Souche

Net::Proxy 0.08

Hackathon war story

Five things you didn't know about me

All tests successful (6 subtests UNEXPECTEDLY SUCCEEDED)

New job in March

Quoting myself on 5.10

Acme::MetaSyntactic::summerwine