最近Perl書いてない上に眠れないのでやってみた。
while(<>){s/[^a-z]//g,print if($a=$a?1:/^O/)}46バイト。
validationだけど、G-languageのパッケージからmgen.gbkを取ってきて
$ perl hoge.pl mgen.gbk | wc
0 1 580074
$ head -1 mgen.gbk
LOCUS NC_000908 580074 bp DNA circular BCT 15-OCT-2004
$
合ってるっぽい。簡単すぎるな。。
コードゴルフってこう言うのなのかなあ。
定石を知りたい。
コメント (2)
今日nzmさんとこれの話になって，ちゃんと読んでみたら以外と時間かかりました．．すげー．
if ($a=$a?1:/^O/)
は
if ($a=$a?1:/^ORIGIN/)
でフラグ設定だったんですね．
投稿者: hiroyuki | 2007年09月26日 03:22
そうそう
このスクリプトで頭ひねったのはそこだけ
投稿者: negipo | 2007年09月26日 09:24