重複した要素をユニークにする代表的な方法としていくつかある。 ふと、どのコードが速いのか気になったのでベンチマークを取ってみました。 今回調べたコードは以下の6種類 # use Array::Uniq; sub unique_au{ my @array = @_; return uniq sort @array; } …

$perl pku_tool.pl username password case pagerange のように引数を4つ取る。 caseは 1 or 2 の数字で入力 1のとき、ACの降順 2のとき、pageごとの問題の総AC/各問題のACの値で昇順 pagerangeは 1-10 のように入力 上記だと、1〜10ページまでを計算して出…

某サイトのHTMLを落として差分（更新情報）を取り、発言させるというもの。 作成時の記憶を辿ってつらつらと記事にしてみる。OSはUbuntuです。 大まかな流れ。 1．Net::Twitterモジュールのインストール 2．Perlでごりごり書く Net::Twitter #!/usr/bin/perl…