WEB+DB PRESS Vol.25

サポートページ

 

この記事を読むのに必要な時間：およそ 1 分

このページでは「WEB+DB PRESS Vol.25」に関する補足情報を公開しています。

サンプルファイルのダウンロード

特集2「Javaプログラミングの○と×」

特別企画1「Perlの極意 CPANモジュール活用術」

一般記事

連載

お詫びと訂正

本書の掲載内容に下記の誤りがございました。読者の皆様、および関係者の方々にご迷惑をおかけしましたことを深くお詫び申し上げます。

目次（一般記事）

誤記事業務フロー 作成&活用入門
正業務フロー 作成&活用入門

特別企画1「Perlの極意 CPANモジュール活用術」154ページ　リスト1

リスト1（CGI.pmを使った例）の内容が、誤ってリスト4（HTML::Parserの例）の内容になっておりました。お詫びして訂正いたします。正しくは、以下になります。


#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
#0. CGIオブジェクトの作成(=パラメータ解析)
my $oCgi = new CGI;
#1. 保存
my $sRec;
my $sMsg = '';
if($oCgi->param('txtFile')) {
  open OUT, '>', $oCgi->param('txtFile') 
    or die("Can't open $!"); 
     #エラーになるとCGI::Carpにより表示される
  binmode OUT;
  while(read($oCgi->upload('filObj'), $sRec, 1024)) {
    print OUT $sRec;
  }
  close OUT;
  $sMsg = $oCgi->upload('filObj') . ' => ' . 
          $oCgi->param('txtFile') . '<BR>';
}
#2. 
print $oCgi->header(-type => 'text/html', 
                    -charset => 'euc-jp',
                    -expires => '-1d',
                    );
my $sUrl = $oCgi->url();
print<EOF;>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
$sMsg
<form action="$sUrl" method="POST"
  enctype="multipart/form-data" >
保存先　:<INPUT TYPE="text" NAME="txtFile" size=40><BR>
ファイル：<input type="file" size="40" name="filObj"> 
<input type="submit" name="exeOk" value="実行">
</form>
</BODY>
</HTML>
EOF