perl - 使用<<'ESQ'帮助我理解此Perl语句

substr($obj_strptime,index($strptime,"sub")+6,0) = <<'ESQ';
 shift; # package
 ....
 ....
ESQ

这是什么ESQ，它在做什么？请帮助我理解这些声明。

最佳答案

它标志着here-doc section的结束。

EOF比ESQ更传统。