Infonic Garden Place

Hey, Scripting kiddy! は皆様のPCを通じた悩みなどをScript kiddyのスクリプトで解決しようという企画です。

今日のお便りはScript kiddyさんからです。

「Script kiddyさん、こんにちは。助けてください。この間ブログに掲載したスクリプトに行番号がついてないという理由でブログが炎上しています。なんとかならないでしょうか？」

Script kiddyさん、こんにちは。今朝、Script Kiddyは通勤の電車で本を読んでいました。駅に着いたと思ったら突然人にぶつかられ、「何をやっているんだ、この野郎」と思ったのですが、本から目を離して当たってきた人を見ると、とても美人な女の人でした。Scrpt kiddyは何故本を読んでいたのか、とても後悔しました。自分が正しいと思っていても、実はもっと遠い視点で見るともっと大切なことは別にあったりします。とりあえずScript kiddyは明日から電車で読む本を予習してから電車に乗りたいと思います。

さて、質問に移りましょう。同じスクリプトでブログをやっているScript kiddyも、あなたの悩みを助けたいと強く感じています。まずは炎上の原因である行番号をプログラムにつけてみましょう。今日は眠たいのでワンライナーです。Perlを準備してください。

C:¥> perl -e "$i=1; print map { ($i++).': '.$_ } (<>);" < script.vbs

さて、結果を見てみましょう。

C:\ > perl -e "$i=1; print map { ($i++).': '.$_ } (<>);" < larry.bat
1: @rem = '__PERL__
2: @echo off
3:
4: set PATH=%PATH%;C:\perl\bin
5: perl %0
6:
7: goto END
8:
9: __PERL__
10: rem ';
11:
12: $a="Welcome to perl world!!";
13: print $a;
14:
15: __END__
16: :END

C:\ >

いかがでしょうか。これでお茶を濁して、なんとか鎮火するのを待ってください。 それではScript kiddyは水でも飲んで寝ることにします。

---

※注　これは、Microsoftがやっている「Hey,scripting guy!」のパクリ企画です。 ご意見、ご要望はお問い合わせよりお願いします。