perlからPHPへの書き換え補助

※機能制限した見本版です。(このディレクトリから移動できません。置換ファイルはphpではなく、txtファイルになります。ファイルや置換パターンを編集しても10分で元に戻ります。)

	上のディレクトリへ
	calendar.cgi
	multiupload.cgi
	subdir

multiupload.cgiを選択中

SJIS EUC-JP UTF-8 JIS

--------------------------------------------------------------------------------------------------

■以下の変数名はスカラーや配列で重複して使用されています。変数のタイプが違う場合、別名に変更してください。

一括で変換

変数名	スカラー	配列	ハッシュ
history	●	●		historyを編集
admin_mail	●	●		admin_mailを編集
ver	●	●		verを編集
access	●	●		accessを編集
path	●	●	●	pathを編集
mode	●		●	modeを編集
subdir	●	●		subdirを編集
sort	●		●	sortを編集
pass	●		●	passを編集
user	●	●		userを編集
dir	●		●	dirを編集
param	●		●	paramを編集
mail	●	●	●	mailを編集
size	●		●	sizeを編集
decode_name	●		●	decode_nameを編集
perm	●	●		permを編集
download	●		●	downloadを編集
tm	●		●	tmを編集
tmp	●	●		tmpを編集
value	●	●		valueを編集
val	●		●	valを編集
oval	●	●		ovalを編集
time	●		●	timeを編集
kigen	●	●		kigenを編集
html	●	●		htmlを編集
raw_pass	●	●		raw_passを編集
msg	●	●		msgを編集
url	●	●		urlを編集
t	●	●		tを編集
rpass	●		●	rpassを編集
htac	●	●		htacを編集
del_htac	●		●	del_htacを編集
d	●	●		dを編集
new_raw_pass	●	●		new_raw_passを編集
dlmail	●		●	dlmailを編集
max_day	●		●	max_dayを編集
max_down	●		●	max_downを編集
new_user	●	●		new_userを編集
str	●	●		strの編集をキャンセル
salt	●	●		saltを編集
host	●		●	hostを編集
cook	●	●	●	cookを編集
dir_user		●	●	dir_userを編集

▼変更対象の変数

5512行目 my $str = $_[0];
5513行目 $str =~ s/\,/,/g;
5514行目 $str;
5519行目 my $str = $_[0];
5520行目 $str =~ s/,/,/g;
5521行目 $str;
5549行目 my @str = ('a' .. 'f', 0 .. 9);
5552行目 $salt .= $str[int(rand(@str))];
5771行目 my($str) = "$tmp_id,$time,$host,$tm,\n";
5783行目 unshift(@access, $str);
5814行目 print LOG $str;
6038行目 my ($str,$key) = @_;
6039行目 return $str if ! $key;
6045行目 Jcode::convert(\$str, "euc");
6049行目 &jcode::convert(\$str, "euc");
6053行目 $str =~ s/\G((?:$ascii|$twoBytes|$threeBytes)*?)(?:$key)/$1$replace/g;
6055行目 Jcode::convert(\$str, "sjis");
6057行目 &jcode::convert(\$str, "sjis");
6059行目 return $str;