| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 |
- # 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 https://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
- }
|
