|
@@ -27,7 +27,7 @@ alias latest-perl='curl -s http://www.perl.org/get.html | perl -wlne '\''if (/pe
|
|
|
|
|
|
# Functions #################################################################
|
|
# Functions #################################################################
|
|
|
|
|
|
-# newpl - creates a basic Perl script file and opens it with $EDITOR
|
|
|
|
|
|
+# newpl - creates a basic Perl script file and opens it with $EDITOR
|
|
newpl () {
|
|
newpl () {
|
|
# set $EDITOR to 'vim' if it is undefined
|
|
# set $EDITOR to 'vim' if it is undefined
|
|
[[ -z $EDITOR ]] && EDITOR=vim
|
|
[[ -z $EDITOR ]] && EDITOR=vim
|
|
@@ -54,9 +54,3 @@ pgs() { # [find] [replace] [filename]
|
|
prep() { # [pattern] [filename unless STDOUT]
|
|
prep() { # [pattern] [filename unless STDOUT]
|
|
perl -nle 'print if /'"$1"'/;' $2
|
|
perl -nle 'print if /'"$1"'/;' $2
|
|
}
|
|
}
|
|
-
|
|
|
|
-# say - append a newline to 'print'
|
|
|
|
-say() {
|
|
|
|
- print "$1\n"
|
|
|
|
-}
|
|
|
|
-
|
|
|