ChaichanPapa-World !

燈明日記(2009/10

◆ インデックス

◆ 2009年10月

2009-10-31 Perlでのプロセス排他について

Web等のマルチユーザ環境では、複数のユーザが同時に処理要求した場合、シーケンシャル番号の採番などで排他制御が必要になります。

元々マルチユーザ環境のLinux系では、色々とサポートされていますが、元々シングルユーザ環境のWindows系では、あまりサポートされていません。


以下にLinux系とWindows系の両方で動作するプロセス排他のサンプルを組んでみました。

何かの参考になれば幸いです。

use strict;
use warnings;

Lock_Process();
print "AAAAAAAAAAA\n";
sleep(10);
print "BBBBBBBBBBB\n";
Unlock_Process();


sub Lock_Process {
my $lock_flg;
    while (1) {
        $lock_flg = mkdir('lockdir', 0777);
        if ($lock_flg == 1) {
            last;
        }
        sleep(1);
    }
}

sub Unlock_Process {
    rmdir('lockdir');
}

2009-10-30 Perlノートでググるとベスト10独占!!

WindowsXPで『Perlノート』キーワードでのGoogle検索をすると1,230,000件ヒットし、1ページ目独占(1位〜10位)状態に!!

最近、たまたま気がつきました。気持ちいい!

ちなみに、Windows2000だと1位〜7位まで独占です。

なぜか、WindowsOSの違いによって検索結果が違うんですね!

2009-10-30 VB2005で標準出力するには?

VS2005のVB2005で、新規プロジェクトを作成するときに、テンプレートを指定しますが、それをWINDOWSアプリケーション指定にすると、どうあがいてもデータを標準出力することができません。

まぁ、もしかしたら出来るのかもしれませんが…普通には出来ないはずです(半日潰した)。


そんなときは、テンプレートを素直にコンソールアプリケーション指定にしましょう!

あっさり、標準出力が出来るようになるのです!

2009-10-29 雑記

今日は、月1度の宿直だけど、今月は2回あり、実はその2回目なのです。

2回もあるなんて、凄く有り難いことですね。って、ホントかよ!

実は、勘弁してほしいのですが…、人員不足で…いろいろと大変なわけです。


話は変わって、書きたいネタは、結構貯まっていますが、なかなか練る時間ありません。

ネタが腐らないうちに、なんとか公開していきたと思っています。


では、今日はこれで、宿直(某教会)に行って参ります。

2009-10-28 Perlでのオブジェクト指向について

Perlは元々は、オブジェクト指向言語ではありません。

しかし、柔軟な言語仕様のPerlでは、オブジェクト指向言語のように振る舞うことも可能なのです。


普通、オブジェクト指向プログラミングでは、以下の要素が必要です。


ということで、カプセル化とオーバーロード以外は、大丈夫なのです。

以下に、クラス、コンストラクタ、継承、多態性、オーバーライドを使用したサンプルを書いてみました。


◆サンプル
use strict;
use warnings;

my $obj;
my $hiki = shift;

if ($hiki eq '1') {
    $obj = Otokonoko->new();
}
else {
    $obj = Onnanoko->new();
}
print $obj->getName(), "\n";
$obj->shumi();


package Person;
sub new {
    my $class = shift;
    my $self = {
        Name => $class,
    };
    return bless $self, $class;
}
sub getName {};


package Otokonoko;
use base 'Person';
sub getName {
    my $self = shift;
    return $self->{Name};
}
sub shumi {
    print "バスケ\n";
}


package Onnanoko;
use base 'Person';
sub getName {
    my $self = shift;
    return $self->{Name};
}
sub shumi {
    print "ケーキ作り\n";
}

◆実行結果
C:\perltest>perl tatai.pl 1
Otokonoko
バスケ

C:\perltest>perl tatai.pl 2
Onnanoko
ケーキ作り

もしかしたら、かなり間違ったこと書いているかもしれません。その時は、ご指摘、コメント下さい!

2009-10-27 雑記

背中の右側に痛みが…。

日曜日に買った新しい靴を、昨日が雨だったので、今日おろしたのだけれど、履きなれないので、変な筋肉を使ったのかも…?


ということで、調子がわるいので、本当は色々と書きたいことが多々あるのですが、次回以降にまわします。


そうそう、以下の本、今日読み終えました!

とにかく、めちゃくちゃためになる本です。健康になるためのノウハウが詰まっています。ちなみに、著者はちゃんとした医師なので安心ですよ!


体温を上げると健康になる

体温を上げると健康になる

2009-10-26 WindowsXPのファイヤーウォール

WindowsXPのファイヤーウォールは、外側からの壁にはなるけど、内側からの壁にはならないのですね!

すみません。Windows7が発売される今ごろ知りました。


つまり、自分のファイヤーウォールでいくら共用フォルダをNGにしても、相手の共用ファルダがOKならアクセスが出来てしまうです。

ちなみに、外側からの壁をインバウンドといい、内側からの壁をアウトバウンドいいます。


なんか、日本語と英語が逆になっていますが、これは、外側から内向きに入って来るのでインバウンドといい、内側から外向きに出て行くのでアウトバウンドといいます。

ちなみに、バウンドとは、今回の場合、壁に当たって跳ね返るの意味でなく、壁が境界線になるという意味ですね。


尚、WindowsVista以降のOSには、アウトバウンドが実装されているとのことです。

2009-10-25 キターーーー『数学ガール/ゲーデルの不完全性定理』!

数学ガール/ゲーデルの不完全性定理

予定では、10/29頃だったのだけれど、今、ちょっと前にアマゾンから届きました。

アマゾンで初めて買ったのだけれど、一冊でも送料が本当に無料なのですね!


で、ぱらぱらと読んでみたのですが…読み通すにはかなり時間が掛かりそうです。

っていうか、悲しいかな、はじめの方で躓いている…今日この頃です。


とりあえず、ご報告までに!

2009-10-25 『体温を上げると健康になる』

ここのところ、新型インフルエンザの影響で体温を計る機会が多いですね。

そして、複数人の体温一覧を見るケースもあったります。


すると、自分の体温が普通より高いのか低いのかがわかりますね。

実は、私は低いのです。一番低かったのは、35.1度の時がありました。その体温一覧で最低でした。


そして、ネットで低い体温を調べてみましたが、これが非常によくない状態だということを知りました。

で、辿りついたのがこの本『体温を上げると健康になる』なのです。


体温が低いとどうなるかは、この本を読んでもらうとして、体温を上げる方法をメモしときます。


体温を上げるには、一言でいうと、筋肉を鍛えることなのです。

筋肉を鍛える方法には、以下の2つがあります。


で、日課で筋肉を鍛えるには以下の感じです。

  1. バナナを食べて30分待つ。
  2. 無酸素運動:なるべく息をしないで、1回のスクワットを1分間かけて10回から15回。
  3. 有酸素運動:普通に息をしながら、普通のペースでスクワットを適当な回数。
  4. 運動後10分以内にチーズを食べる。

これで、体温が上がるとのことです!!

なぜ、これで体温が上がるかは、この本に書いてありますよ。


ちなみに、体温が34度台だと、かなりやばそうですよ!

とりあえず、病院へいきましょう!



体温を上げると健康になる

体温を上げると健康になる

2009-10-24 世界平和祈りの週間

世界平和祈りの週間とは、国連創設記念日(10/24)含む8日間、時を同じくして世界の宗教者が世界の平和と人類の安寧を願い、共に「祈り」を捧げることを目的として1974年にはじめられました。


今日、長久寺(東京都三鷹市大沢)での世界平和の祈りに参加して来ました。

某教会とは、大分違うお経をあげてきました。


そう言えば、9.11の後、アメリカがイラクに戦争を仕掛けるという噂の段階で、今回と同じように世界平和祈りをしましたが、ご存知のように戦争がはじまってしまいました。

史上最低最悪の前大統領に、以下の祈りが届かなかったのが、今でも残念でなりません。

まことに、怨みは怨みによって消ゆることなし。慈悲によってのみ消ゆるものなり

[法句経より]

怨みに怨みをもって報いていくと、戦争の絶えない世界になってしまいます。

まさに、そのようになってしまいました。


核廃絶前言のオバマさんには、そのようなことがないよう…期待しています!!

2009-10-24 マイガール

テレビ朝日で毎週金曜日の深夜11:15からやっている『マイガール』ってドラマをご存知ですか?

ジャニーズの嵐という若手グループの相葉雅紀さんが主役で、石井萌々果ちゃんという可愛い女の子がヒロインのドラマです。


相葉雅紀さんは演技も比較的上手いと思いますが、声質がすごくよいですね!

石井萌々果ちゃんは、文句無しに可愛くて、そして、相手を思いやることのできる…けなげな女の子で、毎回涙が止まりません。


詳しくは以下を…。


相葉雅紀さん、自然な感じですごくいいですね。

石井萌々果ちゃんは、かつての草なぎくん主演の『僕カノ』の凛ちゃんを彷彿させますね。

凛ちゃん役の美山加恋ちゃんもかわいいけど、コハル役の石井萌々果ちゃんも負けてないですね!

2009-10-23 Perlでのオブジェクトについて

えーと、前回ご説明しましたが、Perlでは一つのパッケージが一つのクラスになります。

つまり、パッケージ名がクラス名になるのです。


また普通、クラスには、オブジェクトを構築するコンストラクタがあります。

そして、コンストラクタでblessしたリファレンスにクラス名を紐付けてリターン値にして、それを変数に格納するとその変数がインスタンスになります。


って、文章で説明しても分かり辛いので、以下のソースを見て感じとってください。

use strict;
use warnings;

print "\n", '◆ポイント1の例(パッケージ名(クラス名)が第1引数)', "\n";
package00->test00(3);

package package00;
sub test00 {
    print "第1引数は$_[0], 第2引数は$_[1]です。", "\n";
    my $class = shift;
    print "第1引数は $class でクラス名になります。\n"
}


print "\n", '◆ポイント2の例(blessリファリンス(オブジェクト)が第1引数---', "\n";
my %test_HASH = (aaa => 'XXX', bbb =>'YYY');
my $test = bless \%test_HASH, 'package01';

print '-->', $test->{aaa}, '<--', "\n";
$test->test01(3);
print '-->', $test->{aaa}, '<--', "\n";

package package01;
sub test01 {
    print "第1引数は$_[0], 第2引数は$_[1]です。", "\n";
    my $obj_self = shift;
    $obj_self->{aaa} = 'ZZZ';
    print "第1引数は $obj_self  でオブジェクトになります。\n"
}


print "\n", '◆ポイント3の例 オブジェクト例(委譲)---', "\n";
my $obj_package02 = package02->new(); # newはオブジェクトコンストラクタ
                                      # $obj_package02はインスタンス
print '-->', $obj_package02->{bbb}, '<--', "\n";
$obj_package02->test02(4);            # オブジェクトのメソッド起動
print '-->', $obj_package02->{bbb}, '<--', "\n";

package package02; # パッケージは、Perlではクラスになる
sub new {
    print "第1引数は$_[0]でクラス名です。", "\n";
    my $class = shift;
    my %test_HASH = (aaa => 'XXX', bbb =>'YYY');
    return bless \%test_HASH, $class;
}
sub test02 {
    print "第1引数は$_[0], 第2引数は$_[1]です。", "\n";
    my $obj_self = shift;
    $obj_self->{bbb} = 'ZZZ';
    print "第1引数は $obj_self  でオブジェクトになります。\n"
}

2009-10-22 わかりやすく〈伝える〉技術 (講談社現代新書)

なんでも分かりやすい説明で有名な、ご存知、池上彰さんのご著書です。

NHKのアナウンサー出身でなく、現場レポーター時代から分かりやすい説明をたたき上げ、分かりやすい極みである『こどもニュース』を通して、分かりやすい説明の免許皆伝者!


わかりやすく〈伝える〉技術が、惜しげも無く、この本には詰まっておりました!

わかりやすい話し方、わかりやすい文章の書き方、わかりやすいプレゼン……


本当は、自分だけのものにしたいけど、ブロガーの性で、ブログネタで紹介してしまいました(^^;


わかりやすく〈伝える〉技術 (講談社現代新書)

わかりやすく〈伝える〉技術 (講談社現代新書)


前回ご紹介した『高校生でもわかる日本経済のすごさ』もよかったけど、こちらもいい!

実は、今日、読み始めた『体温をあげると健康になる』もよさげな本で、3冊連続であたりって感じです!


この3冊は、ためになることが沢山で、ブログネタの宝庫ですね。

咀嚼して、そのうちブログに登場するかもです!

2009-10-21 Perlでのblessについて

useやモジュールとリファレンスが理解出来てくると、blessが気になってきますね!

今回は、そんなblessの謎に迫ります。


blessを一言でいうと、リファレンスとパッケージを紐付けます。


たとえば、以下を見てください。

use strict;
use warnings;

my %test_HASH = (aaa => 'XXX', bbb =>'YYY');
my $test = bless \%test_HASH, 'package01';  # リファレンスとパッケージを紐付け

print '-->', $test->{aaa}, '<--', "\n";
$test->test01(3);
print '-->', $test->{aaa}, '<--', "\n";

package package01;
sub test01 {
    print "第1引数は$_[0], 第2引数は$_[1]です。", "\n";
    my $obj_self = shift;
    $obj_self->{aaa} = 'ZZZ';
}

『my $test = bless \%test_HASH, 'package01';』で、%test_HASHのリファレンスとpackage01のパッケージを紐付けています。

そして、blessのりターン値が%test_HASHのリファレンスなのですが、だだのリファレンスでなく、blessで紐付けられたpackage01パッケージも含まれるのです。

なので、『$test->test01(3);』のようにpackage01パッケージのtest01サブをコールすることが出来るのです。


コールする時、『->』矢印演算子を使うとtest01サブでは、自動的に第1引数が自リファレンスになるのです。

なので、『$obj_self->{aaa} = 'ZZZ';』でリファレンスからもとのハッシュ変数にアクセスして書き換えが可能なのです。


結果的にリファレンスが、ハッシュ変数(プロパティ)とサブルーチン(メソッド)を持つことになるのです。

プロパティとメソッドと言えば、そう、オブジェクトになるのですね…これが!!

2009-10-20 お清めの米とは?

まずはじめに、すみません。

なぜ、米がお清めになるのか、ネットで調べたけどわかりせんでした。


昨日、上棟式でお清めの塩と酒と米を家の周りにまきました。

お清めの塩と酒は、消毒効果があるのでわかるのですが、なぜ、米がお清めになるか…わかりません……。

2009-10-20 「iPhone」ゲーム新時代

電話、GPS、ネット、iPod、ゲームが合体したiPhone。

iPhoneが一挙にゲーム機の主役に躍りでる可能性が出てきた模様です。

OS、加速度計、GPS、カメラが統合されており、大小数多くのデベロッパーからiPhone向けゲームがリリースされていることから、多くの業界観測筋が、最も重要な、あるいは少なくとも最も柔軟なポータブルゲームプラットフォームであり、ソニーの「プレイステーション・ポータブル(PSP)」や任天堂の「ニンテンドーDS」をすでに超えたと考えている。

http://japan.cnet.com/mobile/story/0,3800078151,20401763,00.htm?ref=rss

ソニーと任天堂が、どう反撃するか楽しみですね。

もしかしたら、docomoやauとタッグを組まないと対抗できないかも…。

2009-10-19 上棟式と新車の車両供養

今日は前々から休暇で、親戚の上棟式と車両供養で、2回陀羅尼をあげる機会に恵まれました。

陀羅尼って何、って人はこちら…。


実は、この日のために陀羅尼木鉦を練習していたのですが、上棟式ではギャラリーが沢山だったのでパスし、車両供養で初めて陀羅尼木鉦を叩きました!!

めちゃくちゃ汗かいて、木鉦のリズムも一部めちゃくちゃになってしまいました(^^;

でも、初めてにしては、上手だと誉められました(^▽^)


上棟式では『家』に対して、車両供養では『車』に対して、お経(陀羅尼等)をあげて、家内安全や交通安全のお願いをするのです。

しかし、実は、お経の功徳とは、そのようなお願いでなく、すべての現象について『有り難い』と受け止めることができるようになる……ということなのです。


その昔、中国の武帝から『仏教信仰の功徳は何か』と聞かれた禅宗の達磨大師は、『無功徳』と答えたそうです。そう、仏教に功徳など無いと!

これは、信仰をしたから願いが叶うということではなく、信仰をすることにより、すべての現象について『有り難い』と受け止めることできるようになる……ということらしいのです。


…と某月刊誌(躍進11月号)に書いてありました。

私も、そう思います!

2009-10-18『数学ガール/ゲーデルの不完全性定理』

結城浩先生の新作です!

昨日、はじめてアマゾンで買いました。納品が2009/10/29 - 2009/10/31とのことでした。

アマゾンアフィリエイトでやっと本が買えるに必要なAmazonギフト券が貯まったので、試しに『数学ガール/ゲーデルの不完全性定理』を注文してみました。


しかし、何度もブログに書いていますが、アマゾンアフィリエイト の収入って、雀の涙ですね。

本が買えるまでに約2年掛かりました。


って、そんなことはどうでもよく、今は月末に結城先生の新作が凄く楽しみです!!

数学ガール/ゲーデルの不完全性定理

数学ガール/ゲーデルの不完全性定理

2009-10-18 JIN-仁-

これ、めちゃくちゃおもしろい!

先週、たまたま途中から見たのですが、引き込まれました。

ストーリーは以下の感じです。

幕末の江戸へタイムスリップしてしまった脳外科医・南方仁が、満足な医療器具も薬もない環境で人々の命を救っていき、その医術を通して坂本龍馬・勝海舟・緒方洪庵ら幕末の英雄たちと交流を深め、いつしか自らも歴史の渦の中に巻き込まれていくという、壮大なストーリーとなっている。

”誰一人自分を知る者がいない”という孤独な状況下で、知恵と情熱をもって患者たちを救う仁の姿は、「人を救うのは人である」ということを見る者に真っ直ぐに伝えてくれるだろう。

そんな波乱の人生を送ることになる主人公「南方仁」を演じるのは、連ドラ8年ぶりの出演となる大沢たかお。また、仁の現代での恋人「友永未来」と、タイムスリップした江戸・吉原の最上級位の花魁「野風」の2役を演じるのは、こちらも連ドラ7年ぶりの中谷美紀。また、幕末の江戸で仁の世話をし、公私共に支えになる「橘咲」を綾瀬はるか、その兄で仁がタイムスリップして最初に命を救うことになる「橘恭太郎」を小出恵介、仁と共に人々を救う若き医師「佐分利祐輔」を桐谷健太が演じる。

さらに、歴史上の人物としては、明治維新を推進させる幕末の革命児で、仁とも深く関わっていく「坂本龍馬」を内野聖陽、いち早く開国を志し働きかける日本近代のパイオニア「勝海舟」を小日向文世、江戸時代末期の医学を牽引する医学所頭取「緒方洪庵」を武田鉄矢、火消し「を組」の親分で仁の強力な支えとなる「新門辰五郎」を藤田まことが演じることも決定している。

医療を通じて”人の心”を知った仁は、歴史を変えることができるのか?

交流を深めていく親友・坂本龍馬に、「暗殺」という史実を伝えてしまうのか?

そして、仁の愛した現代と幕末に生きる女性たちの運命とは・・・!?

仁の戦いがいま、幕を開ける。

http://www.tbs.co.jp/jin2009/intro/

主役の大沢たかお氏は、すごくいい感じの俳優さんですね。

ヒロイン役の綾瀬はるかちゃんも可愛くていい感じです。

もうすぐ(9時TBS)、2話が始まりすね。楽しみです。

2009-10-18 Perlでのuse宣言について

Perlをやり始めると、requireはすぐ分かるんだけれど、useって謎だなぁって思いますね!

今回は、そんなuseの謎に迫ります。


はじめに、requireは、C言語でいう%includeと同じで別ファイルにあるソースを実行時にあたかも自ソースとして読み込みます。

つぎに、useは、実行前(コンパイル時)にあたかも自ソースとして読み込みます。


実行前というのは、Perlではコマンド起動時にコンパイルしてから実行するという2段階方式になっているのです。

つまり、useはコンパイルに実行され、requireはコンパイルに実行されるのです。


そして、読み込んだソース(モジュール)にpackage宣言がない場合、useとrequireでは、これ以外の違いはありません。

しかし、モジュールにpackage宣言があると、ちょっとややっこしくなるのです。


まず、モジュールでなく、メインソースの方には、package宣言がありませんが、実は、デフォルトでmainというpackage名になっています。

一方、モジュールの方は、package宣言でpackage名をmain以外で指定すると、当然ですがメインソースとは別のpackage名になりますね。


しかし、別のpackage名になっても、useには他モジュールを、以下ようにあたかも自モジュール(mainモジュール)にあるようにする仕組みがあるのです。

いきなり、importが出てきますが、これは、Moduleモジュール内でExporterモジュールを継承していて、Exporterモジュール内のメソッドなのです。


◆サンプル
・mainモジュール
#use Module;
BEGIN { require Module; Module->import;} # use Module; と等価
print sumx(5,3),"\n"; # Moduleモジュールのsumx関数があたかも自関数のように使える

・Moduleモジュール
package Module;
use base Exporter;          # use Exporter; our @ISA = qw(Exporter); と等価
our @EXPORT = qw(&sumx);
sub sumx {
 return $_[0]+$_[1]; # 渡された引数2つを加えて返す処理
}
1;

◆補足

Moduleモジュールでは、『use base Exporter』でExporterを継承して、『our @EXPORT = qw(&sumx);』でsumx関数をエクスポートしています。

mainモジュールでは、『Module->import;』でModuleモジュールでエクスポートしたsumx関数をインポートしています。

2009-10-17 Perlでのリファレンスについて

普通、リファレンスといえば、一覧の機能参照のことですが、Perlでリファレンスといえば、言語仕様のアドレス参照のことなのです。

まぁ、PerlでのリファレンスをC言語でいえば、アドレス演算ができないポインタのようなものなのです。


リファレンスの利用場面は、私が思いつくところでは以下のケースです。


◆多次元配列を処理するケース
my $array_ref1 = \@array; 

配列変数の@の前に、\をつけると、配列のリファレンスが取得できます。

上記は、配列@arrayのリファレンスを$array_ref1へ格納しています。

また、無名配列のリファレンスを格納することもできます。

my $array_ref2 = [ 1, 2, 3, 4 ]; 

リストを [ ] でくくると、無名配列になり、そのリファレンスを$array_ref2へ格納しています。


つぎに、リファレンスから元の値を取得することをデリファレンスといいます。

my $array_ref2 = [ 1, 2, 3, 4 ]; 
print $array_ref2->[3]; #デリファレンス

ちなみに、『->』は矢印演算子といい、リファレンスをデリファレンスします。


補足:リファレンスの元をリファレントいいます。

つまり、$array_ref1がリファレンスで、\@arrayがリファレントです。


この機能を利用すると多次元配列の処理が可能です。

@a = ( [ qw(00 01 02) ],
       [ qw(10 11 12) ],
       [ qw(20 21 22) ]);
for $i (0 .. $#a) {
    for $j (0 .. $#{$a[$i]}) {
        print '$a[' . $i . '][' . $j . ']=' . $a[$i][$j] . '   ';
    }
    print "\n";
}

尚、上記では『->』矢印演算子がありませんが、大括弧(ブラケット)や中括弧(ブレース)の間にはさまれた矢印は省略可能なのです。


◆関数をリファレンスでコールするケース

関数のリファレンスも配列と同様にできます。

sub01("aaa");   # 普通にコール
$sub = \&sub01;
$sub->("aaa");  # リファレンスでコール
sub sub01 {
    print "--- sub01 $_[0]---\n";
}

『$sub = \&sub01;』で関数のリファレンスを格納して、『$sub->("aaa")』でコールしています。


◆関数の引数へ配列を渡すケース

Perlでの関数の引数はリストです。

引数に配列変数を渡すとリストに展開されてしまい、普通は上手く配列変数を渡せません。

そこで登場してくるのが配列変数のリファレンスです。

リファレンスなら、上手く配列変数を渡せるのです。

my @bbb = ("bbb", "ccc", "ddd");
my @xxx = ("xxx", "yyy", "zzz");
sub02("aaa", \@bbb, \@xxx);  
sub sub02 {
    print "--- sub02 $_[0]---\n";
    print "--- sub02 $_[1]->[0]---\n";
    print "--- sub02 ${$_[1]}[1]---\n";
    print "--- sub02 $_[1][2]---\n";
    print "--- sub02 $_[2][0]---\n";
    print "--- sub02 $_[2][1]---\n";
    print "--- sub02 $_[2][2]---\n";
}

◆ 関数のリターン値にするケース

関数のリターン値でblessしたリファレンスが返された場合、それは、他言語でいうオブジェクトと同じ感じになるのです。

my $date = DateString->new();
print $date->to_string, "\n";

package DateString;
sub new {
    my $class = shift; # 第一引数は、クラス名が渡される。
    my $time = shift || time();
    return bless { time => $time }, $class; # blessしたリファレンスを返す。
}
sub to_string {
    my $self = shift;
    return scalar localtime $self->{time};
}

2009-10-16 赤字国債が発行されるとどうなるの?

民主党、公約(子供手当てや高速道路無料化等)を予算に盛り込んだり、税収が少なくなったりと、資金調達のために赤字国債を発行せざるえない感じです。


では、赤字国債が発行されるとどうなるでしょうか?

答えは、以下のページに書いてありました。

まとめると以下の感じ。

  1. まず、国債を大量に発行すると債券価格は下がり、金利が上がる(補足を参照)。
  2. 金利が上がると、マネーフローが滞るので不景気になる。
  3. 金利が上がると、ドルを売って、金利が高い円を買うので、円高ドル安が進む、すると輸出企業が不景気になる。
  4. 金利が上がると、儲けが株より国債の方が良くなるので、株安が進む、するとさらに企業が不景気になる。

そう、赤字国債が発行されると不景気のスパイラルに入る可能性が高くなるのです。

しかし、その国債を買うは、実は、我々国民なのです(まぁ、直接買うわけでなく金融機関を介して間接的にですが…)。

ですので、外国に借金が出来るわけではないのです。

なので、一時的に不景気なる可能性があっても、公約が実行されれば、相対的に生活が良くなる可能性が高いのです。


ということで、赤字国債の発行は、それほど気にしないでいいと思うのですが…プロの方どうでしょうか?


◆補足:なぜ、国債を大量に発行すると債券価格は下がり金利が上がるのか?

まず、どんなものでも大量に増えると価値が下がります。

また、国債は、発行した時点での価格と金利が決まっているのです。これは、年月が経っても変わりません。


たとえば、10年物の価格100円、金利2%の国債があったとします。

これを100円で買ったとすると一年での利子は2円になりますね。

つぎに債券価格が下がり、95円で買ったとすると利子2円+5円分の利子が付き、2.5円になるのです。

すると金利は2.6%になり、債券価格が下がりると金利が上がるのです。

詳しくは、以下を参照願います。

2009-10-15 高校生でもわかる日本経済のすごさ

高校生でもわかる日本経済のすごさ

今日、読み終えました。

一言で感想を言うと、目の前の経済的な心配の霧が晴れました!!


たとえば、日本国の借金、年金崩壊、犯罪増加、学力低下、格差拡大、円高輸出ダメージ、インターネットでの日本語の割合…等。

これらを著者がデータを元に検証して、実は、イメージと真逆だということにおどかされます。

つまり、データを元にしない、いいかげんなマスコミや評論家等に我々は、騙されていたのです!!


とにかく、良い本ですよ!

もうちょっと、咀嚼して、経済ノートのコンテンツにと…目論んでます(^^;


高校生でもわかる日本経済のすごさ

高校生でもわかる日本経済のすごさ


ここのところ、経済本は良い本にめぐり会えてます。以下の2冊もこの本同様、凄く良い本です。


会計天国

会計天国

今までで一番やさしい経済の教科書

今までで一番やさしい経済の教科書


追記:

2009-10-15 新型インフルエンザのワクチンは本当に必要なのでしょうか……

今、職場の同じフロアーでは、100人以上の人が全員マスクをして仕事をしています(ちょっと異様)。

そう、新型インフルエンザの感染予防です。


しかし、今回の新型インフルエンザは大した事ないような気がしますね。

話を聞くと、感染してもタミフルで2〜3日で治った人もいるようで…、普通のインフルエンザと同じじゃんって…。


実際、以下の感じです。

初めに山本医師が、すでに冬場を経験したオーストラリアの例から今回の新型インフルエンザの規模が小さい可能性を指摘。流行速度が2007年のときより遅く、死亡率は季節性と同水準であることをデータで示した。

http://www.pjnews.net/news/490/20091012_4

だけど、今月19日をめどにワクチン接種が開始されるとのことです。

上の引用先にも書いてあったけど、ワクチンは本当に必要なのでしょうか……。

また、下の引用先には、ワクチンの副作用や死亡例が報告されていますね。

米国では、1976年に豚インフルエンザが発生した時、製薬会社などの圧力を受け、米政府が米国民4000万人にワクチンを接種したが、このワクチンはギラン・バレー症候群という末梢神経障害の副作用を起こし、全米で約50万人がこの副作用に苦しみ、数十人が死亡する結果となった。

:

:

オーストラリアでは、専門家が「豚インフルエンザは実験室で作られた可能性がある」と言っている。今回のウイルスは、北米とアジアで流行った2種類の豚インフルエンザ、北米で流行った鳥インフルエンザ、それから人に流行するインフルエンザという4種類・3大陸のインフルエンザ・ウイルスが混じってできたものとされているが、こんな地域的に離れた場所に存在するいくつものウイルスが自然界で混合する可能性は非常に低く、人間が実験室で混ぜてばらまいたとしか思えないという分析だ

http://tanakanews.com/090729flu.htm

もしかしたら、今回の新型インフルエンザは、このことで儲けようとしているどこぞの陰謀なのかもしれませんね。

最後に以下を引用して、今日は終わりにします。

このような状況を知って「インフルエンザの予防接種は危険だから受けない方が良い」と叫んだところで、多くの人は何も報じないマスコミしか見ていないので「何言ってんだこいつ」と変人扱いされて無視されるか、下手をすると製薬会社から損害賠償請求されたり、もっとひどくなると当局から監視・取り締まり対象にされる。予防接種が義務づけられたら、副作用が心配でも、接種を受けねばならない。受けない者は犯罪者である。副作用におびえていやいや接種を受けたり、接種を拒否して犯罪者にされて生活を破壊されたりするより、何も知らずに接種を受けた方が幸せともいえる。知るも地獄、知らぬも地獄。大変な世の中になってきた。

http://tanakanews.com/090729flu.htm

新型インフルエンザでの死亡数より、ワクチン接種副作用での死亡数が多くなることが起こるかも!

もしそうなったら、シャレにならん…。

2009-10-14 新・相棒

今始まった『新・相棒』、楽しみです。

たぶん、皆さんは、水谷豊の前の相棒の寺脇康文さんがなぜ降板したかを知りたいと思っていませんか?

と、いうことでした。

そう、『俺しかいない!』発言が原因だったのですね。


そういえば、私も同じようは経験がかつてありました。

このシステムがわかるのは『俺しかいない!』と思っていたらリストラされました…あちゃ(^^;。

2009-10-14 『殿』から『様』へ

昔から、あて先名の敬称は、手紙が『様』で、メールは『殿』と決まっていましたが…。

最近のメールは『殿』より『様』が圧倒的に多くなりましたね!


『殿』は、本来、格上の人にも使える便利な敬称だと思っていたのですが…。

最近では確実に相手を敬う『様』になってきたのですね。


ということで、私も今日から『殿』でなく『様』に変えました。

2009-10-13 ワードでの相互参照について

ワード(Word2003)での見出し番号は、普通、自動採番されます。

文章の中で、見出しではなく、参照として、見出し番号を記述するケースが、たまにあったりします。


しかし、途中で新たな見出しが追加すると、自動採番なので、それ以降の番号がずれてしまいます。

すると参照する見出し番号もずれてしまい、いちいちそれ毎に修正しないとなりません。


そんな時は、見出し番号を相互参照にすると、見出し番号が変わった場合でも追従して参照の見出し番号が修正されるのです。

以下は、相互参照の手順です。

  1. 文章中に参照の見出し番号が挿入したいところをクリック
  2. 挿入メニューをクリック
  3. 参照をクリック
  4. 相互参照をクリック(ダイアログが表示される)
  5. ダイアログ内で参照先を選んでから挿入ボタンをクリック

留意点

先ほど、『参照の見出し番号が追従して修正されるのです』と述べましたが、実は、見た目は、修正されません。

見た目も修正するには、参照の見出し番号を選択して(リバースして)、右クリックメニューからフィールド更新します。

2009-10-13 最近、気になったニュースいろいろ

北朝鮮がまたミサイルを発射しましたね!

つい先日、サリンのニュースが飛び込んできたばかりなのに…

そう言えば、オウム真理教の残党が捕まらずにいますが、もしかして北朝鮮でサリンを作っているとか?


話は変わって、橋下知事、メール返信が気にくわなくて、職員を処分しましたね。

これ内容を読むと、どうみても処分された職員が正しいような気がします。橋下さん、やり過ぎじゃないですか…。


そういえば、橋下さんがハブ空港にと言っていた関西航空は、前原大臣にあっさりそでにされましたね。

また、ハブ空港は羽田にするとのことで、成田の人達も慌てさせました…前原さん。


ぶれない前原大臣には、ガンガン行って欲しいです。

長年の自民党政策の無駄なダム建設や飛行場建設をバッサリ切って欲しいです…応援します!

2009-10-12 VB2005でコマンドラインから引数を受け取る

VB2005でコマンドラインから引数を受け取る場合、VB6と同じようにCommand()も使えますが、以下のようにCommandLineArgsも使えます。

    Dim objArgs As Object
    Dim int_i As Integer

    objArgs = My.Application.CommandLineArgs
    For int_i = 0 To objArgs.Count - 1
        MsgBox(objArgs(int_i))
    Next

ちなみにCommand()では、以下の感じ

    Dim strCmdline() As String
    Dim int_i As Integer

    strCmdline = Split(Command(), " ")
    For int_i = 0 To UBound(strCmdline)
        MsgBox (strCmdline(int_i))
    Next

補足1:コマンドラインから引数を受け取るとは

コマンドプロンプト画面(黒い画面)からプロンプトに対して、『コマンド名 引数1 引数2 …』を入力します。

そして、コマンドの中で上記ロジックで、引数1や引数2を取得することを『コマンドラインから引数を受け取る』といいます。


補足2:CommandLineArgsとCommandの違い

CommandLineArgsはオブジェクトの配列にコマンドラインの引数が格納されるのに対し、Commandはスペースがデリミタの引数りストの文字列で格納される。

なのでサンプルでは、Split(Command(), " ")で引数リストの文字列をスペースで分割して引数を配列に格納しています。

2009-10-12 VS2005でソースの行番号を出すには?

VB2005の開発環境はVS2005(Visual Studio 2005)です。

VS2005でデバックしている時に、なにかのエラーメッセージが表示され、エラー箇所をソースの行番号で教えてくれる場合があります。

しかし、VS2005デフォルトの設定では、ソース行番号は出ていません。

以下にソース行番号を表示する手順をメモしときます。

  1. メニューのツールをクリック
  2. オプションをクリック
  3. テキストエディタをクリック
  4. Basicをクリック
  5. 『エディタで相互作用の行番号』をチェックしてOKボタンをクリック

2009-10-11 子ども手当てと扶養控除廃止

扶養控除は、年齢に関係なしに(当然、高校生と大学生も)、年間の所得金額から1人あたり38万円を差し引いた金額を課税所得にすることです。

また、今回、民主党が導入しようとしている子ども手当は、中学生以下の子どもに対して1人あたり月2万6千円を支給します。


そして、2010年度から扶養控除を廃止して、子ども手当を導入しようとしています(民主党は)。


また、子供を育てるのにあたり、一番お金が掛かるのは、実は高校生から大学生の時なのです。

よって、これは断じて許すことのできない悪政ですね!

しかし、某ビックダティのように10人ぐらい子どもがいたら、それだけで月26万の家計アップになりますね。羨ましい!

2009-10-11 日本国借金の大ウソ?

日本国の借金が800兆以上あり、利子の返済だけで毎日300億のお金が消えている!

そして、国民の一家族が1500万の負債額がある…なんて良くマスコミや評論家が言っていますが…本当でしょうか?


確かに借金は本当らしいのですが、しかし、日本国が借金している相手は、実は我々日本国民なのです。

つまり、国民一家族の1500万の負債額は、実は逆で、我々が日本国に貸した金額なのです(正確には預金等で間接的に貸した金額)。


なので、よく言われる『子孫へ借金の付けを回してはいけない』とかは…実は考えなくてもよいのです。

にわかに信じられないかもしれませんが…以下の本に書いてありました。


高校生でもわかる日本経済のすごさ

高校生でもわかる日本経済のすごさ


しかし、本当の実際は、どちらなのだろうか…金融素人の私には、見極める勉強がもっと必要ですね……。

2009-10-10 Quicktimeで『ForMe:小池啓仁』を再生してみる

実は、私のWIN2000ノートでは性能の関係でユーチューブの『ForMe:小池啓仁』をまともに再生することができません。

Quicktimeだとやっとのこと再生できる感じです。

http://chaichan.lolipop.jp/mid/ForMe.mp4

2009-10-10 祝!!ノーベル平和賞:オバマ米大統領!

ノーベル平和賞、おめでとうございます!

しかし、……

まぁ、いろいろな意見がありますが、とにかく、アメリカの現大統領がノーベル平和賞を受賞したことは良いことだと思います。

前大統領が最低の大統領だったので、余計そう思います。9.11の後、あれほど世界世論が反対していたのに難癖をつけてイラクを攻めてメチャクチャにしましたね。


オリンピック招致では惨敗したオバマさんですが、思わぬノーベル平和賞を頂いたことですし、世界平和境建設のため頑張って頂きたい!!

2009-10-10 ビタミンいろいろ

ここ4ヶ月前ぐらいから、頭の皮膚にオデキ(ニキビ?)が出来、近くの医者に行っても治らず、結局、杏林大学病院に掛かりました。

ここでもらった付け薬とビタミン剤で、あっという間に良くなりました。

しかし、まだ完治していないのですが、とにかく大きなオデキがすぐ小さくなったのには驚きました。


で、処方されたビタミン剤はB2とB6でした。

ビタミンに興味がでましたので、ネットでしらべてみました。

すると良く纏まったページを見つけましたので、折角なので、引用メモしときます。



ビタミンA
(レチノール)
多く含まれる食品 肝油・レバー・バター・卵黄・やつめうなぎ・魚の内臓・強化マーガリン
緑黄色野菜−人参やカボチャなど−(β−カロチンとして含まれ体内でビタミンAに変わる)
働き成長を促進し細菌性疾患に対する体の抵抗を高める・眼の病気の予防(最近は緑黄色野菜に含まれるβ−カロチンが癌の予防になることが知られています)
欠乏症眼の疾患(夜盲症・角膜乾燥症)
ビタミンD
(カルシフェロール)
多く含まれる食品鮭・カレイ・ニシン・ウナギ・サンマ・マグロ(脂身)・カツオ・サバ
働きカルシウム・リンの代謝と関係しています。
欠乏症カルシウムの吸収阻害・くる病(小児)・骨軟症・骨粗鬆症
ビタミンE
(トコフェロール)
多く含まれる食品ウナギ・サンマ・イワシ・イカ・アーモンド・ヘーゼルナッツ・ピーナッツ・ひまわり油・たらこ・綿実油・サフラワー油
働き必須脂肪酸の過酸化を防ぐ・発ガン抑制・老化防止・生殖機能の維持
欠乏症老化促進・血行障害・不妊・癌の危険が高まる
ビタミンK
(フィロキノン)
多く含まれる食品納豆・緑黄色野菜・おかひじき
働き血液凝固と関係しています。
骨粗鬆症を防止します
欠乏症血液凝固時間がのびる・新生児出血疾患(新生児メレナ)
ビタミンB1
(サイアミン)
多く含まれる食品強化米・小麦杯芽・卵黄・豚肉・卵黄・大豆・落花生・ゴマ・うなぎ
働き炭水化物の代謝・アルコールの分解
欠乏症脚気・精神の不安定(いらいら)・記憶力の低下
ビタミンB2 
(リボフラビン)
多く含まれる食品ウナギ・レバー・サバ・カレイ・納豆・のり・チーズ・卵
働き新陳代謝・脂肪の代謝・糖質の代謝・発育
欠乏症口唇炎・口角炎・角膜炎・脂漏性皮膚炎・肥満
ナイアシン
(ニコチン酸)
含まれる食品カツオ・サバ・ブリ・レバー・卵・牛乳・粉乳・豆類
働き糖質・質・蛋白質代謝
欠乏症ペラグラ・口舌炎・胃腸病・皮膚炎・神経症状
ビタミンB6
(ピリドキシン)
含まれる食品マグロ・サンマ・鮭・サバ・イワシ・薩摩芋・バナナ・豚もも
働き蛋白質代謝・糖質や脂肪の代謝・老化防止
欠乏症皮膚炎・貧血・成長障害
ビタミンB12
(コバラミン)
多く含まれる食品アサリ・カキ・レバー・しじみ・にしん・筋子・サンマ・卵・鮭・たら
働き赤血球産制・アミノ酸の代謝、蛋白質、核酸の生合成に必要
欠乏症悪性貧血
葉酸
(プテロイル
グルタミン酸)
多く含まれる食品レバー・卵・牛乳・ほうれん草・せり・バナナ・杯芽
働き血球の再生・ビタミンCの利用・アミノ酸の合成
欠乏症大赤血球性貧血・抵抗力の低下・口内炎
パントテン酸(B5)多く含まれる食品レバー・納豆・魚肉類・牛乳・卵
働き脂質代謝・蛋白質、炭水化物の代謝とも関係する
欠乏症疲労・血圧低下・睡眠障害・食欲不振
ビオチン
(ビタミンH)
多く含まれる食品レバー・イワシ・ピーナッツ・卵・クルミ・きな粉
働き 糖質・脂質・蛋白質代謝 
欠乏症白髪・抜け毛・食欲不振・脂漏性皮膚炎
コリン多く含まれる食品豚・牛レバー・卵・大豆・ささげ・エンドウ豆・豚肉・豆腐・さつまいも・とうもろこし・牛乳
働き レシチンの材料・脂肪肝予防・コレステロールの正常化・アセチルコリンの材料 
欠乏症 
ビタミンC
(アスコルビン酸)
多く含まれる食品生の野菜・果物(苺・キウイなど)・ジャガイモなどの芋類・お茶の葉
働きコラーゲン生成・毛細血管の正常を保つ・鉄の吸収を手伝う・風邪をひきにくくする・発ガン物質を抑える・ストレスを和らげる
欠乏症壊血病・皮膚出血・骨形成不全・貧血

http://www2.neweb.ne.jp/wc/hooko/vitm2.HTML

尚、引用に問題あれば、コメントください。

2009-10-09 リッチテキストBoxコントロールへリッチテキストを代入するには?

VB2005では、標準でリッチテキストBoxコントロールが用意されています。


リッチテキストは、テキストにフォントや文字の大きさや色など付加したもので、ワードパッドの標準フォーマットです。普通のワードのDOCファイルのようにバイナリでなく、テキストになっています。しかし、ワードパッドでなく普通のテキストエディタで開くと意味不明のテキストになっていますね。


で、リッチテキストBoxコントロールへリッチテキストを代入するには……、普通、Textプロパティへリッチテキストを代入すればよさそうなのですが、これはNGです。正解は、SelectedRtプロパティへ代入すると上手く行きます。


それから、表示は同じなのに、ワードパッドとワードで別々にリッチテキストでファイル出力するとデータサイズがワードの方が3倍以上大きくなりますね。また、リッチテキストの仕様をネットで検索しても日本語の解説ページは皆無ですね。まぁ、HTMLのようにテキストをそのまま修正することがないので、別に仕様を知っても仕方が無いのですが……。

2009-10-08 冷やご飯の栄養素

なにかのテレビで見たのだけれど、冷やご飯が健康に良いとのことでした。

冷やご飯に限らず、基本的にご飯は、意外に栄養素が豊富です。


で、冷やご飯ですが、レジスタンス・スターチという消化に抵抗のあるデンプンがあるとのことです。

このデンプンは、電子レンジでチンすると、なくなってしまうそうなので、冷やご飯のまま食べるのがいいのです。


レジスタンス・スターチの効果は以下の感じです、

ごはんには、「レジスタンス・スターチ」という消化に抵抗性のあるでんぷんが多く、食物繊維と同じようにお通じをよくしたり、大腸がんを防ぐといった働きがあります。また脂肪の摂取量の少ない日本型の食生活は、生活習慣病になりにくいといわれています。日本が長寿社会なのもごはんを中心とした食生活のおかげ。

http://www.katayama-kometen.com/shop/infor/oshirase/memo_zatugaku.htm

これからは、冷やご飯健康法ですよ!

なるべく、冷めたご飯を食べましょう!

2009-10-08 プロセスKILL for VB2005

プロセス名を指定して、同名プロセスをすべてKILLするサブルーチンを作ってみました。


◆サンプル
System.Diagnostics.Process.Start("notepad.exe")
KillProcess("notepad");

Sub KillProcess(ByVal ProcessName As String)
    Dim p As Process
    Dim myProcess() As Process
    
    myProcess = System.Diagnostics.Process.GetProcessesByName(ProcessName)
    For Each p In myProcess
        'p.CloseMainWindow()
        p.Kill()
    Next
End Sub

◆留意点

2009-10-07 PathFileExistsの罠

VB2005でのPathFileExistsで、はまったのでメモしときます。


PathFileExistsは、引数にファイルパスを指定して、そのファイルが存在する場合、真(0以外)が返され、存在しない場合、偽(0)が返されます。

そのファイルパス中にカタカナが含まれると、なぜかファイルパスの文字列は壊されるのです。


◆NGサンプル
Declare Function PathFileExists Lib "shlwapi" Alias "PathFileExistsA" (ByVal lpszPath As String) As Integer
 :    
 : 
    Dim strFilePath As String = "C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ\AP.lnk"
    If PathFileExists(strFilePath) = 0 Then
       MsgBox "ファイルが存在しません。
    End If

存在チェックは正常なのですが、そのあとstrFilePathの内容を見ると『スタート』以降が無くなるのです。つまり、strFilePathの内容が壊されるのです。

原因はわかりませんが、パス中のカタカナが悪さをしている感じです。


◆OKサンプル1

これを以下のようにコンスタントにすると大丈夫になります。

    Const strFilePath As String = "C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ\AP.lnk"
    If PathFileExists(strFilePath) = 0 Then
       MsgBox "ファイルが存在しません。
    End If

◆OKサンプル2

また、直接引数に文字列を指定しても大丈夫です。

    If PathFileExists("C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ\AP.lnk") = 0 Then
       MsgBox "ファイルが存在しません。
    End If

2009-10-06 雑記(10/06)

みなさん、こんばんは。2日ほど日記の更新が滞りました。それは、2日前の日曜日から、ちょっと某教会の用事が重なって、結構大変でした。


日曜日の10月4日は、庭野日敬氏(某教会初代会長・開祖さま)の入寂会というイベントあり、夜は教会壮年部部長会議に代理で出席しました。昨日の10月5日は、宿直の日で、生誕地まつりの準備の手伝いや万灯の組み立てやらで、汗だくになりました。


しかし、某教会は行事だけをこなすために一部の会員さんだけが頑張っているって感じです。本来は、行事を切っ掛けに会員さん達のきずなを深めることが主なのに、これが完全に従になって、無事に行事をこなすことが主になっていますね。


私は、行事に出ても、法座に出ても、会議に出ても、イマイチ、気が出ないのですよ。これは、自分の問題なのか、某教会の問題なのか…よくわからなくなっています。


仕事の方は、今、新しい仕事なので、調査・試行錯誤・調査の繰り返しで、時間が経つのが凄く早く感じられます。ということで、宿直明けなので、寝不足なので、明日からまたスローペースで徐々に日記更新をしていきたいと思います。


では、今日は、これでおやすみなさい!

2009-10-03 『初めてでないPerl』ページ更新

『初めてでないPerl』に『【その0】 プログラミングの基礎の基礎』を追加しました!

あと、リファレンスとモジュールの説明ページを作りたいと思っている今日この頃です。

しかし、なかなか…。

2009-10-03 VB2005で実行ファイルを起動する

VB2005で実行ファイルを起動するには、以下のような感じになります。


◆サンプル
Dim strCmd As String = "実行ファイル名"
Dim strArg As String = "実行ファイルの引数文字列"
Dim strWkdir As String = "ワーキングディレクトリ名"
Dim p As New Process
P.StartInfo.FileName = strCmd
P.StartInfo.Arguments = strArg
P.StartInfo.WorkingDirectory = strWkdir
P.StartInfo.CreateNoWindow = True
P.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
P.Start()

◆留意点

ちなみに、CreateNoWindow指定をだけでDOSウィンドウが出なくなるケースもありますが、出る場合もあります。

WindowStyle指定も合わせて行うと、今のところ完璧に出なくなりますね。


◆参考リンク

http://msdn.microsoft.com/ja-jp/library/system.diagnostics.processstartinfo_members(VS.80).aspx

2009-10-03 燈明日記9月分をブログからWebページへ変換

タイトル通りです。

2009-10-02 ソニー、電源のワイヤレス化に成功--50cm離れた機器へ60Wの電力を供給

ソニーは10月2日、電源コードを接続せずに離れた場所にある機器へ電力を供給できる「ワイヤレス給電システム」を開発したと発表した。60Wの電力を50cm離れた機器へワイヤレスで給電できるという。

 ワイヤレス給電システムは、送電デバイスから供給された電力エネルギーが空間を介し、同じ周波数で共鳴している受電デバイスのみに伝播する磁界共鳴型の非接触給電技術を採用して実現したもの。

 デバイス相互の位置関係がずれていても高効率の給電が可能になるほか、送電・受電デバイス間に金属があっても、その金属が熱くならないという特長を持つ。

http://japan.cnet.com/news/tech/story/0,2000056025,20400983,00.htm

これ、人体への影響は大丈夫なのだろうか…

2009-10-03 携帯迷惑メール対策

PCへの迷惑メールなら、使い捨てメールアドレスがあるので、あまり気にしないのですが…、携帯メールだと凄く困ります。

そのための迷惑メール専用ページが各社キャリアでもありますね。

また、迷惑メール相談センターもありますね。

2009-10-02 『最高50%以上OFF』って?

とあるところで、『最高50%以上OFF』という広告を見ました。


『最高50%OFF』なら、最高で半額までは、まけますよってことです。

また、『50%以上OFF』なら、最低でも半額は、まけますよってことですね。


では、『最高50%以上OFF』って、どういうことなんでしょうか?

単に半額ってことかな……

2009-10-01 ダラニ(陀羅尼)って……

今日は10月1日、毎月一日は、某教会では夜間の集いという法華経研修会があります。

はじめに法華経を皆さんで読誦するのですが、今日は、陀羅尼も読誦しました。


陀羅尼とは、法華経26番(品)と28番(品)にある呪文です。

もともとは、サンスクリット語の発音でいろいろな神の名前を云っているそうですが、日本人には呪文に聞こえます。

ご利益は、『あらゆる悪をとどめ、あらゆる善をすすめる』とのことです。

たとえば、こんな感じです。

あに まに まね ままね しれ しゃりて しゃみや しゃびたい せんて もくて もくたび しゃび あいしゃび そうび しゃび・・・・・・

これに、木鉦(もくしょう)でリズムをつけて読誦します。

しかし、木鉦のリズムが不規則で習得するのが凄く難しいのです。


とりあえず、法華経読誦が終わると、つぎに皆さんで輪になって法華経研修のお勉強です。

とりあえず、今回の要点だけ言うと、人に喜びを与えられる人になるということは、そのまま自分のためでもあり、人格向上の近道になるとのことでした。


とりあえず、今日は仕事を定時ピッタリで切り上げ、某教会に行って陀羅尼を含む法華経を読誦して研修して…あぁすごくお疲れ様でした(合掌)。