前の回から結局離れてしまっていたので、サンプルを叩いてモチベーションをあげる作戦。 vSphere SDK for Perl(ver 5.0.0U1) http://downloads.vmware.com/jp/d/info/datacenter_cloud_infrastructure/vmware_vsphere/5_0#drivers_tools Perlのモジュールに…

とりあえず仮想マシンできたねーよかったねーという段階。 お仕事で使ってるvCenterがないと、できることが少なすぎて笑えるレベル ESXiの導入自体は本当に簡単です。 CDへイメージを焼ければ誰でも出来ます。 また、ESXiは軽いので、USBメモリにすんなり入…

前回の続き: http://d.hatena.ne.jp/ryousanngata/20120311/1331463320 DDR3運用に乗り換えたため計測しなおし。 PicoPSU運用も考慮していたのでそのケースも含めて。 構成 マザーボードはDDR2はP5K-Pro、DDR3はP43 Pro/USB3。 グラボはRadeon M7000とRAGE X…

ある日知らんチャンネルが出来ていて、知らん人らが5人集まって何かやっていた。 知らん人に使われるのは本位ではないので、蹴っ飛ばした。鯖管パワー。 TeamSpeak3はデフォルトで一般ユーザーでも一時チャンネル作り放題らしい。 でも、それってどうなの・…

グラフィックカード対決。 新しい鯖用のグラボとしてこの2枚を購入しました というのも、マザーボードにグラフィックカードが1枚でも刺さっていないと、エラーで止まってしまうため。 といっても、新しくマザーボードも新調したので、グラボなしで動けばそれ…

ファイル複数選択 F2キー リネームする 選択したファイルが全てその名前にリネームされる (拡張子が被る場合、連番が括弧で括られる) 個人的に大発見だけど、連番が残念なので、使わない。 レジストリかなんかでフォーマットがいじれたらまだ用途があるかも。

LWP::UserAgentを使って某FC2の某RSSを取得してたら、どうみてもUTF-8らしからぬデータが返ってきて焦った。 早速、某エディタを使って作業か・・・と思ったら、 某campで先頭4byteを見て某U先生が「これはgzipですね」と言っていたシグニチャを覚えていたの…

nice(笑)ってきてたけど、正直、優先度について全く知らなかったっていう。 どれだけ効果があるのかな。

タイトルどおり。 なんの気兼ねもなしにUTF-8で保存してしまったのが運の付きだった・・・ pos-id.defはEUC-JPで書いて、辞書をUTF-8指定で作り直したら、UTF-8で扱えます。 なんともお間抜けな事件でした。

とあるゲーム開発者らのお話聞いたときのメモ書きが出てきた(1年前ぐらい)ので、ここらへんにはっておく。超箇条書き。 漁ってたらプログラマーの現場を見てたお話もあったので、追記。

前やってダメだった、Windows版PerlへのText::MeCabの導入が出来たっぽいのでメモ。 MeCabのバージョンは0.98で、PerlライブラリにText::MeCabを使います。 文字コードはUTF-8とします。

形態素解析とかよくわかんないけど、偉い人らが作ってるので使ってみたかったの。 WINWINな環境で頑張ってたけど、うまくいかないので投げた。 まずはおとなしくLinuxでやります。 本体 wget http://mecab.googlecode.com/files/mecab-0.991.tar.gz tar xzvf…

カーネルとかディストリビューションとか [root@www43071u ~]# uname -a Linux www43071u.sakura.ne.jp 2.6.32-220.4.1.el6.x86_64 #1 SMP Tue Jan 24 02:13:44 GMT 2012 x86_64 x86_64 x86_64 GNU/Linux [root@www43071u ~]# cat /etc/redhat-release CentO…

特にしたいこともないですが某社の月980円なVPSを借りてみました。 バーチャルコンソール快適！ さて、SSH接続を有効にするためにiptablesでこの1行を加えている人は多いと思います。 iptables -I INPUT 1 -p tcp --dport 22 -m state --state NEW -j ACCEPT…

ドキュメント見ればいいです。 http://perldoc.perl.org/SelfLoader.html use strict; use warnings; use SelfLoader; # 1 while(<DATA>); # 先にDATAを全て読み出してしまうとダメ print foo() . "\n"; # OK print bar() . "\n"; # SelfLoaderを使っている && ま</data>…

