2007-01-01から1年間の記事一覧

Windows XPからファイルサーバへアクセスし右クリックすると砂時計になる。

Windows XPで無駄に時間を食ったのでメモを残す。 Windows XP SP2 explorer.exeでファイルサーバにアクセスしたとき、ファイルサーバ自体はすぐに接続できファイルの一覧もexplorerに表示されるのだけど、ファイルを右クリックしたり、ctrl+cしたりすると砂…

bashでshiftjisでヒアドキュメントする

bashでヒアドキュメントするときshiftjisでスクリプト書いていると 駄目文字が文字化けていつもイライラしてたけど、よく考えたら perlとuse encodingでヒアドキュメントすればいいじゃんね。 サンプル #!/usr/bin/bash tst='表2' perl -e " use encoding qq…

塾長

fub_netのsearch.xmlエンコーディング指定の書きかた

2chの過去ログ?でsearch.xmlのエンコード指定の方法に関する記述を見つけた。 ・search.xmlの仕様にエンコードを追加。Encode属性に対象の文字列を入れてください。 要望されたYahooオークションだとこんな感じでOKでした。euc-jp。 <Engine Caption="Yahooオークション" Encode="euc-jp"></Engine> これで、はてな検索が…

cygwinのcrondはSYSTEMユーザで起動する

cygwinのcrondはSYSTEMユーザで起動している。 $ ps -ef|egrep cron SYSTEM 684 636 ? 13:17:07 /usr/sbin/cronSYSTEMユーザ以外で(とくに会社PCとかだとドメインコントローラ関連のユーザで)割り当てたデバイスにアクセスできないらしく、crond経由のス…

windowsの固まったプロセスを即時停止にするレジストリ

win+rしてregeditと入力する。 HKEY_CURRENT_USER\Control Panel\Desktop のAutoEndTasksを1に設定する。これにより、固まったしたプロセスは即消えするらしい。

[perl] [getclip][tips ]クリップボードを直接計算

getclipとperlを組み合わせてクリップボード⇒計算⇒クリップボードみたいなワンライナ的なものを 書いてみた。なんかをコピペしてbluewindからこのワンライナを呼び結果をクリップボードに戻す。 #!/usr/bin/bash getclip -u|perl -e 'while(<>){if($. == 1){…

なんちゃってsleep をpingで

windows dos端末にはsleepコマンドがない。pingをsleep的な代替コマンドとして使って何とかするみたいだ。 職場のおっさんに教えてもらった。 5秒sleepの例 ※-nにはsleepさせた"秒数+1"を記述してください。通りすがりさんに教えてもらい訂正しました。 pi…

perl の処理時間を関数事に表示するモジュール

>perl -MCPAN -e 'CPAN::Shell->install("Devel::Profile ")' >perl -d:Profile subtst.pl■テストファイル C:\cygwin\home\yumino\work subtst.pl #!/usr/bin/perl sub aaa{ print "hello world\n"; } sub bbb{ print "hello world\n"; } sub ccc{ print "he…

ゴミをのこさないようにwinテキストをcygwin perlでchompする

winのエディタでいろいろ編集したテキストファイルをバイナリモードかつcygwin perlでchompするときの chompはこうしたほうがよいの例。 むかし2chで怒りっぽい人に教えてもらった。重宝してる。 unless ($eol) { ($/) = ($eol) = /(\x0d?\x0a|\x0d)$/; }; c…

自分ちの.mayu(窓使いの憂鬱)

自分ちの.mayuを晒してみる。 「無変換」、「変換」はほとんどつかわないのでモディファイヤキーに割り当ててる。 「esc」は使用頻度が高いので「caps lock」に割り当ててる。 winのショートカットキーをなるべく使ってきたいのであまり凝ったことはしてない…

perl をawkのように動かす

こんなかんじにやるらしい。オプションは-ane。@Fが$1,$2・・みたいなかんじ。 ~/work/test_perl (・∀・)つ cal|perl -ane 'for $out (@F){print "$out\n"}' November 2006 Su Mo Tu We Th Fr Sa 1 2 3 <<略>>

うまくいく例

% find . -type f|egrep hoge |xargs tar rvf ./a.tarちなみに自宅のcygwin環境だとうまくいったのだけど仕事で使ってたHP-UX環境だと tarファイルがないよみたいなこと言われてウンともスンともいわねかったです。 tar玉をあらかじめつくっとくとうまくいっ…

駄目な例

% find . -type f|egrep hoge |xargs tar cvf - >>./a.tarできあがったtar玉を展開すると、なんだかファイルをちょこっとしか纏めてくれてない。 これはARG_MAX毎にコマンドを分割実行するためだかららしい。tar + xargsの場合tarのオプションはrvf(rオプシ…

find + xargs + tar

findで必要なファイルをぬいてさらにファイル名でgrepかけてxargsでこのリストをtarしたとする。

Text::ASCIITableというのでascii表組み表現が可能 たとえばexcelの表の一部をメール本文に添えたりするときに便利。 下はexcelをクリップボードに展開して、それをそのまま加工した時のオペログ(gcはgetclipのエイリアス)。 ~/work/test_perl (・∀・)つ gc|./…

はてなダイアリーへようこそ!

このページはあなた専用の日記(ブログ)です。*1さっそく「日記を書く」をクリックして最初の記事を書いてみましょう。はてなダイアリーの一番簡単な使い方を知りたい方は、以下の動画をご覧ください。(再生ボタンをクリックすると、はてなダイアリーの使…