ちょっと書いてみた Perl スクリプトをメモっておく。 #!/usr/bin/env perl use strict; use warnings; use WWW::Mechanize; use Web::Scraper; use utf8; use Encode; my $mech = 'WWW::Mechanize'->new('autocheck', 1); $mech->get('http://www.ablog.co.…

Oracle の dense_rank() 関数を使うと、 ある列の値で順位をつける。 同順位がある場合は順位を飛ばさない。 ということを実現できる。 SQL SQL> select sid, serial#, program, dense_rank() over(order by program) from v$session; 実行結果 SID SERIAL# …

$ du -a /opt|sort -n ... 19120408 /opt/app/oracle/admin/orcl/work/dump/exp_orcl_20100203123851.dmp 19120536 /opt/app/oracle/admin/orcl/work/dump/exp_orcl_20100203150412.dmp 19789772 /opt/app/oracle/oradata/orcl/temp07.dbf 19811300 /opt/app…