Skip to content

Instantly share code, notes, and snippets.

sub import {
shift;
@_ = 'with' unless @_;
Keyword::Simple::define $_, \&__rewrite_with for @_;
}
sub unimport {
shift;
@_ = 'with' unless @_;
Keyword::Simple::undefine $_ for @_;
#!/usr/bin/env python
import sys
import json
import datetime
# Feed me with output of:
# ffprobe -f lavfi -i movie=INPUT.mov,ocr -show_entries frame=pkt_dts_time:frame_tags=lavfi.ocr.text -of json
input= sys.argv[1]
id = 0
old_time = '00:00:00,000'
@c9s
c9s / gist:4233579
Created December 7, 2012 14:27
行政院原子能委員會首長信箱陳情案件回復通知
行政院原子能委員會首長信箱陳情案件回復通知
案件編號:12060098
電子信箱:cornelius.howl@gmail.com
案件查詢密碼:uoBfJU
案件陳情人您好:
您陳情的內容,本會回復如下:
林先生:您好!
@bobmonteverde
bobmonteverde / d3.css
Created March 18, 2012 09:18
A Simple D3 Line chart with Legend and Tooltips
/********************
* TOOLTIP CSS
*/
.nvtooltip {
position: absolute;
background-color: rgba(255,255,255,1);
padding: 10px;
border: 1px solid #ddd;

NAME

cpanfile - A format for describing CPAN dependencies for Perl applications

SYNOPSIS

requires 'Catalyst', '5.8000';
requires 'CatalystX::Singleton', '>= 1.1000, < 2.000';

recommends 'JSON::XS', '2.0';
@gslin
gslin / twitterToPlurk.pl
Last active August 10, 2017 03:49
Plurk 新版 OAuth Core 1.0a 的 twitter to plurk
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Data::UUID;
use DBI;
use HTTP::Request::Common;
use LWP::Simple;
@gugod
gugod / Makefile
Created May 9, 2011 12:04
patchperl packed by fatpacker
all:
fatpack trace `which patchperl`
fatpack packlists-for `cat fatpacker.trace` >packlists
fatpack tree `cat packlists`
(echo "#!/usr/bin/env perl"; fatpack file; cat `which patchperl`) > patchperl
chmod +x patchperl
require 'rake/clean'
HAML = FileList['**/*.haml']
LESS = FileList['**/*.less']
COFFEE = FileList['**/*.coffee']
HTML = HAML.ext('html')
CSS = LESS.ext('css')
JS = COFFEE.ext('js')