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

▼変更対象の変数

449行目 my @col;
453行目 push(@col,"'" . $in["col$count"] . "'");
468行目 $init_line = '@category_color = (' . join(',',@col) . ");\n";
903行目 $week_com = qq|<span style="color:$col[$w_w];">| . $week_list[$week] . qq|</span>|;
1096行目 $wk_c = $col[7];
1098行目 $wk_c = $col[$week];
1196行目 $last,$week,$md,$f,$i,$mkey,$holi,$flag,@col);
1266行目 @col = ($sunCol,$norCol,$norCol,$norCol,$norCol,$norCol,$satCol,$holCol);
1345行目 print "<td align=center style=\"color:$col[$i]; font-size:$cal_fsize;\" width=\"$cal_cwidth\">$week_list[$i]</td>\n";
1438行目 $wk_c = $col[7];
1440行目 $wk_c = $col[$w];
1497行目 $day_col = $col[$w];
1501行目 $day_col = $col[7];
1513行目 if ($col[$w]) {
1514行目 print qq(<td align=right class=cal style="$today_border"><a href="$url" style="color:$col[$w];text-decoration:none;">$i</a>);