tyruのブックマーク - はてなブックマーク

SECCON 2013 全国大会 writeup - アリ
3/1, 2に行われたSECCON 2013 全国大会にdodododoとして参加してきた。最終的なスコアは1261点で、順位はおそらく9位。やはりbinaryができる人がいないとつらいものがある :) ルールサーバが6つ用意されていて、塔にまつわる名前が付けられている。Korin、2.kaku、Pisa、Druaga、Babel、Hanoi。開始時点では前半3つのサーバが開放されていた。1日目の残り数分の時点ですべてのサーバが開放された。サーバにいくつかのキーワードが隠されており、そのキーワードをサブミットすることで100pt獲得することができる。また、自分のチームのフラグワードをサーバの特定の場所に書き込むことで得点が数分毎に加算されていく。ということで、以下writeup。 Korin 最初に4つのキーワードを奪取。そのおかげで、開始から1、2時間くらいは1位をキープできていた
tyru 2014/03/06
security
リンク
Perlの食えない事情 - 演算子編 - アリ
Perlの食えない事情よりおっと、そうです、Perlには演算子が多すぎるのでした。せっかくの機会なので、Perlの演算子を紹介します。ビーナス演算子: 0+, +0 数値として評価してくれます。意外とよく見かけますね。なぜこの演算子を使う必要があるのかというと、Perlは文字列と数値を明確に区別できないからです。scalarを文字列として解釈するならば文字列として、 print 0+ '10'; #=> 10 print 0+ '123b'; #=> 123 print '1.2e3' +0; #=> 1200 print [] +0; #=> 4303367864 ちなみに、文字列として評価するときにはこのようにするとかっこいいと言われています。 $obj.q(); 一見メソッド呼び出しのように見えますが $obj . ''; と等価です。ベビーカー演算子: @{[ ]} 文字
tyru 2013/02/05
演算子の組み合わせでよくこれだけ複雑なことができるなーと

perl
リンク
Perl SEGV Golfに挑戦してみた - アリ
にひりずむ::しんぷる - perl segv golf より % perl -eversion::new zsh: segmentation fault perl -eversion::new % echo perl -eversion::new | wc -c 20 さすがにAcme::SEGVには負けますね。ちなみにperl-5.8.9ではSEGVしません。というよりこれ、どうにかしたほうがいいですよね。
tyru 2011/10/02
windowsでPerl使ってた頃何かのインストールの途中でSEGVしてそこから進まなかったことを思い出した... その恨みでversion.pmとか絶対使いたくない

perl
リンク
Mojolicious::Liteを使ってMarkdownをリアルタイムプレビューしてみた - アリ
こんな感じ。もちろん、Text::MarkdownだけではなくText::Xatenaでもできるので満足ですね。
tyru 2011/04/02
mojo

mojolicious

perl

markdown

!share-with

!tumblr-tech
リンク
1