Perlコーディング初心者質問スレ Part 56at PHP

---

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
550:nobodyさん 07/11/13 15:56:31 課題は自分でやれｗｗｗ 551:nobodyさん 07/11/13 16:29:42 >>54 こんな感じはどうよ。適当に書いたからちゃんと動くかどうか知らんけど。 #!/usr/bin/perl use strict; use warnings; use CGI; use FileHandle; use File::Spec; my $cgi = CGI->new; my $fh = FileHandle->new; my $html_dir = '/path/to/html/dir'; my $output = $cgi->header( -type => 'text/html' ); my $fn = q{}; if ( $cgi->param('answer1') eq 'Yes' ) { 　 　 $fn = 'q2.html'; } else { 　 　 $fn = 'q3.html'; } $fh->open( File::Spec->catfile( $html_dir, 'q2.html' ) '<'); my $data = do { local $/; <$fh> }; $fh->close; $output .= $data; print $output; 552:nobodyさん 07/11/13 16:30:23 レス番ミスった。 誤 >>54 正 >>548 553:nobodyさん 07/11/13 16:31:27 さらに訂正。 誤 $fh->open( File::Spec->catfile( $html_dir, 'q2.html' ) '<'); 正 $fh->open( File::Spec->catfile( $html_dir, $fn ) '<');

---

次ページ

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch