sub get_conf{ my $file = shift; my ($data, %data); open(FILE, "<$file") or error("設定ファイルが開けません"); while(my $line = ) { chomp $line; if($line =~ /^([^\t]+)\t(.*)/) { $data{$1} = $2; } } close FILE; return (%data); } sub print_conf{ my ($data) = @_; open(OUT,">$conf{AuthorData}") or error("設定ファイルが開けません"); while (($key, $value) = each %$data){ print OUT $key . "\t" . $value . "\n"; } close OUT; } sub sort_dir{ my $all_dir = shift; @alldir = sort {$a <=> $b} @$all_dir; my $dir_name = pop @alldir; $dir_name += 1; return($dir_name); } sub open_dir{ my $dir = shift; my @alldir; opendir DIR,"$dir"; @alldir = grep(!/^\.+/,readdir DIR); close DIR; @alldir = sort {$a <=> $b} @alldir; return(@alldir); } sub get_param{ @param = @_; foreach $key (@param){ $value = $q->param($key); $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg; $value =~ s/&/&/g; $value =~ s//>/g; $value =~ s/\x0D\x0A/
/g; $value =~ tr/\t/ /; # $value =~ s/\\/\\\\/g; $value =~ s/"/#double#/g; $param{$key} = $value; } return(%param); } sub error { my ($mes) = @_; print < エラー

ERROR

以下のエラー内容をご確認の上、ブラウザの「戻る」ボタンで前の画面へ戻り、再度情報を送信してください

$mes

END exit; } 1;