ベストアンサー

空白が・・・

2003/04/13 01:16

$numbers="@LECREREAD[0]";　　#@LECREREAD[0]にはK00R4が代入済み @CHECK=grep(/$numbers/,@DATAFILES); #一致するものを検索 print "CODETEST-$numbers-<br>STTEST-@CHECK-<br>";　　#表示部というプログラムがあります。しかしこれを実行すると、 CODETEST-K00R4 - STTEST-- となって、@CHECKの結果が出てきません。また、CODETESTのK00R4の後に何故か空白が表示されてしまいます。この空白が原因でしょうか？空白が原因でしたら、正規表現による削除方法をご教示して頂ければ幸いです。（調べて見たのですが、どうしても空白が消えない・・）

Lio
お礼率44% (46/103)

Perl
回答数3
ありがとう数3

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

osamuy
ベストアンサー率42% (1231/2878)

2003/04/13 11:25 回答No.2

＞この空白が原因でしょうか？その通りです。この状態だと、/K00R4 /というパターンマッチを行いますので、例えば、「K00R4,test,100」みたいなデータはひっかかりません。 $number =~ s/s+$//; のようにして、$numberの後ろの空白を削除してみては。正規表現と置換演算子s///については、Perl付属のドキュメントperlreやperlfuncなどをご覧下さい。ただ今回のケースだと、massasoytさんが指摘されているように、そもそも$LECREREAD[0]に空白が入っているのがおかしいようにも思えます。バグの原因が、その直前にあるとは限りません。もっと前の部分をチェックしてみた方が良いかも。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

osamuy
ベストアンサー率42% (1231/2878)

2003/04/13 11:30 回答No.3

No.2に、訂正。 $number =~ /\s+$// ――ですね。

質問者

お礼 2003/04/13 11:50

@LECREREAD[0]の内容の最後にコンマをつけて、 my ($numbers, $dummy) = split(/,/, @LECREREAD[0]); の処理をする事で、空白を消すこと（実際空白はコンマの後ろ）で正常処理出来ました。根本的解決になってないような気がしますが、動くので、問題無しです！ありがとうございました。

ログインすると、全ての回答が全文表示されます。

noname#48234

2003/04/13 03:39 回答No.1

こんばんは。＞@CHECKの結果が出てきません。どんな結果をお望みなのでしょうか？ (1)一致した要素ですか？ CODETEST-K00R4- STTEST-K00R4- (2)それとも一致した回数ですか？ CODETEST-K00R4- STTEST-一致した要素の数- また、@DATAFILESはどんな内容ですか？とりあえず下記のスクリプトでテストしたところ、正常（(1)と仮定）に表示されました。 @LECREREAD = K00R4; @DATAFILES =(J00R5,L11S4,K00R5,K00R4); $numbers = @LECREREAD[0]; @CHECK=grep(/$numbers/,@DATAFILES); print "Content-type :text/html\n\n"; print "<html><head><title>Data Check</title></head><body>\n"; print "CODETEST-$numbers-<br>STTEST-@CHECK-<br>"; print "</body></html>"; ＜結果＞ CODETEST-K00R4- STTEST-K00R4- 「表示されない」「空白」、いずれの問題も配列への代入の仕方に問題があるように思います。