Skip to content

Instantly share code, notes, and snippets.

" 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: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;
# server.R
library('shiny')
shinyServer ( function (input, output) {
cute_level <- c("cute", "cuter", "cutest", "cutestest")
#!/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;
#!/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/render_file/;
use Template;
#!/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
use Dancer2;
set 'template' => 'template_toolkit';
opendir(my $dir, 'public/catpics/') or die "Can't open kittydir!";
my @catpics = readdir($dir);
get '/' => sub {
#!/usr/bin/env ruby
require 'sinatra';
require 'slim';
allcats = Dir.entries('public/catpics/')
get '/' do
slim :index
end
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use Selenium::Remote::Driver;
my $driver = Selenium::Remote::Driver->new();