# 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.
  " && $EDITOR $1
  
  	# if it doesn't, make it, and open it
  	[[ ! -e $1 ]] && print '#!/usr/bin/perl'"
  "'use strict;'"
  "'use warnings;'\
  		"
  
  " > $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
  }