cpanfile - A format for describing CPAN dependencies for Perl applications
requires 'Catalyst', '5.8000';
requires 'CatalystX::Singleton', '>= 1.1000, < 2.000';
recommends 'JSON::XS', '2.0';
require 'rake/clean' | |
HAML = FileList['**/*.haml'] | |
LESS = FileList['**/*.less'] | |
COFFEE = FileList['**/*.coffee'] | |
HTML = HAML.ext('html') | |
CSS = LESS.ext('css') | |
JS = COFFEE.ext('js') |
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 | |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use 5.010; | |
use Data::UUID; | |
use DBI; | |
use HTTP::Request::Common; | |
use LWP::Simple; |
/******************** | |
* TOOLTIP CSS | |
*/ | |
.nvtooltip { | |
position: absolute; | |
background-color: rgba(255,255,255,1); | |
padding: 10px; | |
border: 1px solid #ddd; |
行政院原子能委員會首長信箱陳情案件回復通知 | |
案件編號:12060098 | |
電子信箱:[email protected] | |
案件查詢密碼:uoBfJU | |
案件陳情人您好: | |
您陳情的內容,本會回復如下: | |
林先生:您好! |
#!/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' |
sub import { | |
shift; | |
@_ = 'with' unless @_; | |
Keyword::Simple::define $_, \&__rewrite_with for @_; | |
} | |
sub unimport { | |
shift; | |
@_ = 'with' unless @_; | |
Keyword::Simple::undefine $_ for @_; |