今日で、3ヶ月半参画していた短期プロジェクトが終了。 最後に花を頂きました。 意外なタイミングで花をもらうのってうれしいものだということに気づきました。 追記(2009/10/01): その後、ある方に連れて行って頂いたスペイン料理屋がめちゃうまかった。 な…

SQL> show parameter target NAME TYPE VALUE ------------------------------------ ----------- ------------------------------ archive_lag_target integer 0 db_flashback_retention_target integer 1440 fast_start_io_target integer 0 fast_start_mt…

sga_max_size インスタンスを再起動する。 SQL> conn / as sysdba SQL> show parameter sga_ NAME TYPE VALUE ------------------------------------ ----------- ------------------------------ sga_max_size big integer 1536M sga_target big integer 15…

Oracle Messaging Gateway のおはなし。 現象 --エージェントを起動する SQL> conn mgwadmin/oracle SQL> exec dbms_mgwadm.startup --エージェントが起動していることを確認する。 SQL> set linesize 160 SQL> col last_error_msg for a60 SQL> select agen…

OS 再起動後、Oracle インスタンスを起動しようと思ったら、 $ sqlplu s / as sysdba SQL> startup ORA-01078: failure in processing system parameters ORA-01565: error in identifying file '+DG01/db01/spfiledb01.ora' ORA-17503: ksfdopn:2 Failed to…

秩父鉄道のSLパレオエクスプレスに乗ってきた。 SL 見てると、「これ考えた人すげ〜」って思った。蒸気機関が発明されて、SL が走りだした当時の人はたまげただろうなぁ。 車のエンジンもそうだけど、大昔に発明されてるけど、基本構造は今も変わってない気…

使い方 プロセスIDを確認する。 % ps -ef ... oracle 1503 1 0 13:49:42 ? 0:00 oracleorcl (LOCAL=NO) ... スタックトレースを取得する。 % pstack 1503 1503: oracleorcl (LOCAL=NO) ffffffff7dcce794 read (e, 10389cc16, 810) 00000001028aca8c snttread…

perl -ne '/^\s*([0-9:\.]{12}).*\[10000\] (start|end).*/ and push(@a,$1);if(eof){for($i=0;$i<=$#a;$i+=2){printf("%s %s %s\n",substr($ARGV,3,7),$a[$i],$a[$i+1])};@a=()}' hoge_*.log

見方 Linux m をつけるとスレッドまで表示される。 ps -efm Solaris 10 L をつけるとスレッドまで表示される。 ps -efL 参考 絵で見てわかるOS/ストレージ/ネットワーク~データベースはこう使っている (DB Magazine Selection) P.19 追記(2010/04/05): 「-o…

恥ずかしいコードを直してから commit しようと思ってたけど、それだといつまでも commit しないことになりそうなので、恥ずかしいまま commit しちゃった。 svn クライアントは Cygwin についてるのを使った。 手順 share/lang/perl/misc をチェックアウト…

ちょっと使った zsh + Perl ワンライナーをメモっておく。 % perl -MList::Util=min,max -ne '/^\s*([0-9:\.]{12})/ and push(@a,$1);eof and printf("%s %s %s\n",substr($ARGV,3,7), min(@a),max(@a))' hoge<1-500>.log Perl ってほんと Practical。

Shibuya.pmやSoozyConのときにも「もっとこのヒトたちに近づけるようになろう」と誓っていたはずなのに、あまりにも進歩がない orz とは言え悔やんでいても仕方ない、今からでも遅くない、はず。 YAPC::Asia 2009 を終えて - すぎゃーんメモ SoozyCon ってな…

