linux/ohmyzsh
1
0
Fork 0
mirror of https://github.com/ohmyzsh/ohmyzsh.git synced 2025-12-26 02:12:33 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Replace tabs with space for more coherence.

Browse source
This commit is contained in:
Natal Ngétal 2011-04-15 15:12:41 +02:00
commit bdee6dda0b
1 changed files with 10 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

22
plugins/perl/perl.plugin.zsh
View file

@ -44,22 +44,22 @@ alias latest-perl='curl -s http://www.perl.org/get.html | perl -wlne '\''if (/pe
# 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
# if the file exists, just open it # if the file exists, just open it
[[ -e $1 ]] && print "$1 exists; not modifying.\n" && $EDITOR $1 [[ -e $1 ]] && print "$1 exists; not modifying.\n" && $EDITOR $1
# if it doesn't, make it, and open it # if it doesn't, make it, and open it
[[ ! -e $1 ]] && print '#!/usr/bin/perl'"\n"'use strict;'"\n"'use warnings;'\ [[ ! -e $1 ]] && print '#!/usr/bin/perl'"\n"'use strict;'"\n"'use warnings;'\
"\n\n" > $1 && $EDITOR $1 "\n\n" > $1 && $EDITOR $1
} }
# pgs - Perl Global Substitution # pgs - Perl Global Substitution
# find pattern = 1st arg # find pattern = 1st arg
# replace pattern = 2nd arg # replace pattern = 2nd arg
# filename = 3rd arg # filename = 3rd arg
pgs() { # [find] [replace] [filename] pgs() { # [find] [replace] [filename]
perl -i.orig -pe 's/'"$1"'/'"$2"'/g' "$3" perl -i.orig -pe 's/'"$1"'/'"$2"'/g' "$3"
} }
@ -74,5 +74,3 @@ prep() { # [pattern] [filename unless STDOUT]
say() { say() {
print "$1\n" print "$1\n"
} }
>>>>>>> upstream/master