※機能制限した見本版です。(このディレクトリから移動できません。置換ファイルはphpではなく、txtファイルになります。ファイルや置換パターンを編集しても10分で元に戻ります。)
ファイル一覧を表示する
一時ファイル calendar_tmp.txtを選択中
SJIS EUC-JP UTF-8 JIS 
--------------------------------------------------------------------------------------------------
■以下の変数名はスカラーや配列で重複して使用されています。変数のタイプが違う場合、別名に変更してください。
一括変換の場合、配列には末尾に「_list」を追加し、ハッシュには末尾に「_hash」を追加しますが、変換しますか? 
変数名スカラー配列ハッシュ 
history historyを編集
file fileを編集
val valを編集
wh whを編集
paramparamを編集
cook cookを編集
321 $history[$i-1] .= $_;
$history_list[$i-1] .= $_;
322 $history[$i] = '';
$history_list[$i] = '';
683 $val["$name"] = $value;
$val_list["$name"] = $value;
703 if ($cfg && exists $val["$cfg"] && preg_match('/^\s*\$$cfg\s*=\s*/',$line)) {
if ($cfg && exists $val_list["$cfg"] && preg_match('/^\s*\$$cfg\s*=\s*/',$line)) {
705 if (preg_match('/^\d+$/',$val["$cfg"])) {
if (preg_match('/^\d+$/',$val_list["$cfg"])) {
706 $value = $val["$cfg"];
$value = $val_list["$cfg"];
708 $val = $val["$cfg"];
$val = $val_list["$cfg"];
723 if ($oval ne $val["$cfg"]) {
if ($oval ne $val_list["$cfg"]) {
728 push($config_value,"$cfg<>" . $val["$cfg"] . "\n");
push($config_value,"$cfg<>" . $val_list["$cfg"] . "\n");
906 print "<a href=\"$script" . &url_param(%param) . "\">$yy?$mm??</a>$dd??($week_com"&nbsp;$holiday&nbsp;?(IN%(B??&nbsp;);
print "<a href=\"$script" . &url_param(%param_hash) . "\">$yy?$mm??</a>$dd??($week_com"&nbsp;$holiday&nbsp;?(IN%(B??&nbsp;);
907 $param['type'] = $in['type'];
$param_list['type'] = $in['type'];
908 $param['year'] = $in['year'];
$param_list['year'] = $in['year'];
909 $param['month'] = $in['month'];
$param_list['month'] = $in['month'];
910 print "&nbsp;<a href=\"$script" . &url_param(%param) . "\">?????????</a>";
print "&nbsp;<a href=\"$script" . &url_param(%param_hash) . "\">?????????</a>";
992 $file["$link"] = $file;
$file_list["$link"] = $file;
1005 if ($w && $h) { $wh["$link"] = "width=\"$w\" height=\"$h\""; }
if ($w && $h) { $wh_list["$link"] = "width=\"$w\" height=\"$h\""; }
1006 else { $wh["$link"] = ""; }
else { $wh_list["$link"] = ""; }
1013 $decode_name = &url_decode($file["$key"]);
$decode_name = &url_decode($file_list["$key"]);
1014 if ($wh["$key"]) {
if ($wh_list["$key"]) {
1015 print "<div style=\"margin:0.5em\"><a href=\"$tmp\"><img src=\"$tmp\" $wh[\"$key\"] border=\"0\" alt=\"decode_name\" title=\"$decode_name\n$fsize[\"$key\"]\"></a>&nbsp;&nbsp;<a href=\"$script?mode=del_file&amp;date=\" . $in['date'] . \"&amp;file=$file[\"$key\"]\">???</a></div>";
print "<div style=\"margin:0.5em\"><a href=\"$tmp\"><img src=\"$tmp\" $wh_list[\"$key\"] border=\"0\" alt=\"decode_name\" title=\"$decode_name\n$fsize[\"$key\"]\"></a>&nbsp;&nbsp;<a href=\"$script?mode=del_file&amp;date=\" . $in['date'] . \"&amp;file=$file_list[\"$key\"]\">???</a></div>";
1017 print "<div style=\"margin:0.5em\"><a href=\"$tmp\" title=\"$decode_name\n$fsize[\"$key\"]\"><img src=\"./clip.gif\" border=\"0\" alt=\"$decode_name\">$decode_name</a>&nbsp;&nbsp;<a href=\"$script?mode=del_file&amp;date=\" . $in['date'] . \"&amp;file=$file[\"$key\"]\">???</a></div>";
print "<div style=\"margin:0.5em\"><a href=\"$tmp\" title=\"$decode_name\n$fsize[\"$key\"]\"><img src=\"./clip.gif\" border=\"0\" alt=\"$decode_name\">$decode_name</a>&nbsp;&nbsp;<a href=\"$script?mode=del_file&amp;date=\" . $in['date'] . \"&amp;file=$file_list[\"$key\"]\">???</a></div>";
1056 print "<a href=\"$script" . &url_param(%param) . "\">?????????</a>\n";
print "<a href=\"$script" . &url_param(%param_hash) . "\">?????????</a>\n";
1334 $url = $script . &url_param(%param);
$url = $script . &url_param(%param_hash);
1447 $url = $script . &url_param(%param);
$url = $script . &url_param(%param_hash);
1449 $param['type'] = $in['type'];
$param_list['type'] = $in['type'];
1450 $param['year'] = $in['year'];
$param_list['year'] = $in['year'];
1451 $param['month'] = $in['month'];
$param_list['month'] = $in['month'];
1452 $url = $script . &url_param(%param);
$url = $script . &url_param(%param_hash);
1483 $url = $script . &url_param(%param);
$url = $script . &url_param(%param_hash);
1485 $param['type'] = $in['type'];
$param_list['type'] = $in['type'];
1486 $param['year'] = $in['year'];
$param_list['year'] = $in['year'];
1487 $param['month'] = $in['month'];
$param_list['month'] = $in['month'];
1488 $url = $script . &url_param(%param);
$url = $script . &url_param(%param_hash);
1655 %param = $_;
%param_hash = $_;
1658 foreach (sort keys %param) {
foreach (sort keys %param_hash) {
1659 if ($param["$_"]) {
if ($param_list["$_"]) {
1661 $url .= "?" . $_ . "=$param[\"$_\"]";
$url .= "?" . $_ . "=$param_list[\"$_\"]";
1664 $url .= "&amp;" . $_ . "=$param[\"$_\"]";
$url .= "&amp;" . $_ . "=$param_list[\"$_\"]";
1711 $cook[$key] = $val;
$cook_list[$key] = $val;
1715 foreach ( explode('<>', $cook['CALENDAR']) ) {
foreach ( explode('<>', $cook_list['CALENDAR']) ) {
perlからPHPへの書き換え補助 perl2php.php ver.1.2