我尝试在<<
块内使用变量 i 。但是由于编译错误而失败
全局符号“$i_0”需要在 D:/development/perl/SupportCases/createFTL.pl 第 76 行显式包名。
全局符号“$i_0”需要在 D:/development/perl/SupportCases/createFTL.pl 行显式包名76.
全局符号“$i_1”需要在 D:/development/perl/SupportCases/createFTL.pl 处显式包名 76.
全局符号“$i_1”需要在 D:/development/perl/SupportCases/createFTL 处显式包名。 pl 第 76 行。
全局符号“$i_2”需要在 D:/development/perl/SupportCases/createFTL.pl 处显式的包名称。pl 第 76 行。
全局符号“$i_2”需要在 D:/development/perl/SupportCases/ 处显式包名称createFTL.pl 第 76 行。
全局符号“$i_0”需要在 D:/development/perl/SupportCases/createFTL.pl 第 76 行显式包名。
全局符号“$i_1”需要在 D:/development/perl/SupportCases/createFTL.pl 行显式包名76.
全局符号 "$i_2" 需要在 D:/development/perl/SupportCases/createFTL.pl 第 76 行明确的包名称。
如何在 << 块中定义变量?
谢谢
my $i = 1;
for ($i = 1; $i <=6; $i++){
my $block = <<BLOCK;
<#if ((model.fields.txt_Artikel_Z$i?? || model.fields.txt_Artikel_Z$i.value = "") &&
(model.fields.txt_Artikelnummer_Z$i?? || model.fields.txt_Artikelnummer_Z$i.value = "") &&
(model.fields.txt_Anzahl_Z$i?? || model.fields.txt_Anzahl_Z$i.value = "") &&
(model.fields.chk_Ware_aus_Z$i_0?? || model.fields.chk_Ware_aus_Z$i_0.value = "") &&
(model.fields.chk_Ware_aus_Z$i_1?? || model.fields.chk_Ware_aus_Z$i_1.value = "")&&
(model.fields.chk_Ware_aus_Z$i_2?? || model.fields.chk_Ware_aus_Z$i_2.value = ""))
&&
(!(model.fields.txt_Artikel_Z$i.value = "") &&
!(model.fields.txt_Artikelnummer_Z$i.value = "") &&
!(model.fields.txt_Anzahl_Z$i.value = "") &&
!(model.fields.chk_Ware_aus_Z$i_0.value = "") &&
!(model.fields.chk_Ware_aus_Z$i_1.value = "")&&
!(model.fields.chk_Ware_aus_Z$i_2.value = ""))
>
<#else>
<result type="ERROR"
field="txt_Fehlerbericht_Arbeiten_Z$i"
code="-1"
message="Komplette Zeile $i muss ausgefüllt sein!" />
</#if>
BLOCK
print "$block";
}