hoge.bat rem 自分のいるドライブに移動する %~d0 rem 自分のいるディレクトリに移動する cd %~p0 dir 実行してみる。 D:\>C:\TEMP\hoge.bat D:\>rem 自分のいるドライブに移動する D:\>C: C:\TEMP>rem 自分のいるディレクトリに移動する C:\TEMP>cd \TEMP\ …

-E:-- hoge.cgi 2% L60 (Perl)----11:13AM 0.31---------------------------- 1文字目: 入力モード 日本語入力モードの場合、「-」が「-あ」と変化する -あE:-- ... 2文字目: ファイルの文字コード E: 日本語 EUC J: 日本語 JIS S: 日本語 Shift-JIS u: Unic…

zsh + Perl で あるディレクトリ以下のファイルを再帰的に検索して文字コードを調べるワンライナーを書いてみた。 % perl -0777 -MEncode::Guess -wne '$e=guess_encoding($_,qw/euc-jp shiftjis 7bit-jis/);print "$ARGV:".$e->name."\n" if(ref($e))' **/*…

CodeRepos の commit 権申請しちゃった - ablog 以前申請していた coderepos.org の commit 権を頂いた。とっくに却下されたものと思ってた。 とりあえず wiki のページを作ってみる。 http://coderepos.org/share/ にアクセスする。 左上の login をクリッ…

鍵は作成済みとする。 $ scp ~/.ssh/id_rsa.pub hoge@hoge.sakura.ne.jp:~/.ssh/id_rsa.pub.hoge $ ssh hoge@hoge.sakura.ne.jp $ cd ~/.ssh $ cat id_rsa.pub.hoge >> authorized_keys $ rm id_rsa.pub.hoge

jpg と gif 以外のファイルを固める。 $ find www -type f|perl -ne '/jpg|gif/ or print'|xargs tar rvf www.tar tar: www/web_order/?R?s?[: Cannot stat: No such file or directory tar: ?`: Cannot stat: No such file or directory tar: orderform.htm…

% perl -le 'print for 1..1000' > hoge.txt % perl -wne 'print if 1..200' hoge.txt > hoge1-200.txt % perl -wne 'print if 201..250' hoge.txt > hoge201-250.txt % wc -l * 1000 hoge.txt 200 hoge1-200.txt 50 hoge201-250.txt 1250 total [関連] spli…

Java で「コマンドライン引数が指定されていれば使う、指定されてなければデフォルト値を使う」ってことをしたいときって一般的にどう書くんだろ？とりあえず、以下のように書いてみた。 public static void main(String[] args) throws Exception { String …

はじめてのTOEIC - ablog 7月に準備なしではじめて TOEIC を受験した。 今後、半年間隔程度で受験しようと思ってるので、次回までにやることをまとめておく。 次回の目標点は600点。 最低限やること 問題の解き方を確立しておく。 Part1 〜 Part7 をそれぞれ…

Windows XP マシンから別の Windows XP マシンのプログラムを手軽に実行したかったので、いろいろ調べてたら、 CX's MEMO でナイスな vbscript を発見！ 何かをインストールしたりする必要ないので、とてもお手軽。 xstart.vbs Set args = Wscript.Arguments…

自分用のメモです。ablog 全般に言えることですが、間違いだらけなので参考にしないで下さいw [STATSPACK report for -> Sessions] [概要] スナップショット取得時のセッション数を見ることができる。 平常時のスナップショットを取得しておき、負荷が高いと…

名前 クラス 説明 table scans (long tables) 64 短い表の基準を満たさない表として、長い表を（逆に短い表も）定義できる。短い表の説明を、table scans (short tables)に示す。 table scans (short tables) 64 オプティマイザ・ヒントがOracleの行ソース・…

物理メモリのサイズ Itanium # /usr/contrib/bin/machinfo | grep -i Memory PA-RISC # grep "Physical:" /var/adm/syslog/syslog.log スワップ領域のサイズ # /usr/sbin/swapinfo -a ディスクの空き容量 # bdf CPU のアーキテクチャ # /bin/getconf KERNEL_…

id:sugyan さんにトラックバックされた。 変態的に書きたいときはこんなカンジでｗ perl -pe '$\=$_}{' hoge.log 最終行だけ表示するPerlワンライナー - すぎゃーんメモ ちょっと何書いてるのか理解できないですね（汗 % perl -le 'print for(1..10)' > hoge…

xargs がめちゃ便利なのでメモっておく - ablog に、id:teramako さんから以下のツッコミを頂いた。 >% find . -type f | while read line >do > chmod g+w $line >done >と同じことを xargs を使うと、 >find . -type f | xargs chmod g+w 見た目は一緒です…

foo.shとbar.shを実行して、 % ls bar.sh foo.sh % ./foo.sh & % ./bar.sh & % jobs [1] - running ./foo.sh [2] + running ./bar.sh kill す。 % ps -ef|perl -lane '/(foo|bar)\.sh/ and kill(SIGKILL, $F[1])' [1] - killed ./foo.sh [2] + killed ./bar.…

#!/bin/sh BASE_DIR=`cd \`dirname $0\`;pwd` echo $BASE_DIR [参考] http://d.hatena.ne.jp/ymorimoto/20090305/p1

xargs とは 標準入力から渡されたファイル名などを引数とみなして、別のコマンドの引数として起動するというものです。 http://openlab.dino.co.jp/2008/02/20/133431188.html というものらしい。 言葉だけではピンとこないので具体例で言うと、 % find . -t…

例えば1つ以上の空行をレコードセパレータ、改行をフィールドセパレータとしたい場合以下のようにする。hoge.txt があって、 % cat hoge.txt name:smith age:40 gender:male name:neo age:30 gender:male name:trinity age:28 gender:female 1フィールド目に…

OS CPU使用率 vmstat us: ユーザモードで使用したCPU時間の割合。 sy: システムモードで使用したCPU時間の割合。 id: CPU が使用されていなかった時間の割合。 メモリ使用量 vmstat avm: 使用している仮想メモリ容量。単位はページ(4096byte)。 free: 空きメ…

STATSPACKレポートを全部一気に出力するスクリプト - MATSU’s vision でいいものを見つけたので使ってみた。 実行後に SQL*Plus を終了させたいので exit を追記した。 % ls output_spreport.sql % cat output_spreport.sql --http://d.hatena.ne.jp/MATSU/2…

とりあえず、浅いメモ。 # vmstat 1 procs memory page faults cpu r b w avm free re at pi po fr de sr in sy cs us sy id 2 1 0 962500 181391 1444 26 3 0 0 0 1 2953 45666 1270 14 2 83 ... r: 実行待ち行列にあるプロセス。 プロセスには実行可能状態…

こんなファイルを作って、 % cat hoge.txt aaaline1bbb line2 cccc line1 aaa bbbb line2 cccc ワンライナーを実行してみる。 % perl -0777 -pe 's/.*line1.*\n(.*?)\n/$1/g' hoge.txt line2 cccc line2 cccc スクリプト化するとこんなコードになる。 % perl…

% echo w.w.w.google.co.jp|perl -pwe 's/.*\.([a-zA-Z0-9\-]+\.)(com|co\.jp|ne\.jp)/$1$2/' google.co.jp

001.txt - 010.txt を作る。 % for i in {001..010} do touch $i.txt done % ls 001.txt 002.txt 003.txt 004.txt 005.txt 006.txt 007.txt 008.txt 009.txt 010.txt 005.txt - 010.txt のみ処理する。 % ls <5-10>.txt 005.txt 006.txt 007.txt 008.txt 009…

最後の行だけ表示する。 perl -wnle 'eof and print' hoge.log 最初と最後の行だけ表示する。 perl -wnle 'print if($.==1 or eof)' hoge.log 複数ファイルの最初と最後の行だけ表示する。 perl -wnle 'print if($.==1 or eof);eof and close ARGV' *.log […

どうするんだろうかと思っていたら、git status 打ったときに $ git status # On branch master # Changed but not updated: # (use "git add <file>..." to update what will be committed) # (use "git checkout -- <file>..." to discard changes in working director</file></file>…

Oracle の exp コマンドの direct、buffer、recordlength オプションについて調べたことをメモ。 direct direct=y を指定すると速い。これをダイレクト・パス・エクスポートという。 従来型では、SQL の SELECT 文によって処理されていたが、データがディス…

ユーザテーブルから使われていないユーザIDの範囲を調べたいようなときに使えるかも。 テーブルを作って、データを入れる。 SQL> create table test(id number(4)); SQL> begin for i in 1..500 loop insert into test (id) values(i); end loop; commit; en…

Shift_JIS から EUC-JP に変換する。 perl -i.org -MEncode -pe 'Encode::from_to($_,"shiftjis","euc-jp");' hoge.txt 改行コードも CRLF から LF に変換する場合。 perl -i.org -MEncode -pe 's/\r\n/\n/g;Encode::from_to($_,"shiftjis","euc-jp");' hoge…