※機能制限した見本版です。(このディレクトリから移動できません。置換ファイルはphpではなく、txtファイルになります。ファイルや置換パターンを編集しても10分で元に戻ります。)
ファイル一覧を隠す
上のディレクトリへ上のディレクトリへ
ファイルcalendar.cgi
ファイルmultiupload.cgi
サブディレクトリsubdir
一時ファイル calendar_tmp.txtを選択中
SJIS EUC-JP UTF-8 JIS 
--------------------------------------------------------------------------------------------------
■以下の変数名はスカラーや配列で重複して使用されています。変数のタイプが違う場合、別名に変更してください。
一括で変換
変数名スカラー配列ハッシュ 
history historyを編集
init initを編集
file fileを編集
val valを編集
wh whを編集
cook cookを編集
param paramを編集

$col → $
@col → @
▼変更対象の変数
449行目  $col;
453行目  push($col,"'" . $in["col$count"] . "'");
468行目  $init_line = '$category_color = array(' . 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 = array($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 "<td align=right class=cal style=\"$today_border\"><a href=\"$url\" style=\"color:$col[$w];text-decoration:none;\">$i</a>";
perlからPHPへの書き換え補助 perl2php.php ver.1.2