Skip to content

Instantly share code, notes, and snippets.

View krrrr38's full-sized avatar
💭
🍣

Ken Kaizu krrrr38

💭
🍣
53 followers · 22 following
View GitHub Profile
@krrrr38
krrrr38 / ec2-setup.sh
Last active December 23, 2015 23:59
なんかもう適当
sudo yum -y update
sudo yum -y install httpd
sudo chkconfig httpd on
sudo service httpd start
sudo yum -y install mysql-server
sudo yum -y install mysql-devel # DBD::mysqlでmysql.hやら必要になる(/usr/include以下に入る)
sudo chkconfig mysqld on
sudo service mysqld start
sudo yum -y install nginx
sudo chkconfig nginx on
@krrrr38
krrrr38 / pre-commit
Created September 20, 2013 11:48
check unnecessary code on pre-commit
#!/bin/sh
if git rev-parse --verify HEAD >/dev/null 2>&1
then
against=HEAD
else
# Initial commit: diff against an empty tree object
against=4b825dc642cb6eb9a060e54bf8d69288fbee4904
fi
@krrrr38
krrrr38 / intellij_play.md
Created September 11, 2013 12:28 — forked from pesblog/intellij_play.md 
$ cd $$PROJECT_DIR$$
$ rm -rf .idea .idea_modules
$ play
[PROJECT_NAME] $ compile
[PROJECT_NAME] $ idea no-fsc no-sbt-build-module
  • Intellij IDEAでプロジェクトを開く
  • Play 2 のコメント欄の Ignore をクリック
  • ProjectSettinsを開く
  • SDKs に Java1.7 を追加する（追加されてることもある）
@krrrr38
krrrr38 / AtomPubFeed.scala
Last active December 22, 2015 14:09
ApacheAbdera使ってAtomPubのコレクションでPaging取得する on はてなブログAtomPub
import org.apache.abdera.Abdera
import org.apache.abdera.protocol.client.AbderaClient
import org.apache.abdera.protocol.client.RequestOptions
import org.apache.abdera.ext.wsse.WSSEAuthScheme;
import org.apache.abdera.model.Document
import org.apache.abdera.model.Entry
import org.apache.abdera.model.Feed
import org.apache.abdera.ext.history.FeedPagingHelper
import org.apache.commons.httpclient.UsernamePasswordCredentials
@krrrr38
krrrr38 / run-script-region.el
Last active December 21, 2015 16:09
(defun run-script-region ()
"指定範囲内のコードをスクリプトとして実行します"
(interactive)
(if (>= (region-beginning) (region-end))
(message "no selected region")
(let* ((run-script-region-file-path "/tmp/run-script-region")
(extention (progn
(string-match "\\..*" (buffer-name))
(substring (buffer-name) (+ (match-beginning 0) 1) (match-end 0))))
(command (cond ((equal extention "js") "node")
@krrrr38
krrrr38 / run-perl-region.el
Last active December 21, 2015 16:08
(defun run-perl-region ()
"指定範囲内のコードをスクリプトとして実行します"
(interactive)
(if (>= (region-beginning) (region-end))
(message "no selected region")
(let ((run-perl-region-file-path "/tmp/run-perl-region"))
(write-region (region-beginning) (region-end) run-perl-region-file-path nil)
(compile
(format
"cd %s; perl -M'Project::Libs lib_dirs => [qw(modules/*/lib local/lib/perl5)]' %s"
@krrrr38
krrrr38 / glob_test.pl
Last active December 20, 2015 09:49
glob分からん困った
#!/usr/bin/env perl
#
use strict;
use warnings;
use utf8;
use Data::Dumper;
my $file = "hoge.txt";
@krrrr38
krrrr38 / myrss.pl
Last active December 20, 2015 09:48
RSS管理+ブラウザーで一度に見たいページを開く的な．日々のRSS消化を一度に終わらせるinteractive-mode追加した．http://krrrr.hatenablog.com/entry/20130730/1375179091
#!/usr/bin/env perl
#
#
use utf8;
use strict;
use warnings;
use LWP::Simple;
use XML::RSS;
use Getopt::Long;
use Readonly;
@krrrr38
krrrr38 / hatebu_it.pl
Last active December 20, 2015 08:49
はてブのRSS取得して見たい記事まとめて開かせる
#!/usr/bin/env perl -s
#
# hatebu_it.pl -
#
use utf8;
use LWP::Simple;
use XML::RSS;
use List::MoreUtils qw/all/;
use Readonly;
Readonly my $ROW_LENGTH => 60;
@krrrr38
krrrr38 / mojo_lite_sample.pl
Created July 23, 2013 22:30
Mojolicious::Liteの一例．WebSocket，jsonレンダリング，js.epを利用した例．以下ではtemplates/assets/javascripts/echo.js.epとしてjsを定義．<script src="<%= url_for('echo-js') %>"></script>として呼び出す事が出来る
#!/usr/bin/env perl
use Mojolicious::Lite;
use DBI;
# Documentation browser under "/perldoc"
plugin 'PODRenderer';
get '/assets/javascripts/echo.js' => { template => 'assets/javascripts/echo', format => 'js' } => 'echo-js';
get '/' => sub {