woodfieldsのお気楽ツ～ル

■jperlｽｸﾘﾌﾟﾄのテンプレート

:---------------------------------------------------------------------
: script for batexec.exe & jperl.exe            	     by woodfields
:---------------------------------------------------------------------
@rem #!/usr/local/gnu/bin/jperl
@echo off
echo %0 > C:\\bat_pl.txt
batexec %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto beend

# #############################################################################
#【Chk_HSP.bat】
# 用法：このバッチファイルにHSPのスクリプトファイルをドロップしてください。
# 注意：Windowsﾌｫﾙﾀﾞにbatexec.exe､jperl.exeを格納する必要があります。
# #############################################################################

print "CommandParameters : @ARGV\n";
	print "MaxParameterNumber : $#ARGV\n";
	$pathname="";
	$nmblepah=0;
	for($i=$#ARGV;$i>=0;$i--){
		if($pathname eq ""){
			$pathname="$ARGV[$i]";
		}else{
			$pathname="$ARGV[$i]"." ".$pathname;
		}
		if(-f "$pathname"){
			push(@pathname_,$pathname);
			$pathname="";
			$nmblepah++;
		}else{
			if(-d "$pathname"){
				push(@pathname_,$pathname);
				$pathname="";
				$nmblepah++;
			}
		}
	}
	for($i=$#pathname_;$i>=0;$i--){
		push(@pathname,$pathname_[$i]);
	}
	$pathname="";
	for($i=0;$i<=$#pathname;$i++){
		if(-f "$pathname[$i]"){
			if("$pathname[$i]"=~/\.[Hh][Ss][Pp]$/){
				print "チェック対象FileName: $pathname[$i]\n";
				$pathname=$pathname[$i];
				last;
			}
		}
	}

@words=(	# 正規表現での記述が可能
	"^[\\t\\s]*#include"
	,"^[\\t\\s]*#module"
	,""
	,"[\\t\\s]*dialog +.+ ?\\, ?[23].+"
	,""
	"if [^\\\=\\\>\\\<\\\!\\\:]+\\\=[^\\\=\\\>\\\<\\\!\\\:]+"
	,"if [^\\\= ]+\\\=\\\=[^\\\= ]+"
	,"[^\\\= ]+ \\\= [^\\\= ]+"
	,""
	,""
	,""
	,""
	);
	open(OUT,">$Startdir\\Chk_HSP.txt");
	if($pathname ne ""){
		print OUT "TargetFileName: $pathname\n";
		$nmbl_max=0;
		open(IN,"$pathname");
		while(<IN>) {
			$line=$_;
			$line=~s/\n//;
			push(@record_in_file,$line);
			$nmbl_max++;
		}
		close(IN);
		print OUT "MaxLineNumber: $nmbl_max\n";
		$cnt_line=0;
		foreach $line (@record_in_file) {
			$cnt_line++;
			foreach $word (@words){
				if($word ne "" && $line=~/$word/){
					print OUT "$cnt_line【$word】$line\n";
					last;
				}
			}
		}
	}
	close(OUT);
	#system("$Startdir\\Chk_HSP.txt");
	system("\"$Startdir\\Chk_HSP.txt\"");
	#system("cmd /C notepad.exe $Startdir\\Chk_HSP.txt");

exit;

#---------------------------------------------------------------------
# subroutine script by WoodFields for jperl.exe
#---------------------------------------------------------------------
sub yn{
	local($mes)=@_;
	local($ans);
	#
	YNKEY:{
		$ans="";
		print "\n［$mes：Ｙ］ → ";
		$ans=<STDIN>;
		chop($ans);
		if($ans eq "Y" || $ans eq "y"){
		}else{
			redo YNKEY
		}
	}
}

:beend

# #############################################################################
#【Chk_Drives.bat】
# 用法：このバッチファイルをマウスクリックで実行してください。
# 注意：Windowsﾌｫﾙﾀﾞにbatexec.exe､jperl.exeを格納する必要があります。
# #############################################################################

