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

$pass → $
%pass → %
▼変更対象の変数
312行目 my $pass = param('pass');
392行目 if ((!$id && ! $login_user && ! $login_admin && ! $login_guest) || (!$pass && !$tpass) && ! $login_guest && ! $login_user && ! ($login_admin && -e join('/',$logindir,$ENV{'REMOTE_ADDR'} . $login_admin . 'admin.cgi')) ) {
406行目 if ($login_admin || ($id eq $admin_id && &decrypt($pass,$adminpass) eq 'yes')) {
424行目  &set_cookie($id,$pass,param('save_cook'));
427行目  if (length($pass) > 8 && length($adminpass) == 13) {
431行目  undef $pass;
456行目  if ($pass || $ex_login_user) {
464行目  if (&decrypt($pass,$adminpass) eq 'yes') {
467行目  if (! $ex_login_user && &decrypt($pass,$e_pass) eq 'no' && ! $user_admin) {
498行目  &set_cookie($id,$pass,param('save_cook')) if ! $user_admin;
500行目  if (length($pass) > 8 && length($coded) == 13) {
504行目  undef $pass;
2920行目  $pass = $new_pass;
2933行目  my($name,$pass) = split(/:/);
3022行目  my ($tm, $user, $path, $pass, $permit, $l_size) = split(/\,/);
3050行目  my (@parent_user_list,@child_user_list,%path,%pass);
3072行目  my ($tm, $user, $path, $pass, $permit, $l_size,$mail,$mxday,$mxdown) = split(/\,/,$line);
3085行目  $in_pass = $pass if !$in_pass;
3088行目  $pass = $in_pass;
3128行目  $pass{"$user"} = $pass;
3215行目  my ($id,$pass) = split(/:/);
3239行目  my ($id,$pass) = split(/:/);
3276行目  push(@pass_list, qq($user:$pass{"$user"})) if $user ne $in_user;
3302行目  my ($id,$pass) = split(/:/,$line);
3325行目  my ($tm, $user, $path, $pass, $permit, $l_size, $mail) = split(/\,/,$line);
3356行目  my ($id, $pass) = split(/:/);
3484行目  my ($tm, $user, $path, $pass, $permit, $l_size, $mail,$auto_del,$max_dl) = split/\,/;
3491行目  $fpass = $pass;
3814行目  my $ad_pass = $pass;
3862行目  my ($tm, $user, $path, $pass, $permit, $l_size, $mail) = split/\,/, $_;
4049行目  my($id,$pass) = split(/:/);
4051行目  if ($pass) {
4133行目  my $pass = param('pass');
4575行目  my ($name,$pass) = split(/:/);
4635行目  my ($name,$pass) = split(/:/);
4713行目  $pass = $tmp_pass if $tmp_pass;
4714行目  &set_cookie($id,$pass,param('save_cook'));
4758行目  my $pass = param('pass');
4760行目  my $old_pass = my $new_pass = $pass;
4794行目  my %param = ('mode'=>'user','login_user'=>$login_user,'old_id'=>$id,'old_pass'=>$pass,'old_mail'=>$mail{"$id"});
5173行目  if ($pass) {
5174行目  if (length($pass) < $pass_length) {
5196行目  my $crypt_pass = &encrypt($pass);
5227行目  &set_cookie($id,$pass,param('save_cook'));
5451行目  if (!$cpass && $pass) { $cpass = $pass; }
perlからPHPへの書き換え補助 perl2php.php ver.1.2