// 適当に書き換える
$fWarning = "D:\\Temp\\perl-wc.tags";

$fName = basename2;
$fPath = filename2;
$srBuf = searchbuffer;
#srOpt = searchoption;

if (updated) {
	save;
}

openfile "";
disabledraw;
selectall;

run "perl -wc \"" + $fName + "\" > con";
saveas $fWarning;

gofiletop;
Find:
	searchdown " at " + $fName + " line [1-9]+[0-9]*", regular;
	if (result) {
		escape;
		golinetop2;
		replacedown "^.*? line \\f[1-9]+[0-9]*\\f.*$", "--LINETOP--\\(\\1\\): \\0\\1\\2", regular;
		goto Find;
	}

replaceallfast "--LINETOP--", $fPath;

gofiletop;
save;
enabledraw;

setsearch $srBuf, #srOpt;
endmacro;