※機能制限した見本版です。(このディレクトリから移動できません。置換ファイルはphpではなく、txtファイルになります。ファイルや置換パターンを編集しても10分で元に戻ります。)
ファイル一覧を隠す
上のディレクトリへ上のディレクトリへ
ファイルcalendar.cgi
ファイルmultiupload.cgi
サブディレクトリsubdir
 multiupload.cgiを選択中
SJIS EUC-JP UTF-8 JIS 
--------------------------------------------------------------------------------------------------
■以下の変数名はスカラーや配列で重複して使用されています。変数のタイプが違う場合、別名に変更してください。
一括で変換
変数名スカラー配列ハッシュ 
history●● historyを編集
admin_mail●● admin_mailを編集
ver●● verを編集
access●● accessを編集
path●●●pathを編集
mode● ●modeを編集
subdir●● subdirの編集をキャンセル
sort● ●sortを編集
pass● ●passを編集
user●● userを編集
dir● ●dirを編集
param● ●paramを編集
mail●●●mailを編集
size● ●sizeを編集
decode_name● ●decode_nameを編集
perm●● permを編集
download● ●downloadを編集
tm● ●tmを編集
tmp●● tmpを編集
value●● valueを編集
val● ●valを編集
oval●● ovalを編集
time● ●timeを編集
kigen●● kigenを編集
html●● htmlを編集
raw_pass●● raw_passを編集
msg●● msgを編集
url●● urlを編集
t●● tを編集
rpass● ●rpassを編集
htac●● htacを編集
del_htac● ●del_htacを編集
d●● dを編集
new_raw_pass●● new_raw_passを編集
dlmail● ●dlmailを編集
max_day● ●max_dayを編集
max_down● ●max_downを編集
new_user●● new_userを編集
str●● strを編集
salt●● saltを編集
host● ●hostを編集
cook●●●cookを編集
dir_user ●●dir_userを編集

$subdir → $
@subdir → @
▼変更対象の変数
294行目 my $subdir = param('subdir');
652行目 if ($subdir eq '..') {
656行目  $updir = join('/',$updir,$subdir) if $subdir;
658行目 if ($subdir eq '..' && index($updir,$root) < 0 && ! $free_mode) {
661行目  $subdir = '';
667行目 if ($subdir) {
1461行目  while(my $subdir = readdir(DIR)) {
1462行目  next if $subdir eq '.' || ! -d join('/',$updir,$subdir);
1463行目  next if $subdir eq '..' && $updir eq $root;
1464行目  next if $subdir eq $file;
1465行目  push(@subdir_list,$subdir);
1783行目  my @subdir = ();
1786行目  push(@subdir,$file);
1789行目  foreach $file (@subdir) {
perlからPHPへの書き換え補助 perl2php.php ver.1.2