|
|
|
@ -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" |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|