mieki256's diary

xyzzy のこれを使って、バッファ中の複数行に対して perlスクリプトで処理をして xyzzy のバッファに書き戻す、てことをしたいんだけどどうすりゃいいのやら。

hoge.pl じゃダメで、perl c:\DIR1\DIR2\hoge.pl じゃないとダメなのか。C-x | perl c:\DIAR1\DIR2\hoge.pl みたいな。

面倒だからバッチファイルに。hoge.bat で。

@perl c:\DIAR1\DIR2\hoge.pl

.pl の中身は、

#!/usr/bin/perl -w
# ソース中の数値文字列を連番に

use strict;
my @list = <>;

my $c = 0;
foreach (@list) {
	chomp;
	if ( /^([^0-9]+)([0-9]+)(.+)$/ ) {
		print "$1$c$3\n";
		$c++;
		next;
	}
	print $_ , "\n";
}

こんな感じで。

最初から lisp で書ければいいんだけど。lispはさっぱりわからんのです。