X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/10cf60790cf2430aba9f7e7120ccd414959e4f81..b55d69396b587288c7e654035190d9e62fa70b71:/zsh/plugins/perl/perl.plugin.zsh diff --git a/zsh/plugins/perl/perl.plugin.zsh b/zsh/plugins/perl/perl.plugin.zsh deleted file mode 100644 index f94c419..0000000 --- a/zsh/plugins/perl/perl.plugin.zsh +++ /dev/null @@ -1,62 +0,0 @@ -# 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" -} -