+ ■ ActivePerl
やはり、Perlは必須。c:/usr/localにインストールしましょう。
(2004/03/10 01:19:00)
+ ■ UNIX-LIKE Tools
新出先生のやつ。「ls」と打っても大丈夫なようにはしておきましょう？
cygwinとかは使ったことありません。
また、私はEmacsは使えません。
(2004/03/10 01:22:00)
+ ■ ComHere
PowerToysに入っているやつ。あると便利。というか無いと大変。
(2004/03/10 01:23:00)
+ ■ バッチファイルとしても動作するperlスクリプト
本に載っていました。すばらしい。とんち利いてます。
@rem = ' ; @echo off perl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofbat @rem ' ; ### Beginning of Perl Script print "Hello, world!¥n"; ### End of Perl Script __END__ :endofbat
(2004/03/10 13:06:00)
+ ■ nconvertを利用して、小さいサイズのファイルを作るバッチファイル（要perl）
al-mailに添付ファイルとして送り込むおまけ付き。
PIFファイルを作って、SendToあたりに入れておくと良いかと。ただ、vix上からは起動できませんでした。
@rem = ' ;
@echo off
perl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofbat
@rem ' ;
### Beginning of Perl Script
$ncl1 = 'c:¥software¥graphics¥xnview¥nconvert.exe -out jpeg -ratio -resize 240 180';
$ncl2 = 's_%.jpg';
$mcl1 = 'c:¥software¥net¥almail32¥almail.exe';
$mcl2 = '/attach:';
if ( @ARGV[ 0 ] ne '' ) {
$infile = @ARGV[ 0 ];
if ( -f $infile ) {
if ( $infile =‾ m|(^.*[/¥¥])([^/¥¥]*$)| ) {
$d = $1;
}
if ( $infile =‾ m|([^/¥¥]*)¥.([^.]*$)| ) {
$ncl2 = $d . $ncl2;
$base = $1;
$att = $ncl2;
$att =‾ s/%/$base/;
system( $ncl1 , '-o' , $att , $infile );
$mcl2 = $mcl2 . $att;
system( $mcl1 , $mcl2 );
} else {
print "invalid filename¥n";
}
} else {
print "not file¥n";
}
}
### End of Perl Script
__END__
:endofbat
(2004/03/10 14:31:00)
2004/03/10 作成