added psh script

This commit is contained in:
hellerve
2016-05-02 19:43:36 +02:00
parent 3cad0f27ad
commit c711ce1dc8
5 changed files with 24 additions and 1 deletions
+20
View File
@@ -0,0 +1,20 @@
#!/usr/bin/perl
print "Hi. This is a perl prompt.\n";
print "Type a Perl expression to be evaluated here\n";
print "or exit using \"exit\" or Ctrl-C.\n\n";
sub get_line {
$| = print "> ";
readline();
}
while (defined($line = get_line())) {
chomp $line;
if ($line eq "exit") {
print "Bye for now!\n";
exit;
}
my $result = eval $line;
print "=> $result\n";
}
Submodule .vim/bundle/luna-vim added at 5309c11616
Submodule .vim/bundle/presenting.vim added at 8449629460
Submodule .vim/bundle/zepto-vim updated: e0824e19bb...e24696285e
+1
View File
@@ -34,6 +34,7 @@ alias dob="git branch --merged | grep -vE '(\*)|(master)|(dev)' | xargs -n 1 git
alias vi="stty stop '' -ixoff ; vim" alias vi="stty stop '' -ixoff ; vim"
alias gcc="gcc-5" alias gcc="gcc-5"
alias g++="g++-5" alias g++="g++-5"
alias psh="perl ~/.scripts/psh"
alias push="git push" alias push="git push"
alias pull="git pull" alias pull="git pull"
alias zploc="find . -name '*zp' -exec grep -E -v \"((^[[:space:]]*$)|(^[[:space:]]*;.*$))\" {} \; | wc -l" alias zploc="find . -name '*zp' -exec grep -E -v \"((^[[:space:]]*$)|(^[[:space:]]*;.*$))\" {} \; | wc -l"