Perlでファイルの新規作成

質問

Perl中級者です。
フォームから受け取ったデータの一つをファイル名として
新たにデータ保存用のファイルを自動生成することは可能でしょうか？
ログを定期的に別ファイルとして保存する掲示板や、cgiファイルさえ設置すれば必要なデータ保存用ファイル（空ファイル）を自動生成してくれるようなスクリプトを見かけますので、不可能ではないと思っているのですが・・・。

＜作りたいスクリプトの概要＞
１．管理者が管理用フォームで文字列Aを登録する。
２．A.datという名のファイルが自動生成される。
３．閲覧者がAについて閲覧者用フォームで送った内容がA.datに書き込まれる。
４．管理者用ページでA.datの内容が一覧表示される。

というもので、２の部分が分かりません。
可能であるならば、その方法をご教授願います。
不足情報がありましたら補足します。

回答No.2

noname#25358 · ベストアンサー

えーと。

　ファイルの入出力の挙動を決定しているのは、ファイル名の前に付けた ">" という文字です。
　">" はファイルを新規作成（または作り直し）して書き込み、">>" は既存のファイルに追加、"<" は読み込みです。（他にもいくつかありますが、目下これで充分です）
　よって、入力用ファイルに "OUT" と名前を付けることもできます。"NURARI" とか "GITTYON" でもいいんです。

　で、書き込みが行われなくても、プログラムが「書き込むための準備」をしたのですから、クローズは必要です。

　cgi とは別のフォルダに作る場合は、ディレクトリを移動するよりも、相対パスでそのディレクトリを指定します。
　たとえば、cgi が /massasoyt/cgi-bin/ というディレクトリにあったとします。
　そしてデータは、その直下である /massasoyt/cgi-bin/data/ にあったとすると、オープンするときは、

　　open(OUT, ">data/A.dat");

　と指定することになります。しかしデータが、/massasoyt/data/ にあったとすると、１度戻らなければ行けないわけですので、
　１つ上に戻るときは、

　　open(OUT, ">../data/A.dat");

　となります。

お礼

度重なる質問にお答えいただいて本当にありがとうございました。問題は全て解決しました。全くのゼロからスクリプトを書くというのは壁も多いですが勉強になりますね。
なるべく自力でやりますが、どうしても・・・というときはまたお助けください。ありがとうございました。

回答No.3

sun_supinel

>ハンドルOUTは任意ですか？

任意です。
変数と同じようなものだと思っていただければ
よいかと思います。

>ファイル生成段階では書き込みません。
>このopenはcloseする必要がありますか？

read/write関係なく、ファイルをopenしたのならば
最後に必ずcloseしなければなりません。

お礼

開けたら閉める。プログラムの世界でも常識のようですね（笑）。ご回答ありがとうございました。

回答No.1

noname#25358

普通に作れますよ。

　　open(OUT, ">A.dat");

　これでＯＫです。
　ただし、その A.dat というファイルが出来ることになるフォルダの属性を、書き込み可能にしておく必要があります。
　また、そのファイルの所有者は nobody になりますので、telnet で操作するときは chmod で所有者を自分に移す必要があります。

補足

ありがとうございます、できました。
てっきりopenは既存のファイルを開くためだけのものと思っていました。また、フォルダのパーミッションも違っていました。
他にもいくつかお聞きしてよろしいでしょうか？

１．ハンドルOUTは任意ですか？新規作成のための特殊なものなのですか？
２．ファイル生成段階では書き込みません。このopenはcloseする必要がありますか？
３．本体のcgiファイルと異なったディレクトリに新規作成する場合、chdir、opendir・closedirのどちらを使うのでしょうか？それとも別の方法でしょうか？どちらを使ってもうまくいきませんでした。chdirで作れたのですが、もとのディレクトリ（一つ上）に戻る方法が分からず、その後の処理がおかしくなってしまいました。

以上、お時間がございましたらお願いします。