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

変数名	スカラー	配列	ハッシュ
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を編集

$val → $
%val → %

1307行目  my %val;
1314行目  $val{"$name"} = $value;
1334行目  if ($cfg && exists $val{"$cfg"} && $line =~ /^\s*(my)?\s*\$$cfg\s*=\s*/) {
1335行目  my ($value,$val);
1336行目  if ($val{"$cfg"} =~ /^\d+$/) {
1337行目  $value = $val{"$cfg"};
1339行目  $val = $val{"$cfg"};
1340行目  $val =~ s/&lt;/</g;
1341行目  $val =~ s/&gt;/>/g;
1342行目  $val =~ s/&quot;/"/g;
1343行目  $val =~ s/\\$//;
1344行目  $value = "'" . $val . "'";
1351行目  if ($oval ne $val{"$cfg"}) {
1356行目  push($config_value,qq($cfg<>) . $val{"$cfg"} . qq(\n));
2772行目  my($cname,$val) = split(/<>/);
2773行目  chomp $val;
2774行目  # ?????t?$?C??????者?p?X???h??????????A????????? if ($cname eq 'adminpass' && $val) {
4806行目  my ($value,$val);
4810行目  $val = param("$cfg");
4811行目  $val =~ s/&lt;/</g;
4812行目  $val =~ s/&gt;/>/g;
4813行目  $val =~ s/&quot;/"/g;
4814行目  $val =~ s/\\$//;
4815行目  $value = "'" . $val . "'";
5762行目  my($key, $val, %cook, $cook, $cook);
5767行目  ($key, $val) = split(/=/);
5769行目  $cook{$key} = $val;