Perlの実行のbat
run.bat

echo #### 開始 ################################################################
@rem パスが通っている場合

@echo off
title Perl の実行

if /i "%~1" == "" (
	echo パラメータが無いので終了します。
	goto end
) else (
	if /i "%~x1" == ".pl" (
		goto run
	) else (
		echo Perlのスクリプトファイルではありません。終了します。
		goto end
	)
)
pause


:run
echo Perlスクリプト実行
echo.

echo perl %~nx1
echo.

%~d1
cd "%~p1"

echo #### 開始 ####
perl "%~nx1"
echo.
echo #### 終了 ####


:end
echo.
echo.
pause
exit

echo #### 終了 ################################################################

Perlの実行のbat その２
run2.bat


echo #### 開始 ################################################################
@rem パスが通っていない場合

@echo off
title Perlの実行

if /i "%~1" == "" (
	echo パラメータが無いので終了します。
	goto end
) else (
	if /i "%~x1" == ".pl" (
		goto run
	) else (
		echo Perlのスクリプトファイルではありません。終了します。
		goto end
	)
)


:run
echo Perlスクリプト実行
echo.

echo perl %~nx1
echo.

%~d1
cd "%~p1"

echo #### 開始 ####
rem 次の行をお使いのPCのperlのPATHに書き換えてください
"C:\xampp\perl\bin\perl" "%~nx1"
echo.
echo #### 終了 ####


:end
echo.
echo.
pause
exit
echo #### 終了 ################################################################

このスクリプトは著作権者のtytyさんの意向でNYSLとしています
http://www.kmonos.net/nysl/
NYSL Version 0.9982
A. 本ソフトウェアは Everyone'sWare です。このソフトを手にした一人一人が、
ご自分の作ったものを扱うのと同じように、自由に利用することが出来ます。
A-1. フリーウェアです。作者からは使用料等を要求しません。
A-2. 有料無料や媒体の如何を問わず、自由に転載・再配布できます。
A-3. いかなる種類の 改変・他プログラムでの利用 を行っても構いません。
A-4. 変更したものや部分的に使用したものは、あなたのものになります。
公開する場合は、あなたの名前の下で行って下さい。
B. このソフトを利用することによって生じた損害等について、作者は
責任を負わないものとします。各自の責任においてご利用下さい。
C. 著作者人格権は tyty に帰属します。著作権は放棄します。
D. 以上の３項は、ソース・実行バイナリの双方に適用されます。