open(BAT_PL,"C:\\bat_pl.txt");
	while($Startdir=<BAT_PL>){
		last;
	}
	close(BAT_PL);
	$ThisApliFileName=$Startdir;
	$ThisApliFileName=~s/^.+\\//;
	$ThisApliFileName=~s/\n//;
	$ThisApliFileName=~s/\"+//g;
	$ThisApliFileName=~s/ +//g;
	print "実行ファイル名ﾞ：$ThisApliFileName\n";
	$Startdir=~s/\n//;
	$Startdir=~s/^\040+//;	#ｽﾍﾟｰｽ
	$Startdir=~s/\040+$//;	#ｽﾍﾟｰｽ
	$Startdir=~s/^\42+//;	#"
	$Startdir=~s/\42+$//;	#"
	$Startdir=~s/^\47+//;	#'
	$Startdir=~s/\47+$//;	#'
	$Startdir=~s/\\[^\\]+\.[Bb][Aa][Tt]$//;
	$Startdir=~s/\:$/\:\\/;							# ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘ
	if(-d "$Startdir"){
		print "ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘ：$Startdir\n";
		chdir("$Startdir");
	}else{
		print "ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘが取得できません：$Startdir\n";
		&yn("終了");
		exit;
	}
	$Startdrive=substr($Startdir,0,2);			# ｶﾚﾝﾄﾄﾞﾗｲﾌﾞ
	print "ｶﾚﾝﾄﾄﾞﾗｲﾌﾞ：$Startdrive\n";
	$dir_win=$ENV{'windir'};					# Windowsﾄﾃﾞｨﾚｸﾄﾘ
	print "Windowsﾃﾞｨﾚｸﾄﾘ：$dir_win\n";
	$dir_program=$ENV{'ProgramFiles'};			# ProgramFilesﾃﾞｨﾚｸﾄﾘ
	print "ProgramFilesﾃﾞｨﾚｸﾄﾘ：$dir_program\n";
	$dir_user=$ENV{'USERPROFILE'};				# ﾕｰｻﾞｰﾎｰﾑﾃﾞｨﾚｸﾄﾘ
	print "ﾕｰｻﾞｰﾎｰﾑﾃﾞｨﾚｸﾄﾘ：$dir_user\n";
	$UsrName=$ENV{'USERNAME'};					# ﾛｸﾞｲﾝﾕｰｻﾞｰ名
	print "ﾛｸﾞｲﾝﾕｰｻﾞｰ名：$UsrName\n";
	$ComputerName=$ENV{'COMPUTERNAME'};			# ﾈｯﾄﾜｰｸ上のｺﾝﾋﾟｭｰﾀｰ名
	print "ﾈｯﾄﾜｰｸ上のｺﾝﾋﾟｭｰﾀｰ名：$ComputerName\n";
	$mes_ver=`ver`;								# $mes_ver=qx{ ver }; でもよい
	if($mes_ver=~/\[Version 6/){
		print "OS：WindowsVista\n";
		$version=6;
	}else{
		if($mes_ver=~/\[Version 5/){
			print "OS：WindowsXP\n";
			$version=5;
		}else{
			print "WindowsXP以降でないと実行できません。\n";
			&yn("終了");
			exit;
		}
	}

&ymd;
	print "$year/$mon/$mday ($wday)   $hour:$min:$sec\n";

print "CommandParameters : @ARGV\n";
	print "MaxParameterNumber : $#ARGV\n";
	$pathname="";
	$nmblepah=0;
	for($i=$#ARGV;$i>=0;$i--){
		if($pathname eq ""){
			$pathname="$ARGV[$i]";
		}else{
			$pathname="$ARGV[$i]"." ".$pathname;
		}
		if(-f "$pathname"){
			push(@pathname_,$pathname);
			$pathname="";
			$nmblepah++;
		}else{
			if(-d "$pathname"){
				push(@pathname_,$pathname);
				$pathname="";
				$nmblepah++;
			}
		}
	}
	for($i=$#pathname_;$i>=0;$i--){
		push(@pathname,$pathname_[$i]);
	}
	for($i=0;$i<=$#pathname;$i++){
		print "($i) FileName   : $pathname[$i]\n" if(-f "$pathname[$i]");
		print "($i) FolderName : $pathname[$i]\n" if(-d "$pathname[$i]");
	}

&yn2("使用できるドライブを表示しますか？");  
	$chr_drive="A";
	for($i=0;$i<26;$i++){
		$tmp_drive=$chr_drive.":";
		$chr_drive++;
		open(STDERR, ">C:\\err_pl.txt");		# STDERRの出力先を変更
		$mes_pl=`dir $tmp_drive\\`;				# $mes_pl=qx{ dir $drive\\ }; でもよい
		close(STDERR);
		if($mes_pl ne ""){						# STDERRの出力の有無をチェック  〔if(-d "$drive\\"){ ではﾌﾛｯﾋﾟｰﾄﾞﾗｲﾌﾞ､ﾒﾓﾘｶｰﾄﾞﾘｰﾀﾞでエラーになるのでダメ〕
			$exist_drv=chdir("$tmp_drive\\");	# $exist_drv=opendir(DIRHANDLE,"$drive\\"); closedir(DIRHANDLE);という手もある
			chdir $Startdir;					# 
			if($exist_drv == 1){
				push(@drive,$tmp_drive);		# 存在するﾄﾞﾗｲﾌﾞ
				print "指定されたパスがみつかりました。-->".$tmp_drive."  ディスクが存在します\n";
			}
		}else{
			open(ERR_PL,"C:\\err_pl.txt");
			while($err_dir=<ERR_PL>){
				last;
			}
			$err_dir=~s/\n.*$//;
			close(ERR_PL);
			print $err_dir."-->".$tmp_drive."\n";
		}
	}
	print "存在するﾄﾞﾗｲﾌﾞ：@drive\n";
	&yn("終了");

exit;
#---------------------------------------------------------------------
# subroutine script by WoodFields for jperl.exe
#---------------------------------------------------------------------
sub yn{
	local($mes)=@_;
	local($ans);
	#
	YNKEY:{
		$ans="";
		print "\n［$mes：Ｙ］ → ";
		$ans=<STDIN>;
		chop($ans);
		if($ans eq "Y" || $ans eq "y"){
		}else{
			redo YNKEY
		}
	}
}

#---------------------------------------------------------------------
# subroutine script by WoodFields for jperl.exe
#---------------------------------------------------------------------
sub yn2{
	local($mes)=@_;
	local($ans);
	#
	YNKEY:{
		$ans="";
		print "［$mes：Y/N］ → ";
		$ans=<STDIN>;
		chop($ans);
		if($ans eq "Y" || $ans eq "y"){
		}elsif($ans eq "N" || $ans eq "n"){
			exit;
		}else{
			redo YNKEY
		}
	}
}

#---------------------------------------------------------------------
# subroutine script by WoodFields for jperl.exe
#---------------------------------------------------------------------
sub ymd{
	local($_sec,$_min,$_hour,$_mday,$_mon,$_year,$_wday);
	#
	($_sec,$_min,$_hour,$_mday,$_mon,$_year,$_wday,$yday,$isdst)=localtime(time);
	if($_year >= 100){
		$year="2000";
	}else{
		$year="1900";
	}
	$_year=substr($_year,1,2);
	substr($year,2,2)=$_year;
	$_mon++;
	$mon="00";
	if($_mon>=10){
		substr($mon,0,2)=$_mon;
	}else{
		substr($mon,1,1)=$_mon;
	}
	$mday="00";
	if($_mday>=10){
		substr($mday,0,2)=$_mday;
	}else{
		substr($mday,1,1)=$_mday;
	}
	$hour="00";
	if($_hour>=10){
		substr($hour,0,2)=$_hour;
	}else{
		substr($hour,1,1)=$_hour;
	}
	$min="00";
	if($_min>=10){
		substr($min,0,2)=$_min;
	}else{
		substr($min,1,1)=$_min;
	}
	$sec="00";
	if($_sec>=10){
		substr($sec,0,2)=$_sec;
	}else{
		substr($sec,1,1)=$_sec;
	}
	@wday=("日","月","火","水","木","金","土");
	$wday=$wday[$_wday];
}

:beend

# =========================================================================
	# XCOPYでのファイル、フォルダのアップデートコピー
	# =========================================================================
	@source_pahts=(
	"Startdir\\aaaaa.exe"
	,"Startdir\\aaaaa.txt"
	,"Startdir\\aaaaa.ini"
	,""
	,""
	,""
	);
	$dest_dir="C:\\backup"+strmid($Startdir,2,length($Startdir)-2);
	if(-d $dest_dir){
		foreach $source_paht (@source_pahts){
			if(-f $source_paht){
				system "xcopy $source_paht $dest_dir /V /D /I /Y";
			}
			if(-d $source_paht){
				system "xcopy $source_paht $dest_dir /V /S /E /D /I /Y";
			}
		}
	}

# =========================================================================
	# XCOPYで自分をスタートメニューにコピーする
	# =========================================================================
	if($version == 6){
		$dir_startmenu="$dir_user\\AppData\\Roaming\\Microsoft\\Windows\\スタート メニュー\\";
		system "xcopy  \"$Startdir\\$ThisApliFileName\"  \"$dir_startmen\" /V /D /I /Y";
	}
	if($version == 5){
		$dir_startmenu="dir_user\\スタート メニュー\\";
		system "xcopy  \"$Startdir\\$ThisApliFileName\"  \"$dir_startmen\" /V /D /I /Y";
	}

# =========================================================================
	# XCOPYで自分を「送る」(SendTO)にコピーする
	# =========================================================================
	if($version == 6){
		$dir_sendto="$dir_user\\AppData\\Roaming\\Microsoft\\Windows\\SendTo\\";
		system "xcopy  \"$Startdir\\$ThisApliFileName\"  \"$dir_sendto\" /V /D /I /Y";
	}
	if($version == 5){
		$dir_sendto="$dir_user\\SendTo\\";
		system "xcopy  \"$Startdir\\$ThisApliFileName\"  \"$dir_sendto\" /V /D /I /Y";
	}

# =========================================================================
	# ROBCOPYでのフォルダの同期
	# =========================================================================
	$source_dir="$Startdir;
	$dest_dir="C:\\backup"+strmid($Startdir,2,length($Startdir)-2);
	if(-d $source_dir){
		if(-d $dest_dir){
			system "robocopy $source_dir $dest_dir /MIR /R:1 /W:1 /XF";
		}
	}