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

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

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

一時ファイル multiupload_tmp.txtを選択中

SJIS EUC-JP UTF-8 JIS

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

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

一括で変換

変数名	スカラー	配列	ハッシュ
history	●	●		historyを編集
path	●		●	pathを編集
mode	●		●	modeを編集
sort	●		●	sortを編集
pass	●		●	passを編集
dir	●		●	dirを編集
param	●		●	paramを編集
mail	●	●	●	mailを編集
size	●		●	sizeを編集
decode_name	●		●	decode_nameを編集
perm	●	●		permを編集
download	●		●	downloadを編集
tm	●		●	tmを編集
val	●		●	valを編集
time	●		●	timeを編集
kigen	●	●		kigenを編集
sendto_list	●	●		sendto_listを編集
rpass	●		●	rpassを編集
del_htac	●		●	del_htacを編集
dir_user	●		●	dir_userを編集
dlmail	●		●	dlmailを編集
max_day	●		●	max_dayを編集
max_down	●		●	max_downを編集
host	●		●	hostを編集
cook	●		●	cookを編集

▼変更対象の変数

3008行目 my $new_user = ();
3124行目 push($new_user,$line);
3139行目 push($new_user,$line);
3159行目 print USR $new_user;
3163行目 foreach ($new_user) {
3324行目 foreach my $line ($new_user) {
4481行目 my $new_user = ();
4488行目 push($new_user,$_);
4500行目 print USR $new_user;
4554行目 my $new_user = ();
4561行目 push($new_user,$_);
4670行目 push($new_user,qq($time,$name,$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail,\n));
4674行目 print USR $new_user;
5406行目 my $new_user = param('new_id');