v$instance.instance_name でわかるけど、 SQL> select instance_name from v$instance; ERROR at line 1: ORA-00942: table or view does not exist ログインユーザから v$instance を参照できない場合は、 SQL> select sys_context('USERENV','INSTANCE_NA…

インストールする The Mac Tweetie – The Ultimate Mac App for Twitter | Write for us から FREE 版をダウンロードする。 ダウンロードディレクトリの Tweetie をアプリケーションディレクトリに移動する。 使ってみる [Machintosh HD]-[アプリケーション]…

相変わらず WinCVSごった煮版を見つけた - ablog は根強い人気だな。 # ページ ページビュー 1 ablog 885 2 Oracleデータベースの制御ファイルのみ全損した場合のリカバリ方法を検証してみる - ablog 300 3 WinCVSごった煮版を見つけた - ablog 272 4 sar -r…

Java やってないのに、また Seasar Conference に行って来た。 子供のプールの日なので、プールに行ってから会場についたら 16:00。 飲み会のために行ったみたいw Blogopolisの裏側 LT じゃんけん大会 飲み会 に参加した。 ジョジョ好きなのに、id:Yamashiro…

初 YAPC::Asia 行きたかったんだけど、仕事の都合で今年は無理だった。 特に、id:hirose31 さんのセッション気になってたんだけど、 YAPC::Asia 2009で「『Ficia』インフラとPerlにまつわるエトセトラ」というタイトルでしゃべってきました - (ひ)メモ 資料…

プロセスを一覧表示する。 > tasklist ... notepad.exe 776 Console 0 5,636 K cmd.exe 3936 Console 0 3,052 K tasklist.exe 1584 Console 0 5,160 K プロセスを kill する。 > taskkill /F /IM notepad.exe 成功: プロセス "notepad.exe" (PID 776) は強制…

STATSPACKレポートを全部一気に出力するスクリプト - MATSU’s vision を参考にAWRレポートを一気に出力するスクリプトを作ってみた。 必要に迫られてやっつけでつくったのでおかしなところがあるかも。。。 ファイルリスト $ find . . ./output_report.sh ./…

スナップショットを取得する。 $ sqlplus system/manager SQL> EXECUTE DBMS_WORKLOAD_REPOSITORY.CREATE_SNAPSHOT(); レポートを出力する。 $ export NLS_LANG=American_America.JA16EUC $ sqlplus system/manager SQL> @?/rdbms/admin/awrrpt.sql ... Spec…

さくらインターネットのレンタルサーバに teraterm でログインして日本語を入力しようとしたらできない。。。 $ uname -sr FreeBSD 7.1-RELEASE-p6 OS は FreeBSDか。ぐぐってみると、 .inputrc - teratermで日本語入力ができない場合 なんかそれっぽいを見…

% cat <<EOF >hoge.csv A,B,C,D,E,F A,B,C,D,E,F A,B,C,D,E,F A,B,C,D,E,F A,B,C,D,E,F EOF % cat hoge.csv A,B,C,D,E,F A,B,C,D,E,F A,B,C,D,E,F A,B,C,D,E,F A,B,C,D,E,F % perl -lanF',' -e 'print join(",",@F[5,0..2,4,3]);' hoge.csv F,A,B,C,E,D F,A,B,C,E,</eof>…

OSコマンドを実行してもいいんだけど、Perlでやる方法を調べてみた。 コード perl -MSys::Hostname -le 'print hostname();' 実行結果 host01 参考 ホスト名の取得 - Perl表技集

% for i in {1..10} do perl -le 'print for 2001..2010' > $i.log done % ls 1.log 10.log 2.log 3.log 4.log 5.log 6.log 7.log 8.log 9.log % cat 1.log 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 % perl -i.org -ple 's/^.{2}//' *.log % ls 1…

Solaris 10 で less で日本語のファイルを開くと文字化けした。 % perl -le 'print "あああ" for 1..100' > hoge.txt % wc -l hoge.txt 100 hoge.txt % less hoge.txt "hoge.txt" may be a binary file. See it anyway? <A4><A2><A4><A2><A4><A2> <A4><A2><A4><A2><A4><A2> <A4><A2><A4><A2><A4><A2> <A4><A2><A4><A2><A4><A2> <A4><A2><A4><A2><A4>…</a4></a2></a4></a2></a4></a2></a4></a2></a4></a2></a4></a2></a4></a2></a4></a2></a4></a2></a4></a2></a4></a2></a4></a2></a4></a2></a4></a2></a4>

bash で指定回数ループするのって、こうするのか。 コード for i in {1..10} do echo $i done 実行結果 1 2 3 4 5 6 7 8 9 10 参考 bashで指定回数ループして綺麗な連番ファイル名を作る/sprintf - それマグで！

ほんとうにただのメモ。 bash + perl ワンライナーでデータファイルを 10 倍に増幅した。 $ cp -p data.cgi data_org.cgi $ wc -l data.cgi 20763 data.cgi $ cp data.cgi data_new.cgi $ for i in {1..9} do export n=`perl -lanF',' -e '$a=$F[0] if $a<$F…

HOST を一括置換する。 perl -i.org -ple 's/HOST\s*=\s*[a-zA-Z0-9\.\-]+/HOST = 192.168.1.101/g' tnsnames.ora SERVICE_NAME を一括置換する。 perl -i.org -ple 's/SERVICE_NAME\s*=\s*[a-zA-Z0-9\.\-]+/SERVICE_NAME = testdb21/g' tnsnames.ora

Solaris では pax コマンドを使うと、絶対パスでとってしまった tar アーカイブを相対パスに解凍できる。 書式) pax -rvs ',^/,./,' -f hoge.tar 試してみる。 ディレクトリを作成して、 % mkdir -p tmp/{a,b,c} % find tmp tmp tmp/a tmp/b tmp/c 絶対パス…

解決 - MATSU’s vision Perl ワンライナーでやってみた。 $ perl -nle '$a=length if($a