※機能制限した見本版です。(このディレクトリから移動できません。置換ファイルは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を編集
pathpathを編集
mode modeを編集
subdir subdirを編集
sort sortを編集
pass passを編集
user userを編集
dir dirを編集
param paramを編集
mailmailを編集
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を編集
cookcookを編集
dir_user dir_userを編集

$url → $
@url → @
▼変更対象の変数
2190行目  my $url = url;
2275行目  my $url = url;
2279行目  $url .= qq(?mode=login&dir=$dir&id=) . &url_encode($id) . qq(&time=$time); # この$idは省略するわけにはいかない
2397行目  my $url = my $cgi = url;
2409行目  $url .= qq(?mode=login&dir=$dir&id=) . &url_encode($id) . qq(&time=$time); # この$idは省略するわけにはいかない
2469行目  my @url;
2481行目  my $url;
2482行目  $url = &url_decode($name) . "\n" . $cgi . qq(?mode=download&dir=$dir&file=$link&id=$url_id&time=) . param('time') . qq(\n);
2483行目  push(@add_str, $url);
2486行目  @url = @add_str;
2516行目  print qq(<tr><td style="text-align:right;vertical-align:top;">本文</td><td><textarea name="cont" rows=") . (scalar(@body) + scalar(@url) * 3 + 4) . qq(" cols="100" tabindex="$tab_index_count">\n); $tab_index_count++;
2620行目  my $url = url;
2621行目  my $dir = $url . qq(?dir=$updir&id=) . &url_encode($id);
2635行目  my $url = url;
2636行目  $url .= qq(?dir=) . param('dir');
3901行目  my $url = qq($script) . &url_param(%param);
3909行目  my $url = qq($script) . &url_param(%param);
4527行目  my $url = url;
4687行目  my $url = url;
5405行目  my $url = url;
5407行目  my $dir = $url . qq(?dir=) . join('/', $updir, 'usr_root', $enc_pass,);
5951行目  my $url;
5955行目  $url .= "?" . $_ . qq(=$param{"$_"});
5958行目  $url .= "&amp;" . $_ . qq(=$param{"$_"});
5962行目  return $url;
perlからPHPへの書き換え補助 perl2php.php ver.1.2