perlからPHPへの書き換え補助

※機能制限した見本版です。(このディレクトリから移動できません。置換ファイルはphpではなく、txtファイルになります。ファイルや置換パターンを編集しても10分で元に戻ります。)

	上のディレクトリへ
	calendar.cgi
	multiupload.cgi
	subdir

calendar.cgiを選択中

SJIS EUC-JP UTF-8 JIS

--------------------------------------------------------------------------------------------------

■以下の変数名はスカラーや配列で重複して使用されています。変数のタイプが違う場合、別名に変更してください。

一括で変換

変数名	スカラー	配列	ハッシュ
history	●	●		historyを編集
ver	●	●		verを編集
file	●	●		fileを編集
tmp	●	●		tmpの編集をキャンセル
val	●	●		valを編集
memo	●	●		memoを編集
m	●	●		mを編集
wh	●	●		whを編集
str	●	●		strを編集
category	●	●		categoryを編集
w	●	●		wを編集
cont	●	●		contを編集
cook	●	●		cookを編集
param		●	●	paramを編集

▼変更対象の変数

132行目 my (@tmp, $com, $name, $value);
136行目 @tmp = split(/;/,$line);
137行目 $com = pop(@tmp);
139行目 $line = join(';',@tmp);
352行目 $tmp = $line;
353行目 $tmp =~ s/ //g;
354行目 if ($tmp =~ /^\$pass='/) {
357行目 @tmp = split(/;/,$line);
358行目 my $com = pop(@tmp);
491行目 @tmp = split(/;/,$init_line);
492行目 $com = pop(@tmp);
510行目 @tmp = split(/;/,$init_line);
511行目 $com = pop(@tmp);
681行目 my $tmp = '$' . $name . '=\'' . $value . '\';';
682行目 eval $tmp;
1011行目 my $tmp = $key;
1012行目 $tmp =~ s/%/%25/g;
1457行目 my $tmp = $data_dir . '/' . $date;
1458行目 if (-d $tmp) {
1464行目 my $path = join('/',$tmp,$file);
2060行目 my @tmp = split(/[\/\\]/,$fname);
2061行目 my $name = pop @tmp;