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

$tm → $
%tm → %
▼変更対象の変数
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);
475行目  $rtm = $tm;
477行目  $tm{"$user"} = $tm;
525行目  my ($tm, $user, $path, $e_pass, $permit, $l_size, $mail,$max_day,$max_down) = split(/\,/,$line);
530行目  $rtm = $tm;
1304行目  my ($tm, $raw_pass) = split(/\,/);
1306行目  if ($tm == $tm{"$id"} && $raw_pass) {
1814行目  my $tm = (stat("$dir/$file"))[9];
1815行目  if ($tm + $life_ * 3600 * 24 < time) {
2208行目  my $tm = param('tm');
2209行目  my %param = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>$mode2,'tm'=>$tm);
2521行目  my $tm = param('time');
2522行目  $tm = time if ! $tm;
2524行目  my $kigen = &presenttime($tm + $kday * 3600 * 24);
2971行目  my $tm = param('tm');
2974行目  if ($t == $tm) {
2984行目  if ($tm == $t) {
3022行目  my ($tm, $user, $path, $pass, $permit, $l_size) = split(/\,/);
3072行目  my ($tm, $user, $path, $pass, $permit, $l_size,$mail,$mxday,$mxdown) = split(/\,/,$line);
3077行目  if ($tm eq $in_tm) {
3096行目  $line = qq($tm,$e_in_user,$in_path,$in_pass,$in_permit,$in_size,$in_mail,$mxday,$mxdown,\n);
3104行目  my %param = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'send_mail','tm'=>$tm);
3164行目  my $tm = (split(/\,/))[0];
3175行目  my $tm = (split(/,/,$line))[0];
3176行目  if ($in_tm == $tm) {
3182行目  $add = 1 if $tm == $in_tm;
3325行目  my ($tm, $user, $path, $pass, $permit, $l_size, $mail) = split(/\,/,$line);
3484行目  my ($tm, $user, $path, $pass, $permit, $l_size, $mail,$auto_del,$max_dl) = split/\,/;
3485行目  if (param("$tm") || param('in_tm') eq $tm) {
3487行目  $ftm = $tm;
3790行目  my (@updir_list, %dir_user, %tm);
3819行目  my ($tm,$rpass) = split(/\,/);
3862行目  my ($tm, $user, $path, $pass, $permit, $l_size, $mail) = split/\,/, $_;
3866行目  $tm{"$path"} = $tm;
3872行目  if (param("$tm") || param('in_tm') eq $tm) {
3887行目  my ($sec, $min, $hour, $day, $mon, $year) = localtime($tm);
3905行目  my %param = ('mode'=>'admin','login_admin'=>$login_admin,'mode2'=>'send_mail','tm'=>$tm);
3945行目  if (! -e join('/',$access_dir,$tm . '.cgi')) {
3948行目  open(LOG, join('/',$access_dir,$tm . '.cgi'));
3962行目  my %param = ('mode'=>'admin','login_admin'=>$login_admin,'sort'=>$sort,'mode2'=>'user','show_log'=>$tm);
3976行目  my %param = ('mode'=>'admin','login_admin'=>$login_admin,'tm'=>$tm,'show_pass'=>'1');
4077行目  $com = qq(<span style="color:red"><a href="$script?mode=admin&amp;mode2=user&amp;login_admin=$login_admin&amp;$tm{"$_"}=) . &url_encode('再編集') . qq(#input">) . $dir_user[0] . qq(を再編集してください</a></span>);
4119行目  my ($ac_user, $ac_time, $ac_host, $tm) = split(/\,/);
4125行目  $tm .= 'g';
4127行目  $tm .= 't';
4129行目  if (! $tm) {
4130行目  $tm .= 'a';
4141行目  $param{'show_log'} = $tm;
4185行目  my ($tm,$path) = split(/<>/);
4189行目  my ($sec, $min, $hour, $mday, $month, $year, $wday, $yday, $isset) = localtime($tm);
4487行目  if ($tm{"$id"} != $time || $id ne $name) {
4511行目  if ((split(/,/))[0] != $tm{"$id"}) {
4560行目  if ($tm{"$id"} != $time) {
4598行目  my ($tm,$raw_pass) = split(/,/);
4600行目  if ($tm == $tm{"$id"}) {
4611行目  my ($tm,$raw_pass) = split(/,/);
4612行目  if ($tm == $tm{"$id"}) {
4614行目  push(@new_raw_pass_list,qq($tm,$e_new_raw_pass,\n));
4622行目  push(@new_raw_pass_list,qq($tm{"$id"},$e_new_raw_pass,\n));
4740行目  if ($tm{"$id"} == $time) {
5289行目  my ($tm, $user, $path, $e_pass, $permit, $l_size) = split(/\,/);
5756行目  my($tm) = shift;
5771行目  my($str) = "$tmp_id,$time,$host,$tm,\n";
5794行目  my $log_path = join('/',$access_dir,$tm);
5821行目  my $tm = $_[0];
5822行目  $tm = time if ! $tm;
5823行目  my ($sec, $min, $hour, $mday, $month, $year, $wday, $yday, $isset) = localtime($tm);
perlからPHPへの書き換え補助 perl2php.php ver.1.2