jQueryで同名のclass属性を持つ要素に配列のようにアクセスしたかったけど、 なんかよくわからんけども、親要素はjQueryのObject(配列)っぽいのに、 子要素がget(index)とか[0]で取得できるのは、HTMLSelectElementだったり。 え、なにこのゴミ 親要素内に子…

いい加減バージョン管理の1個や2個覚えないと・・・と思いつつなかなかやってないので、導入だけ頑張ってみました。 といっても、既に書かれてることをやっただけなんですがね・・・ 参考 http://progit.org/book/ja/ http://network.station.ez-net.jp/spec…

windowsでもlinuxでもコンソールで対話型でyes?no?って聞いてくるのがうざかったので、 標準入力を決めた値で答えられないかなーって。 expectなんて上品なツール使えませんですし。 Windows(Windows 7 x64) echo yes | perl -e "do{ print qq{$_ yes or no\…

ユーザ入力による四則演算をサポートしたい。 でも内部で使ってるsin,cos,tanも使いたい。 変数xを参照できるようにしたい。 でも、変な操作はできるだけ許したくない。 四則演算の実装を自分で書きたくない。 不完全ですが、こちらになります。 (function()…

変なところと通信すると、永遠に待ち続けてしまう状態だったので、タイムアウト処理を追加しました。 あとはバッファをちょこっと食べるようにして、いくつかチェックを加えてみたり、 エラー時は1を返すようにして、エラーメッセージは全て標準エラー出力に…

64bit環境で構築中のことでした。 Auto detecting CPU Using Pentium II Optimised binary. Auto-restarting the server on crashConsole initialized. Using breakpad crash handler Setting breakpad minidump AppID = 10 Forcing breakpad minidump inter…

前記事: 任意のプロセス名からそのプログラムの絶対パスを得る - 日々量産 一個の関数で済むようにシェルスクリプトで書き書き。 grep以外は馴染みがないLinux初心者なのでとても苦労しました。 (もしかしたらCentOS 6.0 x86_64以外では動作しないかもしれま…

あけましておめでとうございます。 今年も例年と変わらぬようがんばります。 近場のPCショップが新年の安売りだったので、お願いしてつれていってもらいました。 USBメモリ(3.0対応)売っていたので購入し、 暇つぶしがてらにのベンチマークをとりました。 が…

読み取りはできたけど、途中で飽きた別にこんなことやる必要なかったので、 名前の対応付けとかその辺はやってないです。あと、printデバッグも消してないです。 バイナリ操作をするためにbyte列を扱うためのユーティリティを書いた（これがメインだったりす…

誰得。 #include<stdio.h> #include <math.h> float toFloat(int x){ int s = (x >> 31) == 0 ? 1 : -1; int e = (x >> 23) & 0xFF; int m = (e == 0) ? (x & 0x7FFFFF) << 1 : (x & 0x7FFFFF) | 0x800000; return (float) (s * m * pow(2, e - 150)); } int main(){ int x = </math.h></stdio.h>…

某記事に質問が良く来るのですが、本当に調べ方がわからないのかなって人が多かったので簡単に書きます。 といっても、僕は問題解決のプロというわけでもないですし、書くことは僕が経験してる中で思っている事になります。 もっとうまいやり方はあると思い…

Perlのプログラムの中の文字列定義を数えるための正規表現 多分動くはず・・・ というか、qq ah\agea もOKとかびっくりだよ。 もう少しスマートにならないもんか。 # テスト。文字列は9個ある my $string = <<'_X_'; print('hoge :' . "$hoge"); print('aaa …

my TYPE EXPR;という書式を初めて知ったので調べた。 資料 my - perldoc.perl.org fields - perldoc.perl.org 追記 御叱り元 Re: use fields; と my TYPE EXPR; - Islands in the byte stream fields::new()が遅いからですね。fields::new()の意味は、5.10.0…

2022/12/30追記: 本記事は「Perlのプロトタイプ宣言を利用してtry-catch-finally文を作る」といった記事です。コメントにある通りTry::Tinyがまさしくこれをちゃんとやっています。もし「Perlでtry-catch-finallyを行いたい」という場合は次をお読みください…

バッチファイルを作って、アイコンをCSのアイコンに割り当てると捗ります。 定期的にOS入れなおしたりしてその都度起動コマンドを設定するのが面倒だったので。 steam.exeがあるフォルダにこんなバッチファイルを作っておきます。 cs.bat START rinput.exe h…