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

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

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

calendar.cgiを選択中

SJIS EUC-JP UTF-8 JIS

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

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

一括で変換

変数名	スカラー	配列	ハッシュ
history	●	●		historyを編集
ver	●	●		verを編集
file	●	●		fileを編集
tmp	●	●		tmpを編集
val	●	●		valの編集をキャンセル
memo	●	●		memoを編集
m	●	●		mを編集
wh	●	●		whを編集
str	●	●		strを編集
category	●	●		categoryを編集
w	●	●		wを編集
cont	●	●		contを編集
cook	●	●		cookを編集
param		●	●	paramを編集

▼変更対象の変数

484行目 $val = $in["$cfg"];
485行目 $val =~ s/</</g;
486行目 $val =~ s/>/>/g;
487行目 $val =~ s/"/"/g; #"
488行目 $val =~ s/\\$//;
489行目 $value = "'" . $val . "'";
676行目 my %val;
683行目 $val["$name"] = $value;
703行目 if ($cfg && exists $val["$cfg"] && $line =~ /^\s*\$$cfg\s*=\s*/) {
704行目 my ($value,$val);
705行目 if ($val["$cfg"] =~ /^\d+$/) {
706行目 $value = $val["$cfg"];
708行目 $val = $val["$cfg"];
709行目 $val =~ s/</</g;
710行目 $val =~ s/>/>/g;
711行目 $val =~ s/"/"/g;
712行目 $val =~ s/\\$//;
713行目 $value = "'" . $val . "'";
723行目 if ($oval ne $val["$cfg"]) {
728行目 push(@config_value,qq($cfg<>) . $val["$cfg"] . qq(\n));
1630行目 local($key,$val);
1633行目 while ( ($key,$val) = each(%in) ) {
1640行目 $val =~ s/<>/&LT;&GT;/g;
1641行目 $val =~ s/&/&/g;
1642行目 $val =~ s/"/"/g;
1643行目 $val =~ s/</</g;
1644行目 $val =~ s/>/>/g;
1645行目 $val =~ s/\r\n/<br>/g;
1646行目 $val =~ s/\r/<br>/g;
1647行目 $val =~ s/\n/<br>/g;
1648行目 $val =~ s/\,/,/g;
1649行目 $in[$key] = $val;
1702行目 local($key, $val, *cook);
1709行目 ($key, $val) = split(/=/);
1711行目 $cook[$key] = $val;