dcarrillo/prezto
1
0
Fork 0
mirror of https://github.com/dcarrillo/prezto.git synced 2025-06-14 20:41:44 +00:00
Code Issues Releases Wiki Activity

Moved hub into the git plugin.

Browse Source
This commit is contained in:
Sorin Ionescu
2011-10-11 23:13:58 -04:00
parent 62fc8d802e
commit 60f39d8d91
55 changed files with 531 additions and 528 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
plugins/perl/functions/pgs Normal file
View File

@ -0,0 +1,12 @@
# Perl Global Substitution
if (( $# < 2 )); then
print "Usage: $0 find replace [file ...]" >&2
return 1
fi
local find="$1"
local replace="$2"
repeat 2 shift
perl -i.orig -pe 's/'"$find"'/'"$replace"'/g' "$@"

11
plugins/perl/functions/prep Normal file
View File

@ -0,0 +1,11 @@
# Perl grep since 'grep -P' is terrible.
if (( $# < 1 )) ; then
print "Usage: $0 pattern [file ...]" >&2
return 1
fi
local pattern="$1"
shift
perl -nle 'print if /'"$pattern"'/;' "$@"

27
plugins/perl/init.zsh
View File

@ -42,30 +42,3 @@ alias pbu='perlbrew use'
alias ple='perl -wlne'
alias pd='perldoc'
# Perl Global Substitution
function pgs() {
if (( $# < 2 )) ; then
echo "Usage: $0 find replace [file ...]" >&2
return 1
fi
local find="$1"
local replace="$2"
repeat 2 shift
perl -i.orig -pe 's/'"$find"'/'"$replace"'/g' "$@"
}
# Perl grep since 'grep -P' is terrible.
function prep() {
if (( $# < 1 )) ; then
echo "Usage: $0 pattern [file ...]" >&2
return 1
fi
local pattern="$1"
shift
perl -nle 'print if /'"$pattern"'/;' "$@"
}