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

$sort → $
%sort → %
▼変更対象の変数
310行目 my $sort = param('sort');
668行目  my %param = ('dir'=>$updir,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
757行目 my %param = ('dir'=>$dir2,'login_user'=>$login_user,'sort'=>$sort,'show_size'=>$show_size);
1039行目  my %param = ('dir'=>$updir,'subdir'=>'..','login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
1081行目 if ($sort eq 'name') {
1085行目 } elsif ($sort eq 'name_u') {
1089行目 } elsif ($sort eq 'time' || !$sort) {
1093行目 } elsif ($sort eq 'time_u') {
1097行目 } elsif ($sort eq 'size') {
1101行目 } elsif ($sort eq 'size_u') {
1105行目 } elsif ($sort eq 'dl') {
1109行目 } elsif ($sort eq 'dl_u') {
1127行目  my (%sort,%order);
1129行目  if ($sort eq $_) {
1130行目  $sort{"$_"} = $_ . '_u';
1133行目  $sort{"$_"} = $_;
1137行目  my %param = ('dir'=>$updir,'sort'=>$sort,'show_size'=>$show_size,);
1144行目  $param{'sort'} = $sort{'name'};
1150行目  $param{'sort'} = $sort{'time'};
1156行目  $param{'sort'} = $sort{'size'};
1162行目  $param{'sort'} = $sort{'dl'};
1199行目  my %param = ('dir'=>$updir,'sort'=>$sort,'show_size'=>$show_size,'file'=>$_);
1245行目  my %param = ('dir'=>$updir,'subdir'=>$_,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size,'file'=>$_);
1490行目  my $sort = param('sort');
1491行目  my %param = ('mode'=>'move','move'=>'do','dir'=>$updir,'file'=>$file,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
1577行目  my %param = ('mode'=>'delete','delete_file'=>'do','dir'=>$updir,'file'=>$file,'file_type'=>param('file_type'),'login_guest'=>$login_guest,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size,'time'=>$time);
1700行目  my %param = ('dir'=>$updir,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
1709行目  %param = ('mode'=>'permission','dir'=>$dir,'file_path'=>$file_path,'login_user'=>$login_user,'login_admin'=>$login_admin,'sort'=>$sort,'show_size'=>$show_size);
1857行目  my $sort = param('sort');
1858行目  my %param = ('dir'=>$updir,'sort'=>$sort,'login_admin'=>$login_admin,'login_user'=>$login_user,'login_guest'=>$login_guest,'time'=>$time);
3450行目  if ($sort =~ /^time/) {
3451行目  if ($sort eq 'time') {
3456行目  if ($sort =~ /^name/) {
3457行目  if ($sort eq 'name') {
3462行目  if ($sort =~ /^dir/) {
3463行目  if ($sort eq 'dir') {
3468行目  if ($sort =~ /^mail/) {
3469行目  if ($sort eq 'mail') {
3474行目  if ($sort =~ /^acc/) {
3475行目  if ($sort eq 'acc') {
3649行目  my $sort = param('sort');
3650行目  my %param = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'user','sort'=>$sort,'page'=>$i);
3791行目  $sort = 'time_r' if ! $sort;
3792行目  if ($sort eq 'time') {
3794行目  } elsif ($sort eq 'time_r') {
3796行目  } elsif ($sort eq 'name') {
3798行目  } elsif ($sort eq 'name_r') {
3800行目  } elsif ($sort eq 'dir') {
3802行目  } elsif ($sort eq 'dir_r') {
3804行目  } elsif ($sort eq 'mail') {
3806行目  } elsif ($sort eq 'mail_r') {
3808行目  } elsif ($sort eq 'acc') {
3810行目  } elsif ($sort eq 'acc_r') {
3961行目  my $sort = param('sort');
3962行目  my %param = ('mode'=>'admin','login_admin'=>$login_admin,'sort'=>$sort,'mode2'=>'user','show_log'=>$tm);
4011行目  my $sort = param('sort');
4013行目  my %param_ = ('mode'=>'admin','login_admin'=>$login_admin,'sort'=>$sort,'mode2'=>'user','page'=>$page_,'show_htaccess'=>'0');
4134行目  my $sort = param('sort');
4136行目  my %param = ('mode'=>'admin','login_admin'=>$login_admin,'sort'=>$sort,'mode2'=>$mode2,'line'=>$count);
perlからPHPへの書き換え補助 perl2php.php ver.1.2