Ken Kaizu krrrr38

💭

🍣

60 followers · 22 following

Tokyo, Japan
12:32 (UTC +09:00)
https://krrrr38.com
@krrrr38

View GitHub Profile

Recently created

Least recently created

Recently updated

Least recently updated

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 / 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 / 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 / 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 / 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 / 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 / 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 / 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 / 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 / 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 {

Newer Older