jrunscriptを試してみる

WindowsでもLinuxでもSunOS（かなり古いが）でも、どこでも動くバッチが必要になったので”jrunscript”というJavaで動くJavaScriptを使ってみる。
知らなかったが、Java6からJDKに入ってるらしい。

少しだけ試してみた。

※JDKのbinフォルダにパスを通しておいたほうが楽。

■インタラクティブ シェルで使う
CMD > jrunscript
js>print("Hello World!\n");
js>quit(); //終了


■ワンラインでスプリクトを実行する
CMD > jrunscript.exe -e "print('Hello World!\n');"


■スプリクトを書いたファイルを実行する
CMD > jrunscript -f helloworld.js
Hello World!

--- helloworld.js ---

1. print("Hello World!\n");  

PowerShellでCD-ROMドライブを開閉する

ドライブを開けることは知っていたけど、閉めることもできるんじゃないかと調べてみたらどうやらできるようだ。
⇒　http://thepowershellguy.com/blogs/posh/archive/2008/08/04/powershell.aspx

紹介されていたのは開閉どちらにでも使えるものだったけど、自分としては開ける、閉めるは別コマンドの方がよかったので分けてみた。
コードが重複しているけど、分けた方が使いやすいと思ったので。

--- Open-CDDrive.ps1 ---

1. $winnm = Add-Type -memberDefinition @"  
2.   [DllImport("winmm.dll", CharSet = CharSet.Ansi)]  
3.   public static extern int mciSendStringA(  
4.   string lpstrCommand,  
5.   string lpstrReturnString,  
6.   int uReturnLength,  
7.   IntPtr hwndCallback);  
8. "@  -ErrorAction 'SilentlyContinue' -passthru -name mciSendString  
9.   
10. $winnm::mciSendStringA("set cdaudio door open" ,$null ,0 ,0)  

--- Closed-CDDrive.ps1 ---

1. $winnm = Add-Type -memberDefinition @"  
2.   [DllImport("winmm.dll", CharSet = CharSet.Ansi)]  
3.   public static extern int mciSendStringA(  
4.   string lpstrCommand,  
5.   string lpstrReturnString,  
6.   int uReturnLength,  
7.   IntPtr hwndCallback);  
8. "@  -ErrorAction 'SilentlyContinue' -passthru -name mciSendString  
9.   
10. $winnm::mciSendStringA("set cdaudio door closed" ,$null ,0 ,0)  

VBScriptで数値を0で埋めて表示してみる

VBScriptでは0埋めでフォーマットする関数は標準で用意されていないようだ。

こんな感じで書いて

Format("0000000000", 120)

0000000120

っと表示したかったけど楽にはできないみたい。

そこでちょっとしたものを書いてみた。

普通に0埋め用のフォーマットをする関数なら他でも紹介されていたので、ここではエラー処理などは無視して、関数にするほどもない、一箇所だけそんな0埋めでフォーマットをしたい人向けにした。

内容は単純で、

• 表示したい桁 - 数値の桁
• その結果の数値をSpace関数で数値分の空白文字にする
• 空白文字をReplace関数を使って指定した文字に置き換える

っというのを一行でしているだけ。
VBScriptでちょっとしたバッチのために、だらだらと関数を書いたり、共通関数を外だしするのもなんだし。
小さいバッチはあっさりしてた方がメンテナンスも楽だからね。

1. 'VBScriptで数値を0で埋めて表示する  
2.   
3. '表示したい桁数  
4. length = 10  
5.   
6. '表示する数値  
7. value = 120  
8.   
9. '0で埋める  
10. character = 0  
11.   
12. '10桁表示で120を表し、空いている部分は0で埋める  
13. result = Replace(Space(length - Len(value)) & value, Space(1), character)  
14.   
15. WScript.Echo result ' => 0000000120  

Windowsでvimのopsplorer.vimを使ってみた。

vimをIDEっぽくできないかと探していると、opsplorer.vimなるものを見つけた。

1. vim onlineからダウンロード。 リンク：opsplorer.vim
2. pluginフォルダにopsplorer.vimを配置。（KaoriYaのvimを使っているなら runtime/pluginの下）
3. vimを起動して :opsplorer

見つけたのはいいが、使ってみるも動かない。

どうやら、Windowsには対応していないようだ。

紹介サイトのスクリーンショットがMacばっかりだったからなんとなく察したけど。

他にも困っている人がいるだろうとさらに調べると対応版を作ってくれている人がいた。

mattn
opsplorer.vimをwin32でも動くようにしてみた。便利かどうかは知らない。http://gist.github.com/333696

十分に便利でありがたいです。

githubで公開されているようなのでダウンロードして、pluginフォルダにおいてみる。

起動するとうまく動いてくれたようだ。

が！

ここでちょっとした問題が・・・

フォルダの展開やファイルの選択系はWindowsに対応してくれたようだけど、コマンド系（ファイルのコピーやリネーム、削除）ができない。

ソースを見てみると、ファイルを削除しているであろう関数FileDelete()の中で呼び出してるコマンドが"rm"だった・・・

