ベストアンサー

TEXTAREAの改行がうまくいきません。

2002/10/14 22:56

自作で掲示版を作成している、初心者です。現在作成中の掲示版にTEXTAREAに入力し、LOG上では１行目 ２行目といった形で改行をBRに置き換えて保存していますが、その修正としてLOGからデータをとり改行状態で表示させたいのですが、うまく改行されない状態です。下記にLOGより読み込み。タグを\rに置き換えていますが、TEXTAREAに表示されなく、改行表示どころではありません。いったいどうすればよいのでしょうか？ご教示をお願いします。＜CGI文＞ $wkaaa1 = $IXUSERINF{Enaiyo}; データを取得 $wkaaa =~ &notag1($wkaaa1);　変換（これがおかしい？） $mesbuff .= "<TR><TD nowrap ><TEXTAREA ROW=\"10\" COLS=\"48\" NAME=\"Enaiyo\" WRAP=\"soft\">$wkaaa </TEXTAREA></TD></TR>"; ＜sub> sub notag1 { local($_) = @_; s/&/&/g; s/"/"/g; s/</</g; s/>/>/g; s/ /\n/gi (これで　 を\n(改行）にしてるつもり return $_; }

mangin
お礼率30% (3/10)

CGI
回答数5
ありがとう数2

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

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

ベストアンサー

so_blue
ベストアンサー率48% (50/104)

2002/10/23 09:53 回答No.5

＞上記のパターンをそれぞれ入れてみてやってみましたが、これで上手くいくと思っていたのに残念ですね.... 試験的に、改行でない文字に置換できるか確認してみてはどうでしょう。 # $WEnaiyo =~ s/ /HENKAN/g; # のような感じで。これでダメなら、改行文字ではなく「置換」そのものに不具合があると考えられます。ログデータの最後の項目に変化を施すようなので、これだけで試してみてはどうでしょうか。 # 未テストなのでscript確認してください（汗 open(FH,"$logfile") or die "$!"; foreach(<FH>){ my @line = split(/,/,$_,); $line[$#line] =~ s/ /HENKAN/g; print "$line[$#line]\n"; } close(FH);

質問者

補足 2002/10/23 22:46

何度も申し訳ありません。上記のひょうに変更したところ、＜BR＞を違う文字に変換するようにしましたら、下記のようになりました。例 AAAAHENKANBBBBHENKANCCCC（といった具合に変換はできましたが）なぜか改行コードにはおきかわらなく、そのまま詰まって１行で表示されます。ほんとどうすればいいのでしょうか？

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

その他の回答 (4)

FUCKIE
ベストアンサー率33% (1/3)

2002/10/16 03:54 回答No.4

$WEnaiyo =~ s/ /\n/g; を $WEnaiyo =~ s/ /\r\n/g;　か $WEnaiyo =~ s/ /\r/g;　にして試してみてはどうでしょう。

質問者

補足 2002/10/23 00:03

おそくなりましてすみません。（レンタルしていたサーバーがダウンしその復旧で...）上記のパターンをそれぞれ入れてみてやってみましたが、何もかわらなのです。元のデータ（LOG)を作成するときに何かたりなのでしょうか？（JCODE等は使用していません）もうすこしだけお付き合い願えないでしょうか？

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

so_blue
ベストアンサー率48% (50/104)

2002/10/15 10:19 回答No.3

自分がREVISIONモードを作ったときの流れは、ログデータを@lineに取得.... foreach(@line){ chomp; ($foo,$bar)=split(/,/,$_); $bar =~ s/ /\n/g; } こんな感じでTEXTAREAに$barを改行表示させています。ここ以外に、関係のありそうな部分はないですか？しかし表示はされているとの事なので、置換部分に問題があるんだとは思いますが.... 文字コードだったり環境が影響している可能性もあるかもですね。ご参考に、改行コード変換の解説サイトを入れておきます。

参考URL：: http://www.din.or.jp/~ohzaki/perl.htm#CRLF_2BR

質問者

補足 2002/10/16 00:18

so_blue さん、お世話になります。ご指摘のとおりデータ取得時に下記のように修正し、CGI側はそのまま出力するようにしましたが、結果は、aaabbbcccとつながって１行で出力されます。ほんと何がいけないんでしょうか？ foreach(@buffer) { ($a, ～ ,$WEnaiyo) = split(/,/,$_,); $WEnaiyo =~ s/ /\n/g; $IXUSERINF{Enaiyo} = $WEnaiyo; } ハッシュがいけないのでしょうか？（多分関係ないと思います）改行コードが入らないのはなぜ？

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

so_blue
ベストアンサー率48% (50/104)

2002/10/15 00:59 回答No.2

自分には、TEXTAREA内で s/</</g; s/>/>/g; にしている理由が分かりませんが.... タグがあると何か不都合があるのでしょうか？？？これをなくすか、使う場合はこれより先に、 s/ /\n/g; で上手く動作しないでしょうか。

質問者

補足 2002/10/15 01:12

何度もすみません。 sub notag1 { local($_) = @_; s/ /\n/g; （修正しました） s/&/&/g; s/"/"/g; s/</</g; s/>/>/g; s/ /\n/gi; return $_; } にしたところ、TEXTAREA内にaaa bbbb cccといった形で改行されず、 の文字がそのまま出力されます。やはりタグを消さないといけなのではないでしょうか？すぐにでも、回答を締め切り、POINTを差し上げたいのですが、もうすこし初心者につきあってください。

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

nipotan
ベストアンサー率59% (134/227)

2002/10/14 23:24 回答No.1

> $wkaaa =~ &notag1($wkaaa1);　変換（これがおかしい？）はい。おかしいです。チルダを取って、$wkaaa = &notag1($wkaaa1); にしてください。

質問者

補足 2002/10/15 00:02

早速の回答ありがとうございます。ご指摘のとおり、チルダをはずしたら TEXTAREAには表示されるようになりましたが、改行されません。どうすれば良いか改めて回答をおねがします。 <表示内容> aaaaabbbbbccccc(1行で表示されます。a b c の間で改行したいのですが） <希望表示> aaaaa bbbbb ccccc のように３行にしたいのです。

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