読者です 読者をやめる 読者になる 読者になる

ichirin2501's diary

いっちりーん。

/perl

Perlで重複した要素をユニークにする

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

まだ解いてないPKUの問題を列挙するクソコード

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

PerlでTwitterBot作ってみた

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