Skip to content

Instantly share code, notes, and snippets.

View kberov's full-sized avatar
🐢
I may be slow to respond.

Красимир Беров kberov

🐢
I may be slow to respond.
View GitHub Profile
@selenamarie
selenamarie / gist:1148082
Created August 15, 2011 22:47
DBD::Oracle setup
Installed 64-bit Oracle client files including "base", "sqlplus" and "sdk" files from http://www.oracle.com/technetwork/database/features/instant-client/intel-macsoft-096467.html
Added to sudoers file:
Defaults env_keep += "ORACLE_HOME DYLD_LIBRARY_PATH"
Set these in ~/.bashrc and sourced it:
export ORACLE_HOME=/usr/local/instantclient_10_2
export DYLD_LIBRARY_PATH=/usr/local/instantclient_10_2:$DYLD_LIBRARY_PATH
Hacked up DBD::Oracle per http://blacka.com/david/2008/11/12/how-to-install-dbdoracle-on-mac-os-x/
@hayajo
hayajo / 2011-11-04-214358.vim
Created November 4, 2011 12:45
use perltidy on vim
"====================
" perltidy
"====================
call system('which perltidy')
if ! v:shell_error
"autocmd FileType perl nmap <buffer> = :%!perltidy -q<CR>
"autocmd FileType perl vmap <buffer> = :!perltidy -q<CR>
autocmd FileType perl :set equalprg=perltidy\ -pbp
endif
@kunev
kunev / bg_spell_check.vim
Created November 13, 2011 21:21
Turn on Bulgarian spell check in vim
setlocal spell spelllang=bg
@vifo
vifo / install_perlbrew.sh
Last active July 24, 2018 17:37
Perl: Install latest stable Perl via perlbrew with custom perlbrew root and options.
#!/usr/bin/env bash
export CC="gcc"
export CFLAGS="-march=native -O2 -Wall -pipe"
export CXXFLAGS="-march=native -O2 -Wall -pipe"
export PERLBREW_ROOT="/usr/local/perl"
export PERLBREW_CONFIGURE_FLAGS="-Dcc=gcc -Dinstallusrbinperl=n -Dpager=\"/usr/bin/sensible-pager\" -Uman1dir -Uman3dir -Usiteman1dir -Usiteman3dir -Uuseshrplib -Uusethreads -Uvendorman1dir -Uvendorman3dir -des"
curl -L http://install.perlbrew.pl | bash
@kraih
kraih / Coro.pm
Last active April 19, 2019 13:48
package Mojolicious::Plugin::Coro;
use Mojo::Base 'Mojolicious::Plugin';
use Coro;
use Mojo::IOLoop;
# Wrap application in coroutine and reschedule main coroutine in event loop
sub register {
my ($self, $app) = @_;
my $subscribers = $app->plugins->subscribers('around_dispatch');
@hofmannsven
hofmannsven / README.md
Last active June 4, 2024 04:25
Git CLI Cheatsheet
#!/usr/bin/env perl
use Mojolicious::Lite;
use Mango;
use Mango::BSON 'bson_oid';
helper mango => sub { state $mango = Mango->new($ENV{PASTEDB}) };
helper pastes => sub { shift->mango->db->collection('pastes') };
get '/' => 'submit';
use 5.20.0;
use feature qw(postderef signatures);
use Mojolicious::Lite;
use PadWalker 'peek_sub';
hook around_action => sub ($next, $c, $action, @) {
my @params = sort grep {s/^\$param_//} keys peek_sub($action)->%*;
return $c->$action($c->param(\@params));
};
@jberger
jberger / websocket.pl
Last active August 29, 2015 14:05
Updated WebSocket DBI Example
#!/usr/bin/env perl
use Mojolicious::Lite;
use DBIx::Connector;
my $dbname = $ENV{MOJO_DBNAME} || 'database.db';
# add helper methods for interacting with database
helper connector => sub {
state $db = DBIx::Connector->new("dbi:SQLite:$dbname","","") or die "Could not connect";
@jberger
jberger / player.pl
Last active August 29, 2015 14:06
First cut at a streaming audio player using Mojolicious
#!/usr/bin/env perl
use Mojolicious::Lite;
use experimental qw'signatures postderef';
use Cwd;
app->attr( 'music_root' => sub { return $ENV{MUSIC_ROOT} || Cwd::cwd() } );
push app->static->paths->@*, app->music_root;