# https://github.com/dbbolton

#

# Below are some useful Perl-related aliases/functions that I use with zsh.

# Aliases ###################################################################

# perlbrew ########

alias pbi='perlbrew install'

alias pbl='perlbrew list'

alias pbo='perlbrew off'

alias pbs='perlbrew switch'

alias pbu='perlbrew use'

# Perl ############

# perldoc`

alias pd='perldoc'

# use perl like awk/sed

alias ple='perl -wlne'

# show the latest stable release of Perl

alias latest-perl='curl -s http://www.perl.org/get.html | perl -wlne '\''if (/perl\-([\d\.]+)\.tar\.gz/) { print $1; exit;}'\'

# Functions #################################################################

# newpl - creates a basic Perl script file and opens it with $EDITOR 

newpl () {

    # set $EDITOR to 'vim' if it is undefined

    [[ -z $EDITOR ]] && EDITOR=vim

    # if the file exists, just open it

    [[ -e $1 ]] && print "$1 exists; not modifying.\n" && $EDITOR $1

    # if it doesn't, make it, and open it

    [[ ! -e $1 ]] && print '#!/usr/bin/perl'"\n"'use strict;'"\n"'use warnings;'\

        "\n\n" > $1 && $EDITOR $1

}

# pgs - Perl Global Substitution

# find pattern      = 1st arg

# replace pattern   = 2nd arg

# filename          = 3rd arg

pgs() { # [find] [replace] [filename]

    perl -i.orig -pe 's/'"$1"'/'"$2"'/g' "$3"

}

# Perl grep, because 'grep -P' is terrible. Lets you work with pipes or files.

prep() { # [pattern] [filename unless STDOUT]

    perl -nle 'print if /'"$1"'/;' $2

}

# say - append a newline to 'print'

say() {

    print "$1\n"

}