Skip to content

Instantly share code, notes, and snippets.

use strict;
use warnings;
use Plack::Request;
use Benchmark qw(cmpthese :hireswallclock);
package Plack::Request::Fast {
use parent 'Plack::Request';
use HTTP::Headers::Fast;
use URI::Escape::XS;
$ mysqlenv install 5.6.16
run: mysql-build 5.6.16 /Users/shimada.yuji/.mysqlenv/mysqls/5.6.16
Downloading http://cdn.mysql.com/Downloads/MySQL-5.6/mysql-5.6.16.tar.gz...
Unpacking tarball...
Installing mysql-5.6.16...
Installed mysql-5.6.16 to /Users/shimada.yuji/.mysqlenv/mysqls/5.6.16
run: scripts/mysql_install_db
Installing MySQL system tables...2014-03-06 15:24:10 0 [Warning] TIMESTAMP with implicit DEFAULT value is deprecated. Please use --explicit_defaults_for_timestamp server option
(see documentation for more details).
2014-03-06 15:24:10 7939 [Warning] Buffered warning: Could not increase number of max_open_files to more than 256 (request: 12800)
diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index d1dbc52..196acfc 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -364,8 +364,8 @@ require File::Spec;
# Should ideally be my() not our() but local() currently
# refuses to operate on lexicals
-our %SLnkSeen;
-our ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow,
@xaicron
xaicron / youtube_dl.pl
Created March 28, 2009 06:53
youtube videos download script
#!C:/Perl/bin/perl
# Youtubeから最高画質の動画をダウンロードする
# fmt35とかもいける
use strict;
use warnings;
use utf8;
use Encode;
use LWP::UserAgent;
use File::Basename;
# 偉大なるしょこたんが今日までにどれだけBlog記事を書いたか調べるスクリプト
use strict;
use warnings;
use Web::Scraper;
use LWP::UserAgent;
use URI;
use Encode;
use 5.0100;
my $base_url = 'http://blog.excite.co.jp/shokotan/';
javascript:
(function () {
var module = location.href.match(/lib\/(.*).pm$/)[1].replace(/\//g, '::');
prompt(module + 'のリンク', '<a href="http://search.cpan.org/perldoc?' + module + '">' + module + '</a>');
})();
@xaicron
xaicron / amazon_viewZoom_high_img.js
Created April 14, 2009 15:18
Amazonの拡大画像を表示するブックマークレット
javascript:
(function (d,c,e,a,b,p,l,i) {
function C(e,u,n,i) {
for (i = 0; i < e[c].length; i++) {
n = e[c][i];
if (n.nodeName === 'IMG' && n.src.match('http://z2-ec2.images-amazon.com/images/P/')) {
u = n.src.replace(/_SX\d+_SCLZ/, '_SCRM');
break;
}
else if (n[c].length) {
@xaicron
xaicron / gist:95591
Created April 15, 2009 03:43
pixivから指定したユーザーIDの画像一覧を取得する
# pixivから指定したユーザーIDの画像一覧を取得する
# Usage: $0 [-i] id [-d save_directory] [-p max_page_number] [-e encode]
#
# 2009-12-26T02:40:21 漫画形式も対応した
# 2010-01-23T05:18:17 form_numberを指定しないと動かなくなってた
#
use strict;
use warnings;
use utf8;
#!/usr/bin/perl
use strict;
use warnings;
use Web::Scraper;
use YAML;
use URI;
binmode STDOUT => ':utf8';
import javax.swing.*;
import java.awt.Font;
import java.awt.BorderLayout;
public class AAviewer extends JFrame{
public static void main(String[] args){
new AAviewer();
}
AAviewer() {