perl学习笔记11_here_doc
here doc:
# 先定义一个变量, 用于替换.
my $a = 90;
# 定义Here doc: TEXT:
# 1. TEXT两侧 "使用双引号" 与 "不使用引号" 效果相同;
# 2. 如果不使用引号,<<与TEXT之间不能有空格;
# 3. 如果使用单引号,doc内的变量将不做替换;
# 4. 如果使用双引号,doc内的变量将做替换;
# 5. TEXT后可以有空格或注释;
my $str = << "TEXT"
This is a here doc,
it can write like this.
this is a = $a.
it contains some text.
TEXT
; # 注意:上一行TEXT后不能有其它字符(包括空格, 注释), 分号需要写在后面一行;
# 注意:此处的TEXT不能使用引号;
print "$str";