プログラミング勉強中。挫折の繰り返し。Perl、HTML、CSS
トーク情報- こーじ
こーじ #!/usr/bin/perl
use CGI;
$cgi = new CGI();
$pdate =$cgi->param('pdate');
$pprice = $cgi->param('pprice');
$star = $cgi->param('star');
$job = $cgi ->param('job');
@lang = $cgi->param('lang');
@out_lang = (0,0,0,0,0,0,);
foreach $lang_data(@lang) {
if ($lang_data eq 'PHP') {$out_lang[0] = 1};
if ($lang_data eq 'Perl') {$out_lang[1] = 1};
if ($lang_data eq 'Java') {$out_lang[2] = 1};
if ($lang_data eq 'C#') {$out_lang{3} = 1};
if ($lang_data eq 'C++') {$out_lang[4] = 1};
if ($lang_data eq 'Basic') {$out_lang[5]= 1};
}
$file = "var/www/html/quetion.csv";
open (OUTFILE, '>>',$file) or die $!;
flock OUTFILE,2;
print OUTFILE $pdate . ",";
print OUTFILE $pprice . ",";
print OUTFILE $star . ",";
foreach $lang_data(@out_lang) {
print OUTFILE $lang_data . ",";
}
print OUTFILE $job . "\n";
flock OUTFILE,8;
close OUTFILE;
print $cgi->header(-type=>'text/html',-charset=>'utf-8');
print $cgi->start_html(-title=>'アンケート',-lang=>'ja');
print 'アンケートを登録しました';
print '<br /><br />';
print '<a href="quetion.csv">CSVファイルのダウンロード</a>';
print $cgi->end_html(); - こーじ
こーじ #!/usr/bin/perl
use CGI;
$cgi = new CGI();
$pdate =$cgi->param('pdate');
$pprice = $cgi->param('pprice');
$star = $cgi->param('star');
$job = $cgi ->param('job');
@lang = $cgi->param('lang');
@out_lang = (0,0,0,0,0,0,);
foreach $lang_data(@lang) {
if ($lang_data eq 'PHP') {$out_lang[0] = 1};
if ($lang_data eq 'Perl') {$out_lang[1] = 1};
if ($lang_data eq 'Java') {$out_lang[2] = 1};
if ($lang_data eq 'C#') {$out_lang{3} = 1};
if ($lang_data eq 'C++') {$out_lang[4] = 1};
if ($lang_data eq 'Basic') {$out_lang[5]= 1};
}
$file = "/var/www/html/quetion.csv";
open (OUTFILE, '>>',$file) or die $!;
flock OUTFILE,2;
print OUTFILE $pdate . ",";
print OUTFILE $pprice . ",";
print OUTFILE $star . ",";
foreach $lang_data(@out_lang) {
print OUTFILE $lang_data . ",";
}
print OUTFILE $job . "\n";
flock OUTFILE,8;
close OUTFILE;
print $cgi->header(-type=>'text/html',-charset=>'utf-8');
print $cgi->start_html(-title=>'アンケート',-lang=>'ja');
print 'アンケートを登録しました';
print '<br /><br />';
print '<a href="quetion.csv">CSVファイルのダウンロード</a>';
print $cgi->end_html(); こーじ 削除されたユーザー削除されたユーザー こーじ何度も質問すみません。 Macを使ってPerlを勉強中。 なぜこのコードがブラウザで見れないのか教えていただきたいです。アクセス権は755にしてます。 AのHTMLのファイルでアンケートをとり、bのPerlファイルで表示させてcのPerlのファイルで保存画面をつくる。問題はcです。 http://7gogo.jp/lp/G_wB3hrDmThWkVIvojdMdG== 部屋にコードはりました。とりあえず、エラーログみたら如何です？
Apacheなら、Apacheのログに詳細なエラーが書いてある可能性があります。こーじ IZUN∀(PG部屋の切り込み隊長)IZUN∀(PG部屋の切り込み隊長) こーじすみません。処理分割とはなんでしょうか？aの処理、bの処理、cの処理みたく分割してテストして問題無いのかどうか確認したかどうか(φωφ)
