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

$raw_pass → $
@raw_pass → @
▼変更対象の変数
1300行目  my @raw_pass = <RAW>;
1303行目  foreach (@raw_pass) {
1304行目  my ($tm, $raw_pass) = split(/\,/);
1306行目  if ($tm == $tm{"$id"} && $raw_pass) {
2104行目  my ($time,$in_user,$in_path,$in_pass,$in_permit,$in_size,$in_mail,$raw_pass,$html,$dlmail,$dm);
2159行目  my @raw_pass = <RAW>;
2161行目  my ($time,$in_user,$in_path,$in_pass,$in_permit,$in_size,$in_mail,$raw_pass,$html);
2169行目  foreach (@raw_pass) {
2171行目  $raw_pass = (split(/\,/))[1];
2172行目  $raw_pass = &rechange($raw_pass);
2980行目  my @raw_pass = <RAW>;
2982行目  foreach (@raw_pass) {
2996行目  my (@user, @raw_pass);
2998行目  @raw_pass = &read_file(join('/',$passdir,'raw_pass.cgi'));
3014行目  my $raw_pass = $in_pass; # 非暗号化パスワード
3168行目  my $e_raw_pass = &change($raw_pass);
3170行目  push(@raw_pass,$line);
3171行目  } elsif ($raw_pass) {
3174行目  foreach my $line (@raw_pass) {
3177行目  my $e_raw_pass = &change($raw_pass);
3190行目  @raw_pass = @new_raw_pass;
3192行目  if ($new_data || $raw_pass) {
3195行目  print RAW @raw_pass;
3374行目  my (@user, @raw_pass);
3376行目  @raw_pass = &read_file(join('/',$passdir,'raw_pass.cgi'));
3717行目  if (scalar(@raw_pass)) {
3718行目  if (scalar(@raw_pass) < scalar(@user)) {
3818行目  foreach (@raw_pass) {
4598行目  my ($tm,$raw_pass) = split(/,/);
4599行目  chomp $raw_pass;
4601行目  if ($raw_pass) {
4611行目  my ($tm,$raw_pass) = split(/,/);
perlからPHPへの書き換え補助 perl2php.php ver.1.2