Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
O
oh-my-zsh
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
JIRA
JIRA
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
github
oh-my-zsh
Commits
5bbd87a3
Commit
5bbd87a3
authored
14 years ago
by
Daniel Bolton
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add Perl plugins file
parent
746a1036
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
62 additions
and
0 deletions
+62
-0
perl.plugin.zsh
plugins/perl/perl.plugin.zsh
+62
-0
No files found.
plugins/perl/perl.plugin.zsh
0 → 100644
View file @
5bbd87a3
# 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 http://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
}
# say - append a newline to 'print'
say
()
{
print
"
$1
\n
"
}
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment