TSperl 発言

たむらです。ちゃちゃ

Bruce. wrote:
> Bruce.です。

:snip

> んと、
> 
> perl script.pl file1 file2 file3...
> 
> てな感じで使うスクリプトであるということで良いですか?
> であるなら
> 
> #!/usr/bin/perl
> use strict;
> use warnings;
> use encoding 'cp932';
> 
> use open ':encoding(cp932)';
> use open ":std";
> 
> while (<>) {
>     print if /テーマ/;
>     print if /一覧表/;
> }
> 
> こんな感じで。cp932にしているのはWindowsで使う場合shiftjis (sjis)
> よりも無難だからです。

JScript(WSH)で書いてみました。

while(!WScript.StdIn.AtEndOfStream){
  line = WScript.StdIn.ReadLine();
	if (line.match(/テーマ/)) WScript.StdOut.WriteLine(line);
	if (line.match(/一覧表/)) WScript.StdOut.WriteLine(line);
}

cscript //Nologo f.js < data.txt
みたいに使えます。

* MS日本語OK
* Windowsにほぼ入っている(StdInとかは最近かなIE6必須)
* 正規表現あり□

# ReadLineは勝手に chompするとか試行錯誤は必要だったり(笑

-- 
たむらけんいち<URL:http://www.rubyist.net/~tamura/d/>
Gmailしたい方、メールください(残:50)


-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.408 / Virus Database: 268.13.11/493 - Release Date: 2006/10/23