ファイル入出力 ～perl～

質問

以下のようなプログラムを作っています。（CGI,perlプログラム使用）

1.HTML文章中に　textareaを設置。
2.ユーザがtextareaに文章を入力（英語）。
3.submitボタンを押すと、Perlプログラムが最頻出単語を読み取り、「This story is about "その最頻出単語を表示 "　We have n stories about the topic. If you wish to see it, please click here.」
この際、a,the,I,youなど、topic内容に関係の内単語を排除。

文章の最後のhereをクリックすると、今までユーザが保存した同じtopicに関するデータを見れる仕組みになっています。

さて、質問なんですが、
今、submitボタンによって提出された文章をサーバ上に保存するところで困っています。
以下のような、ファイル入力のプログラムを書きました。

$fileName = $word . ".dat"; #word は読み込んだ最頻出語
open FH, "< $fileName" or die;
$numberOfStory++;
print $stored; #stored はtextareaから読み込んだ文章。
print "\n\n\n";
close (FH);

この記述で、
ファイルを読み込むまたは、作ってサーバ上のデータベースに保存しようと試みましたが、プログラムが動きません。
また、$numberOfStoryという整数型の変数を利用することによって、保存された文章の数も数えたいのですが、やり方がわかりません。

どなたかアドバイスをいただけないでしょうか。
よろしくお願いします。

回答No.2

kalze · ベストアンサー

ファイルに保存する部分だけを説明すると。

・ファイルを開く
・ファイルに書き出す
・ファイルを閉じる
という処理が必要になります。

上記の処理は、以下の通り。
open FH, "<< $fileName";
print FH $stored;
close FH;
※例外処理は記載していません。

問題は、ファイルフォーマット。
１つの文章をどのように格納するか。
それによって具体的な出力処理が変わってくるでしょう。

また実際には、ファイルを開くときにもチェックが必要でしょう。
ファイルがあるかどうかチェックして、あれば追記モードで、なければファイルを作ってから追記モードで開くか上書きモードで開いてファイルを同時に作らせるかなど。

質問者さんの書かれている処理で、ファイルに出力できない理由は、２つあります。
open FH, "< $fileName" or die;
この部分で、読み込み専用でファイルをひらいていること。

print $stored;
というところで、ファイルハンドラを指定しておらず標準出力に出力していること。

openのときに書き込みができるモードで開き、printでファイルハンドラを指定することで、ファイルに出力できるようになります。

とりあえずファイルへの出力に関しては以上でできるはず。

お礼

回答ありがとうございます。
おかげさまで、自分で納得のいき、正確に動くプログラムを作ることができました。
的確なアドバイスありがとうございました。

回答No.1

kalze

>$fileName = $word . ".dat"; #word は読み込んだ最頻出語
>open FH, "< $fileName" or die;

$fileaName変数に格納されているファイル名のファイルを読み込み専用で開き、ファイルハンドラをFHとする

>$numberOfStory++;
>print $stored; #stored はtextareaから読み込んだ文章。

$stored変数の中身を標準出力に表示

>print "\n\n\n";

標準出力に改行を３つ出力

>close (FH);

ファイルを閉じる

ファイルに関連する処理がありませんが、ファイルはなんのために開いたの？

>今、submitボタンによって提出された文章をサーバ上に保存するところで困っています。

ということですから、データをサーバ上のファイルに保存したいのですよね？

>以下のような、ファイル入力のプログラムを書きました。

なにがしたくて？

なんかやりたいことが文章にまとまっていないので、もう少しやりたいことを簡潔にまとめてもらえますか？
行いたい処理を箇条書きでいいので、順に書くとか。

補足

文章がまとまっていなくてすみません。ご指摘、ありがとうございます。

textareaから文章を得る。
↓
得た文章中の最頻出単語を表示。
↓
最頻出単語ごとにデータベースを作って保存。
例えば、user1の文章の最頻出がamericaだったら、サーバ上にamerica用のファイルを作って保存。
↓
「もしその最頻出単語のデータベースを見たかったら、ここをクリック」
という文章を表示し、アクセスできるようにする。
例えば、上のuser１の例では、「ここ」をクリックすると、これまでのuserによってamericaファイルに保存された文章が見れる。
↓
同時に、ファイル内の文章の数も表示。

というのが僕のやりたいことです。
サーバに文章を保存するところで困っています。