$ curl http://www.google.com/language_tools 2> /dev/null | perl -MList::MoreUtils=apply -le 'apply { s{a\s+href="http://(?:www\.|)(google\.[a-z\.]+)/?"}{print $1}eg } (<STDIN>)' | sort | uniq google.ad google.ae google.am ...id:kdaiba++
YAPCが始まりましたね。 去年は参加したのですが(聴衆の方ですが)、今年は非常にとてつもなく残念な事に参加できません。 でも気分だけでもひたりたいのでPerlのお話を少々。 Rubyに備わったブロックという概念 Rubyは言語自体に高階関数をブロックという形でもっており、 eachなどで使われているのは有名です。 例: array = [1,3,5,9] array.each{|i| puts i} eachに与えている { }の部分がブロックです。 自前でブロックを受け取る関数を作りたければ yield を使えばよいでしょう。 今回のお話の内容は「Perlでもブロックを渡せる」ということなので、 eachの機能, yieldの機能は知っておられるという前提で先にすすみたいと思います。 Perlのブロックを使った例 それではRubyの話はこれくらいにしてPerlの話にまいりましょう。 ま
完全に、個人的趣味で、 「みんなの検定」に、 Perlの問題を作りました。 解答の解説を充実させたつもりですので、 よかったらやってみてください。 世の中にPerlプログラマが一人でも増えたらよいなぁ ハマりやすいところから、初学者が学んでおかないといけないところ。 マニアックな知識まで。取り揃えてみました。 以下のボタンで、難易度別に問題を絞りこめます ※2008/12/30に一部、合格基準を引き下げました ※ 間違い等ありましたら、知らせていただけると幸いです。 ※ 「やさしいPerl検定(8)初級」 の第4問は、問題文が途中で消えてしまうようです。 やさしいPerl検定(8)初級 ↑こちらのリンクからやってくださると、問題文は消えていないようです(お手数をおかけします)。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く