文字列の比較の仕方が分かりません

Question

フォームから入力された文字列をデータファイルの中から検索し、重複していなければ追加登録したい。・問題点重複していても登録できてしまう。昨日からperlを触り始めたばかりなので、基本的な部分が分かっておらず、おかしい部分が多々あるかもしれませんが、ご指導よろしくお願い致します。データは全て"["から始まるので、登録できませんの部分は、簡単な入力チェックです。 -------------------------------------------- test.html -------------------------------------------- test2.cgi #!/usr/local/bin/perl use utf8; use CGI; $q = new CGI; $flag = 0; $data = $q -> param('shirolist'); $data =~ s/\s+//g; open(IN , "<:uft8" , "data.dat"); while($line=){ if ( $line eq $data ) { $flag = 1; } } close(IN); if($flag == 0){ if ($data =~ /^\[/) { open(OUT,">>data.dat"); print OUT "$data\n"; close(OUT); $pr="を登録しました"; } else { $pr="は登録できません"; } } else { $pr="は登録済みです"; } print "Content-Type: text/html; charset=UTF-8\n"; print "$data $pr
\n"; ※Yahoo知恵袋で同様の質問をしましたが、回答者への個別のコメントや追加質問が出来ず、非常に使いづらく感じたのでこちらに投稿させて頂きました。

kmee · Accepted Answer

> while($line=){ <> (ダイヤモンド演算子) では、改行コードも含めて入力されます。よって、 $line = "でーた " としたような状態になっています。 $data にはformから入力したので、改行コードは付いていません。これでは絶対に一致しません。 while($line=){ chomp $line ; if ( $line eq $data ) { $flag = 1; } } という感じに、chomp関数を使うなど、改行コードを削除するのが,Perlでの常套手段です。あとは、細かいことになりますが > open(IN , "<:uft8" , "data.dat"); 戻り値を確認して、エラーのときは、適切な処理をするようにしましょう。 > open(OUT,">>data.dat"); INでは3引数で使ってるのですから、OUTの方も3引数使っては? エラー処理も入れましょう。ただ、このままだと、同時にアクセスがあったときに、不具合が発生する可能性があります。「perl 排他制御」で検索して、調べてください。今回の場合だったら '+<' で読み書き用でopen→flock等の排他処理→読み込み→(closeはしない)→seekで末尾に→追記→close というのが常套手段でしょう。 > print "Content-Type: text/html; charset=UTF-8 "; > print "$data $pr
"; HTTPのヘッダは、空行で区切りです。で改行するなら、と改行だけの行が必要です。その後もHTMLとしては変ですが、それはとりあえず置いておきます

文字列の比較の仕方が分かりません

> while($line=<IN>){

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング