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

$mode → $
%mode → %
▼変更対象の変数
291行目 my $mode = param('mode');
383行目 if ($mode eq 'history') {
393行目  &login($mode);
418行目  &login($mode,'再ログインしてください');
423行目  if ($mode eq 'login') {
491行目  } elsif ($mode eq 'login') {
545行目  } elsif ($mode eq 'login') {
558行目  if ($del_day ne 'p' && ($mode eq 'login' || $mode eq 'download') && param('time') + $del_day * 3600 * 24 < time) {
589行目 if ($mode eq 'admin') {
593行目  &login($mode);
602行目 } elsif ($mode eq 'user') {
605行目 } elsif ($mode eq 'download') {
695行目 if ($mode eq 'move' && ($user_perm[0] || $administrator) && ! $tpass && ! $login_guest) {
698行目 if ($mode eq 'delete') {
705行目 if ($mode eq 'permission' && ($user_perm[2] || $administrator)) {
743行目 if ($mode eq 'send_url') {
1615行目  my (%mode);
1616行目  my ($mode) = $st[2] % 512;
1617行目  $mode{'o_r'} = $mode & 256;
1618行目  $mode{'o_w'} = $mode & 128;
1619行目  $mode{'o_x'} = $mode & 64;
1620行目  $mode{'g_r'} = $mode & 32;
1621行目  $mode{'g_w'} = $mode & 16;
1622行目  $mode{'g_x'} = $mode & 8;
1623行目  $mode{'u_r'} = $mode & 4;
1624行目  $mode{'u_w'} = $mode & 2;
1625行目  $mode{'u_x'} = $mode & 1;
1626行目  return %mode;
1672行目  my (%mode) = &get_perm($file_path);
1673行目  foreach(keys %mode){
1674行目  if($mode{$_}){ $mode{$_} = qq( checked="checked");}
1675行目  else{ $mode{$_} = "";}
1680行目  if ($mode{"$_"}) {
1721行目  <input type="checkbox" name="o_r" id="o_r" value="256"$mode{'o_r'} tabindex="1" /><label for="o_r">呼び出し(4)</label><br />
1722行目  <input type="checkbox" name="o_w" id="o_w" value="128"$mode{'o_w'} tabindex="2" /><label for="o_w">書き込み(2)</label><br />
1723行目  <input type="checkbox" name="o_x" id="o_x" value="64"$mode{'o_x'} tabindex="3" /><label for="o_x">実行(1)</label>
1726行目  <input type="checkbox" name="g_r" id="g_r" value="32"$mode{'g_r'} tabindex="4" /><label for="g_r">呼び出し(4)</label><br />
1727行目  <input type="checkbox" name="g_w" id="g_w" value="16"$mode{'g_w'} tabindex="5" /><label for="g_w">書き込み(2)</label><br />
1728行目  <input type="checkbox" name="g_x" id="g_x" value="8"$mode{'g_x'} tabindex="6" /><label for="g_x">実行(1)</label>
1731行目  <input type="checkbox" name="u_r" id="u_r" value="4"$mode{'u_r'} tabindex="7" /><label for="u_r">呼び出し(4)</label><br />
1732行目  <input type="checkbox" name="u_w" id="u_w" value="2"$mode{'u_w'} tabindex="8" /><label for="u_w">書き込み(2)</label><br />
1733行目  <input type="checkbox" name="u_x" id="u_x" value="1"$mode{'u_x'} tabindex="9" /><label for="u_x">実行(1)</label>
3580行目  my %param = ('login_admin'=>$login_admin,'mode'=>$mode,'mode2'=>'user','in_tm'=>$ftm,'page'=>$page);
5258行目  my $mode = $_[0];
5260行目  $mode = 'login' if ! $mode || $mode eq 'history';
perlからPHPへの書き換え補助 perl2php.php ver.1.2