feat: move configuration files inside home folder
This commit is contained in:
65
home/.config/zsh/ohmyzsh/plugins/perl/perl.plugin.zsh
Normal file
65
home/.config/zsh/ohmyzsh/plugins/perl/perl.plugin.zsh
Normal file
@ -0,0 +1,65 @@
|
||||
# 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
|
||||
}
|
||||
|
||||
# If the 'perlbrew' function isn't defined, perlbrew isn't setup.
|
||||
if [[ $ZSH_PERLBREW_ACTIVATE != false ]] && (( ! $+functions[perlbrew] )); then
|
||||
local _perlbrew="${PERLBREW_ROOT:-${HOME}/perl5/perlbrew}"
|
||||
if [[ -f "${_perlbrew}/etc/bashrc" ]]; then
|
||||
source "${_perlbrew}/etc/bashrc"
|
||||
fi
|
||||
unset _perlbrew
|
||||
fi
|
Reference in New Issue
Block a user