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

$file → $
@file → @
▼変更対象の変数
259行目  while ($file = readdir(AGD)) {
260行目  ($dt,$ex) = split(/\./,$file);
263行目  $path = join('/',$agenda_dir, $file);
264行目  if ($file ne '.' && $file ne '..' && $ex eq 'dat' && (stat $path)[7] > 0 && preg_match('/^[0-9]${8}/',$dt)) {
265行目  push($agd_cont,$file);
750行目  $file = &url_encode($in['file']);
751行目  $file =~ s/%2e/\./g;
752行目  $del_file = $data_dir . $in['date'] . '/' . $file;
985行目  while ($file = readdir(DIR)) {
986行目  if ($file eq '.' || $file eq '..') { next; }
987行目  $link = join('/',$attach_dir,$file);
988行目  preg_match('/.*\.(.*)/',$file);
992行目  $file["$link"] = $file;
1013行目  $decode_name = &url_decode($file["$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>";
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>";
1067行目  foreach $file ($logfile_list) {
1068行目  $file_path = join('/',$data_dir, $file);
1090行目  $yy = substr($file, 0,4);
1091行目  $mm = substr($file, 4,2);
1092行目  $dd = substr($file, 6,2);
1461行目  if ($file eq '.' || $file eq '..') { next; }
1462行目  !preg_match('/.*\.(.*)/',$file);
1464行目  $path = join('/',$tmp,$file);
1466行目  $decode_name = &url_decode($file);
2048行目  while ($file = readdir(ATT)) {
2049行目  if ($file eq '.' || $file eq '..') { next; }
2050行目  if (preg_match('/^(\d+)/',$file)) {
perlからPHPへの書き換え補助 perl2php.php ver.1.2