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

$max_down → $
%max_down → %
▼変更対象の変数
401行目 my (%tm, %mail, %max_day, %max_down, %dlmail);
461行目  my ($tm, $user, $path, $e_pass, $permit, $l_size, $mail,$max_day,$max_down,$dlmail) = split(/\,/,$line);
479行目  $max_down{"$user"} = $max_down;
525行目  my ($tm, $user, $path, $e_pass, $permit, $l_size, $mail,$max_day,$max_down) = split(/\,/,$line);
531行目  $max_down{"$id"} = $max_down;
633行目  $max_down{"$id"} = $max_dl_count if ! $max_down{"$id"} || param('dir') =~ /$user_root2/;
634行目  if ((stat(join('/',param('dir'),$file . '_count')))[7] >= $max_down{"$id"}) {
728行目  my ($time,$name,$dir,$epass,$permit,$l_size,$mail,$max_day,$max_down,$dlmail) = split(/\,/);
731行目  $max_down{"$name"} = $max_down if ! $login_guest;
1849行目  $max_down{"$dir_owner"} = $max_dl_count if ! $max_down{"$dir_owner"};
1850行目  print qq(&nbsp;&nbsp;最大ダウンロード回数&nbsp;<strong>$max_down{"$dir_owner"}回</strong>) if $show_dl_count;
4559行目  my ($time,$name,$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail) = split(/\,/);
4657行目  if (param('max_down') != $max_down{"$id"}) {
4669行目  $max_down = param('max_down') if param('max_down');
4670行目  push(@new_user,qq($time,$name,$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail,\n));
4737行目  my ($time,$name,$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail);
4739行目  ($time,$name,$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail) = split(/\,/);
4779行目  if ($max_down{"$id"} == $count || (!$max_down{"$id"} && $count == $max_dl_count)) {
perlからPHPへの書き換え補助 perl2php.php ver.1.2