# 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"
 }