You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
1.5 KiB
62 lines
1.5 KiB
# 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" |
|
} |
|
|
|
|