cat access_log | grep "snews" | grep -v ".css"
たとえばアクセスログからsnewsとつくものだけ抜き出しつつ.cssとつくのは除外する場合。
RTFファイルを検索してwordで一括印刷する場合。
注:perl5のWin32で変数定義する場合はmyを使ってあらかじめ定義。
myはsubルーチンからの呼び出しは不可能。その際はlocalで呼び出す。
#!c:/perl/bin/jperl.exe
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $lsh = "*.rtf";
my $ls=`dir /B $lsh`;
my @lse = split(/\n/,$ls);
my $lse = shift; #あらかじめ定義しておかないとエラーが出る。
foreach $lse (@lse) {
my $Word = Win32::OLE->new('Word.Application');
$Word->{'Visible'} = 1;
$Word->Documents->Open("C:\\temp\\$lse")
|| die("Unable to open document ", Win32::OLE->LastError());
$Word->ActiveDocument->PrintOut;
};