minil releaseでChangesに追記するときは

Perl 
{{$NEXT}}
<<このエリアにspace or tabを挟んで追記する>>

とのこと (https://github.com/tokuhirom/Minilla/blob/master/lib/Minilla/Release/CheckChanges.pm#L20)

なので、

0.01
    - Comments

という体裁にしたかったら、

{{$NEXT}}
    - Comments

と書くだけでよかった。

ref:
Not detecting version in Changes file · Issue #59 · tokuhirom/Minilla · GitHub
MinillaでNo mention of version '0.02' in changelog file 'Changes' - 鈍足ランナーのＩＴ日記

cp, mv, rmには-iオプションをデフォルトでエイリアスするとはかどる

Shell tips

ということがあったという話をしていたら、という知見をいただいたという話。
さっそくエイリアス設定した。

man cp:

-i    Cause cp to write a prompt to the standard error output before copying a file that would overwrite an existing file.  If the response from the standard input begins with the character `y' or `Y', the file copy is attempted.  (The -i option overrides any previous -n option.)

ちいさなべんりコマンド「bit」をつくった話

この記事は Perl Advent Calendar 2014 - Qiita の20日目の記事です。
19日目は id:y_uuki さんの Perlはもう古い、これからはDocker - ゆううきブログ でした！

普段みなさまごぞんじ hub でべんりなgitライフを送っているとおもうのですが
bitはそのなかのうち"対応するwebページを見にいく"あたりを切り出したコマンド…みたいなものです。

ar-tama / Bit

git remote -vして勝手にURLを取ってきてくれるので、Enterpriseなミナサマもhub configに振り回されなくてよいのと、デフォルトでbitbucketもサポートしているのがウリです。
本家のカスタマイズで対応できそうならそれでもよかったのですが、せっかくなので作ってしまいました。
自分自身でいがいとべんりに使えているので、このタイミングでgithubにぽいしてみたしだいです。

  • == hub browse
bit open
  • pull requestページを開く (compare/xxx?expand=1)
bit pr
  • compareページを開く
bit compare -b base_branch -h head_branch
  • issueをみる (一覧 / 個別)
bit issues -i 30
  • pull requestをみる (一覧 / 個別)
bit pulls -i 30

叩くとsubcommandに応じたURLがブラウザで立ち上がります。

cpanには上げていませんが、

cpanm git@github.com:ar-tama/p5-Bit.git

でさくっと入ります。
ツッコミなどどしどしおきがるにお寄せください。

えんじょい！

あしたは Perl Beginnersでおなじみ @ytnobody さんです！わくわく！


12/27追記

依存モジュールが入らないなどでうまく入らなかったかた、ゴメンナサイ！
releaseしていないがために起こったもろもろでした。
0.3 リリースしておりますので再度お試しください。

A Tour of Go #71 をやってみた

golang

これだけだと1つのgoroutineの中で再帰しているだけで、ちゃんと並列になっていない気がする…

package main

import "fmt"

type Fetcher interface {
	// Fetch returns the body of URL and
	// a slice of URLs found on that page.
	Fetch(url string) (body string, urls []string, err error)
}

func CallCrawl(url string, depth int, fetcher Fetcher, fetched map[string]bool, ch chan string) {
	Crawl(url, depth, fetcher, fetched, ch)
	close(ch)
}

// Crawl uses fetcher to recursively crawl
// pages starting with url, to a maximum of depth.
func Crawl(url string, depth int, fetcher Fetcher, fetched map[string]bool, ch chan string) {
	// TODO: Fetch URLs in parallel.
	// TODO: Don't fetch the same URL twice.
	// This implementation doesn't do either:
	if depth <= 0 {
		return
	}
	if fetched[url] == true {
		return
	}
	fetched[url] = true
	body, urls, err := fetcher.Fetch(url)
	if err != nil {
		ch <- fmt.Sprintf("%s", err)
		return
	}
	ch <- fmt.Sprintf("found: %s %q", url, body)
	for _, u := range urls {
		Crawl(u, depth-1, fetcher, fetched, ch)
	}
	return
}

func main() {
	fetched := make(map[string]bool)
	ch := make(chan string)
	go CallCrawl("http://golang.org/", 4, fetcher, fetched, ch)
	for v := range ch {
		fmt.Println(v)
	}
}

// fakeFetcher is Fetcher that returns canned results.
type fakeFetcher map[string]*fakeResult

type fakeResult struct {
	body string
	urls []string
}

func (f fakeFetcher) Fetch(url string) (string, []string, error) {
	if res, ok := f[url]; ok {
		return res.body, res.urls, nil
	}
	return "", nil, fmt.Errorf("not found: %s", url)
}

// fetcher is a populated fakeFetcher.
var fetcher = fakeFetcher{
	"http://golang.org/": &fakeResult{
		"The Go Programming Language",
		[]string{
			"http://golang.org/pkg/",
			"http://golang.org/cmd/",
		},
	},
	"http://golang.org/pkg/": &fakeResult{
		"Packages",
		[]string{
			"http://golang.org/",
			"http://golang.org/cmd/",
			"http://golang.org/pkg/fmt/",
			"http://golang.org/pkg/os/",
		},
	},
	"http://golang.org/pkg/fmt/": &fakeResult{
		"Package fmt",
		[]string{
			"http://golang.org/",
			"http://golang.org/pkg/",
		},
	},
	"http://golang.org/pkg/os/": &fakeResult{
		"Package os",
		[]string{
			"http://golang.org/",
			"http://golang.org/pkg/",
		},
	},
}

lessで複数のファイルを順番にながめる

Shell tips 
ls -1 path/to/file | xargs less
# :n (next) / :p (prev) でファイルを行き来できる

Macに標準で入ってるxargsは-iとか{}とかつけなくてよいかんじ。

ほんとはhead / tailしたときみたいに

==> path/to/file/1 <==
xxxxx...
==> path/to/file/2 <==
xxxxx...

ファイル名と中身を並べてlessでつらつら見たかったのだけど、できないのかな…

ISUCON4予選に参加してきた

Event

id:kamipo さんと id:yappo さんにお誘いいただき初参加してきました。
具体的になにをどうしたみたいな話はきっと終わってからのほうがよさそうなので忘れないうちにざっくり感想だけ。

なにも役に立てなかった！で終わってしまうことだけは避けたかったので、勝手がわからないなりにとにかく状況を整理してできることをやる、を最低ラインの目標にしてました。

が、わかってはいましたができることしかできない*1ですね。いやーくやしい。

あらたま「こういうtable作ったらいいとおもうんですけど」やっぽさん「それいま実装したからpushする」あらたま「あっはい…」みたいなかんじで、
コードとかを見てダメっぽいところはすぐ分かるのに、どう直せばいいかんじになるかまですぐに出せなかったのはぐぬぬですね。
書くちからはそれなりについてきてはいるけど、レビューとかコードリーディングとかがまだまだなんだとおもいます。

そんなんだったので主要部分はお任せしつつ、コンフリクトしない範囲でこれはだめだろうなーなコードやクエリに手を出したりしていました。
昼ごろからのかみぽさんはひたすらnginxの地雷を踏み抜いていてつらそうでした。

このくらいのスピード感でもってみんなでひとつのものにとりくむって普段なかなかない機会なので、はしばしでとても勉強になりました。
やっぽさんの着実にスコアを積み上げていく安定感とか、かみぽさんのあんちょことスクリプトたちとあきらめない心とか。

こういう場でどういうことができて、できないのか、やってみないと思っている以上になかなか実感できないものです。そういう意味でも、とてもよい機会でした。
安全圏ではない*2ので本選に出られるかどうかはまだ分からないですが、もし出られたら今回のぐぬぬをちょっとでも挽回できるようにがんばりたいです。

*1:PerlとMySQLちょこっと、HTTPサーバはあんまり、くらいのスキルセット

*2:くやしい！！！