Entries from 2009-03-29 to 1 day

Perlの順列生成ワンライナーを考える

例題: 同じ数字が2回以上現れない、4桁の数字を羅列する(最上位桁が0でもOK) …というのを考える。 その個数は、順列 から求められるので、この場合は10×9×8×7=5040個の数字列が現れることになる。 順列を生成するスクリプト では実際に5040個の数字列を…

指定したURLの被ブックマーク件数を取得するスクリプト

はてなブックマークの被ブックマーク件数を取得するスクリプト。 さすがにこれはワンライナーだとキツそうだったので普通に書いてみた。 #!/opt/local/bin/perl use strict; use warnings; use Encode 'encode_utf8'; use LWP::Simple 'get'; use XML::RSS; …