mishin

# install perlbrew
curl -O -L http://xrl.us/perlbrew
perl perlbrew install
rm perlbrew

# setup perlbrew
~/perl5/perlbrew/bin/perlbrew init
echo "source $HOME/perl5/perlbrew/etc/bashrc" >> ~/.bashrc

# restart your shell

mishin

# add in your .bashrc
# http://henrik.nyh.se/2008/12/git-dirty-prompt
# http://www.simplisticcomplexity.com/2008/03/13/show-your-git-branch-name-in-your-prompt/
# http://blog.cyberion.net/2009/01/improved-bash-prompt-for-git-usage.html
#   username@Machine ~/dev/dir[master]$   # clean working directory
#   username@Machine ~/dev/dir[master⚡]$  # dirty working directory
#
# I've made the following ajustements:
#   - Use of plumbing, that should be faster than git status porcelain.
#   - Don't show my repo as dirty if it has files unknown from the index (I always have).

mishin

#!/usr/local/bin/perl
#
# This find dists where the distname in the metadata doesn't match the name of the
# dist as embedded in the release file name.
#
use strict;
use warnings;
use MetaCPAN::Client;
use CPAN::DistnameInfo;

mishin

#! /bin/sh

pod2man --utf8 $1 | iconv -t iso8859-5 | nroff -Tlatin1 -c -man - | iconv -f iso8859-5 | less

mishin

#!/usr/local/bin/perl
#
# cpan-repository-hosts
#
# Generate list of the different hosts that appear in the CPAN repository field
# Get a list of all the repository strings from MetaCPAN, then chop them around
# to get the host part
#
use strict;
use warnings;

mishin

git log --shortstat | awk '/Author|changed/' | perl -lne'if ( /^Author: (.+)/ ) { $author = $1 } else { while ( /(?:(\d+) (?:insertions|deletions))/g ) { $changes{ $author } += $1 } } END { print "$changes{$_} $_" for keys %changes }'
# 2674 Doug Bell <[email protected]>
# 18332 Doug Bell <[email protected]>

mishin

#From http://www.xav.com/perl/faq/Windows/ActivePerl-Winfaq12.html

#How do I extract a series of cells from Microsoft Excel?

#If you have a sheet object you can extract the values of a series of cells through $Sheet->Range-> #{'Value'}, for example:

    my $array = $Sheet->Range("A8:B9")->{'Value'};

#Now $array[0][0] contains the value of cell A8, $array[0][1] the value of cell B8, $array[1][0] the value #of cell A9 and $array[1][1] the value of cell B9.

mishin

#!/usr/bin/env perl
use v5.14;
 
# cpanm utf8::all Data::Dumper::Perltidy Data::Dumper
 
use utf8::all;
 
#===========
# TODO: move to standalone module
use Data::Dumper::Perltidy;

mishin

#!/bin/bash
set -e

# Usage:
#   rsync_parallel.sh [--parallel=N] [rsync args...]
# 
# Options:
#   --parallel=N	Use N parallel processes for transfer. Defaults to 10.
#
# Notes:

mishin

#!/usr/bin/perl

# ------------------------------------------------------------------------------
use 5.010;
use strict;
use PPI;

my %variables;
my %scheduled;
my %subs;