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

▼変更対象の変数

780行目 if ($tail eq "jpg") { ($w, $h) = &j_size($del_file); }
781行目 elsif ($tail eq "gif") { ($w, $h) = &g_size($del_file); }
782行目 elsif ($tail eq "png") { ($w, $h) = &p_size($del_file); }
783行目 ($w,$h) = &small_size($w,$h);
784行目 if ($w && $h) {
1001行目 if ($tail eq "jpg") { ($w, $h) = &j_size($link); }
1002行目 elsif ($tail eq "gif") { ($w, $h) = &g_size($link); }
1003行目 elsif ($tail eq "png") { ($w, $h) = &p_size($link); }
1004行目 ($w,$h) = &small_size($w,$h);
1005行目 if ($w && $h) { $wh["$link"] = qq(width="$w" height="$h"); }
1025行目 my ($w,$h,$mw,$mh) = @_;
1030行目 if ($w > 0 && $w > $maxw) {
1031行目 my $ratio = $maxw / $w;
1032行目 $w = $maxw;
1038行目 $w = int($w * $ratio);
1040行目 return($w,$h);
1369行目 $w = &holiday::get_week($yy, $mm, $i);
1677行目 local($gmt, $cook, @t, @m, @w);
1682行目 @w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
1686行目 $w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);