perl cgiにて作成したtextareaで改行

質問

perl cgiにて作成したtextarea内に初期文字列を入力しておくプログラムを組んだのですが、
その初期文字列内で改行を行いたいと思い、何種類か改行を入れてみたのですが、
うまくいきません。

$testbr = "\r\n";
print $q->start_html(-title=>"１２３", -BGCOLOR=>'#ffffff'),
(中略)
q->p('<textarea name="freeans" rows="5" cols="30" value=$initText wrap="hard">あいうえお"$testbr"かきくけこ </textarea>'),
(中略)
$q->end_html;

textarea内に

あいうえお(改行)
かきくけこ

という表示をしたいのですが・・・

回答No.1

kmee · ベストアンサー

これ、結果どうなったか、ブラウザで、実際の表示とソース、両方確認しましたか?
textareaに"$testbr" と表示されたのではないですか?
#ついでに、ソースを見れば「value=$initText」となっているはずです。

' (シングルクオート)と "(ダブルクオート)での挙動の違いを理解してください。
Perlの基本です。

'<textarea name="freeans" rows="5" cols="30" value=$initText wrap="hard">あいうえお"$testbr"かきくけこ </textarea>'
では、これ全体がシングルクオートで括られた1つの文字列です。
シングルクオートの中では$での変数の展開等は行いません。
よって"$testbr"は、そのまま「"$testbr"」という文字列になります。
\による展開も\自身と'にしか効かないので
'<textarea name="freeans" rows="5" cols="30" value=$initText wrap="hard">あいうえお\nかきくけこ </textarea>'
も改行にはなりません。

一旦閉じて文字列の連結を使うとか
'<textarea name="freeans" rows="5" cols="30" value=' . $initText . ' wrap="hard">あいうえお' . $testbr . 'かきくけこ </textarea>'
ダブルクォートを使う(文字列中のダブルクォートは\でエスケープ)とか
"textarea name=\"freeans\" rows=\"5\" cols=\"30\" value=${initText} wrap="hard">あいうえお${testbr}かきくけこ </textarea>"
が常套手段でしょう。

お礼

返信ありがとうございます。
参考にさせて頂きます。

回答No.2

Tacosan

ダブルクォートの中で「ダブルクォートをエスケープしなきゃならない」のが面倒というむきには
qq(～)
などの方法もあります.

お礼

返信ありがとうございます。
qqも一時き使ってみたことがあるのですが、プログラムがわかりにくくなってしまったので、やめました。