これはWindowsでは動かんだろうな。

system()関数で呼び出されるのは、たぶん、CMDのコマンドだろうからここは"del"でないといけないはず。

PowerShellを常時使ってるから、このあたりの機能はなくてもいいんだけど、連休中にやることもなかったので、vimマクロはほとんど触ったことがないけどいじってみた。

詳細は一番下にリンクを張ったコードをダウンロードして見てもらえばいいけど、外部コマンドを呼んでいるっぽいところを変更しただけ。

let i=system("rm -f ".filename)

↓

if has("win32")

let filename = substitute(filename,".*[\\/]",'','')

let i=system("del /Q ".filename)

else

let i=system("rm -f ".filename)

endif

Windowsならフォルダの区切り文字を整理して、"del"コマンドを呼ぶ。

削除、コピー、リネーム、移動を変更してみた。

大体動いているようだけど、なぜか移動だけは動かなかった。

わかる人、助けて下さいm(_ _)m

他にも困ってる人がいると思うので変更したソースを公開する。

本来はgithubを使ったほうがいいんだろうけど、アカウントを持ってないので今回はやめておく。

opsplorer.vim（Windows動く版）

Windows7のPowerShellでDVDドライブからのディスク取り出し

Windows7を使い始めて、リムーバブルディスクの取り出しをやってみると動かなかったので修正。

前のようにWScript.Shellを使って

> $shell = New-Object -ComObject WScript.Shell

> $Shell.Application.NameSpace(17).ParseName('D:\').InvokeVerb("取り出し(&J)")

っとやろうとしたけどShellの下にApplication.NameSpaceってのがないらしく呼び出せなかった。

そこで調べてみるとWMPlayerの機能を呼び出しても取り出しができそうだったので、そっちでやってみた。

> $wmp = New-Object -ComObject WMPlayer.OCX.7

> $wmp.cdromCollection.Item(0).Eject()

自分の場合はドライブが1つしかないので試せないけど、複数ドライブなら”Item(0)”の部分を変えればいけると思う。

Oracle SQLでDATE型とUNIXタイムを相互に変換する

SQLだけでやると一文が長くなってしまうので、頻繁に利用するなら

PL/SQLで関数を作っておいた方がいいと思う。

自分の場合は一回限りなのでSQLのみでやりたかった。

※Oracle XEで検証

-- DATE型からUNIXタイムに

select trunc(to_number(

to_date('調べたい日時を入れる', 'YYYY/MM/DD HH24:MI:SS')

- to_date('1970/01/01 00:00:00', 'YYYY/MM/DD HH24:MI:SS')

) * (24 * 60 * 60)

) as unixtimestmp

from dual;

-- 例　２０１１年５月４日　午前１時２０分３０秒

select trunc(to_number(

to_date('2011/05/04 01:20:30', 'YYYY/MM/DD HH24:MI:SS')

- to_date('1970/01/01 00:00:00', 'YYYY/MM/DD HH24:MI:SS')

) * (24 * 60 * 60)

) as unixtimestmp

from dual;

結果：　1304472030

-- UNIXタイムからDATE型に

-- ここではわかりやすいようにto_charで変換して出力している

select to_char((

to_date('1970/01/01 00:00:00', 'YYYY/MM/DD HH24:MI:SS')

+ (調べたいUNIXタイムを入れる/ (24 * 60 * 60))

), 'YYYY/MM/DD HH24:MI:SS') as utc

from dual;

-- 例　1304472030 (２０１１年５月４日　午前１時２０分３０秒)

select to_char((

to_date('1970/01/01 00:00:00', 'YYYY/MM/DD HH24:MI:SS')

+ (1304472030 / (24 * 60 * 60))

), 'YYYY/MM/DD HH24:MI:SS') as utc

from dual;

結果：　2011/05/04 01:20:30

-- 調べたいUNIXタイムが標準時で記録されていた場合

-- 日本標準時で出力したければ、９時間足す必要がある

select to_char((

to_date('1970/01/01 00:00:00', 'YYYY/MM/DD HH24:MI:SS')

+ ((1304472030 + (9 * 60 * 60))/ (24 * 60 * 60))

), 'YYYY/MM/DD HH24:MI:SS') as jst

from dual;

結果：　2011/05/04 10:20:30

PowerShellで作成したフォルダに直ぐに移動（ただのメモ）

フォルダを作成するとき、直ぐにそのフォルダに移動して作業をしたいことが多いと思う。

でも、フォルダが多い場所で作成すると、目的のフォルダに移動するのはなかなか時間がかかる。

特に日本語のフォルダに移動するときは、Ｔａｂを連打したり、フォルダ名の一部を入力、またはペースとして補完するなど、わりと面倒くさい。

そんな時、作成したフォルダに直ぐに移動するには、PowerShellでは以下のようにすればよい。

> mkdir "適当なフォルダ名" | cd $_

mkdirをすると、DirectoryInfoオブジェクトが返ってくるのでそれをパイプして移動する。

※単純だけど、なんとなく忘れてしまいそうなＴｉｐsなのでメモ