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を編集

▼変更対象の変数

570行目 for ($m = $mm - 1; $m <= $mm + 1; $m++) {
571行目 if ($m < 1) {
572行目 $mmm = $m + 12;
574行目 } elsif ($m > 12) {
575行目 $mmm = $m - 12;
578行目 $mmm = $m;
1233行目 for ($m = $m_stt; $m <= $m_end; $m++) {
1235行目 if ($m == $mon) {
1241行目 if ($m < 1) {
1242行目 $mm = $m + 12;
1244行目 } elsif ($m > 12) {
1245行目 $mm = $m - 12;
1248行目 $mm = $m;
1253行目 } elsif ($m == $mon && $in['type'] eq 'month') {
1677行目 local($gmt, $cook, @t, @m, @w);
1681行目 @m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
1686行目 $w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);
2098行目 local($t, $m, $c, $l, $W, $H);
2105行目 ($m, $c, $l) = unpack("a a n", $t);
2107行目 if ($m ne "\xFF") { $W = $H = 0; last; }