Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/env perl
use Mojolicious::Lite;
opendir(my $dir, 'public/catpics/') or die "Can't open kittydir!";
my @catpics = readdir($dir);
get '/' => sub {
shift->render('index');
};
#!/usr/bin/env perl
package Cats;
use strict;
use warnings;
use Web::Machine;
use Web::Machine::Util qw/bind_path/;
use Template::Jade qw/render_file/;
use Template;
#!/usr/bin/env python
# -*- coding: utf-8 -*-
from __future__ import with_statement
from os import walk, listdir
from glob import glob
from flask import Flask
from flask import render_template, request, redirect, url_for
import random
#!/usr/bin/env perl
package Cats;
use strict;
use warnings;
use Web::Machine;
use Web::Machine::Util qw/bind_path/;
use Template::Jade qw/:all/;
use IO::All;
# server.R
library('shiny')
shinyServer ( function (input, output) {
cute_level <- c("cute", "cuter", "cutest", "cutestest")
@Su-Shee
Su-Shee / gist:f5a7e4a867531bd3ff42
Created November 25, 2014 16:41
usage of curl module
!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use WWW::Curl::Easy;
my $curl = WWW::Curl::Easy->new;
" statusline:
set statusline=%-10.(%l\ of\ %L%)\ \ %<%r%{FindSub()}\ \ \ %=%{GitBranchInfoTokens()[0]}\ \
" find sub:
function! FindSub()
let subpattern = '\(sub\|function\) \w\+'
let subline = search(subpattern, 'bnW')
if !subline
return 'not in sub'
else
@Su-Shee
Su-Shee / gist:1f89736363ddecb585ce
Created February 9, 2015 19:14
Freestyle "Borschtsch" (somewhere between polish/russian/pomeranian ;)
with meat:
slices of cheap beef with bones AND marrow, don't cut it!
base:
* carrots, celery, parsley, bay leave, onions, lots of garlic in butter/lard
* slowly cook for an hour or so, keep broth, meat, marrow (!)
cut:
#!/bin/bash
# installs plenv, perl, carton, cpanminus, sets up environment in .bash_profile
# from https://github.com/tokuhirom/plenv#readme
PLENV_PERL_VERSION='5.20.2'
if [[ -n "$PERL_MB_OPT" ]]; then
echo "You must unset your local::lib environment variables first"
exit 1
@Su-Shee
Su-Shee / gist:5d1a417fa9de19c15477
Last active February 2, 2026 14:13
Falsehoods Programmers Believe About "Women In Tech"

Falsehoods Programmers Believe About "Women In Tech"

  • We have absolutely no idea what we're doing in tech. Please explain the utmost basic things to us.

  • We only do web design. Our whole reason of being in tech is to make things pretty. Consider us the doilies of the industry.

  • We're not laughing about your joke, so we clearly need you explain it to us. In great detail.

  • We're only in tech to find a husband, boyfriend or generally to get laid.