print

Question

簡単な質問かもしれませんが

print <<"_HTML_"

ここでサブルーチンを実行させたい。

_HTML_

お分かりでしたら、教えてください。
${&sub}
で実行できるとどこかに書いてありましたが
できませんでした。

BLUEPIXY · Accepted Answer

#6補足>横槍ですみませんが＃６のソースにはがない $qがない ${\head}の形で呼び出すには先行宣言が必要呼び出される関数でprintするより関数で文字列を返した方がよい。の後にタグがあるがない（マッチしてない）を直してみましたあとは、良きに・ require 'lib.pl'; use CGI; #$q = new CGI; sub head; print <<"_HTML_"; result

${\head}

_HTML_ # $q->end_html; sub head { my $wk ; @name = (aa,bb,cc,dd,ee,ff); $ii = @name-1; for ($i = 0 ; $i <= $ii ; $i++) { $wk = "$wk$name[$i]"; #print "$name[$i]"; } return $wk; }

BLUEPIXY · Answer

>以下のような場合はどのように変数に入れたらよいのでしょうか？もうひとつ意味がよくわからないんですけど、同じだと思います。意図を理解していなかもしれないけど、こんな感じ？ require 'lib.pl'; use CGI; #$q = new CGI; sub head; sub html { print <<"_HTML_"; result

${\head}

_HTML_ } &html; # $q->end_html; sub head { my $wk ; @name = (aa,bb,cc,dd,ee,ff); $ii = @name-1; for ($i = 0 ; $i <= $ii ; $i++) { $wk = "$wk$name[$i]"; #print "$name[$i]"; } return $wk; } #-----------8<---------8<------------ 関数の中でヒアドキュメントを使うのに（関数として返すのための）変数に入れるのにどうするか？というような意味なら sub html { my $ret = <<_HTML_; なんたらかたら _HTML_ return $ret; } みたいに書けます。本当いうと、最後に実行した式が値になるので、（returnは要らなくて、$retも要らないので） sub html { <<_HTML_; なんたらかたら _HTML_ } でもいいですが、関数にする意味がよくわかりません。あと、＃５は、＃６で言われている通り同じ意味でした。あと、＃２で書いているような << "_HTML_" の様にスペースをあけるのは、よくない（非標準的な）書き方でした。同じようでも、この場合、 << _HTML_ とは書けません（空行以降がスクリプトになる）ので意味が変わってしまいます。（スペースを空けない場合は同じ意味です）

11th_style · Answer

<<__HTML__ は <<"__HTML__" と等価だった気がします。

こっちでは実行できるんですが、perlのバージョンとかわかったら教えていただけます？ こちらは5.6以降でチェックしてます。もしくは、サブルーチンの中身と呼び出し方を具体的に教えて頂ければ、アドバイスできるかもしれません。


> なにかテーブル内だからとか関係あるのでしょうか？

いいえ、perlは自分が吐いている物がhtmlだと言うことは知らないので、関係ありません。

BLUEPIXY · Answer

#4>しかし実行できませんでした。
print <<__HTML__;
を
print <<"__HTML__";
にしてみたら？

11th_style · Answer

以下のような書き方もありました。

sub date{'日付：' . localtime()}

print <<__HTML__;
この下に
${\ date}
サブルーチンをば
__HTML__

11th_style · Answer

私はいつもこうです。


sub date{'日付：' . localtime()}

print <<__HTML__;
この下に
@{[&date]}
サブルーチンをば
__HTML__


${&sub}みたいな方法もあったような・・・わかったらまた書き込みますね。

BLUEPIXY · Answer

#別のやり方、こっちのがいいかも
sub test {
return "TEST";
}
sub test2($$) {
my ($a,$b) = @_;
return $a+$b;
}
sub evaluate {
my $str = shift;
$str =~ s/^(&.*)/$1/gmee;
return $str;
}
print evaluate << "_HTML_";

ここでサブルーチンを実行させたい。
&test
&test2(4,5)
_HTML_

BLUEPIXY · Answer

ちょっと違うかもしれませんが…
sub test {
return "TEST";
}
sub test2($$) {
my ($a,$b) = @_;
return $a+$b;
}
sub evaluate {
my $str = shift;
if($str =~ /^\&/){
return eval($str) ."
";
} else {
return $str;
}
}
while(<DATA>){
print evaluate($_);
}
__END__

ここでサブルーチンを実行させたい。
&test
&test2(4,5)

print <<"_HTML_"の中でサブルーチン実行

#6補足>横槍ですみませんが

>以下のような場合はどのように変数に入れたらよいのでしょうか？

<<__HTML__ は <<"__HTML__" と等価だった気がします。

この回答への補足

#4>しかし実行できませんでした。

以下のような書き方もありました。

この回答への補足

私はいつもこうです。

#別のやり方、こっちのがいいかも

ちょっと違うかもしれませんが…

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

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

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

<<HTML は <<"HTML" と等価だった気がします。