Wie benutzt man Variablen innerhalb eines String blocks << (gelöst) (Allgemeines zu Perl)

[thread]17833[/thread]

Wie benutzt man Variablen innerhalb eines String blocks << [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+4 replies

crojay

2012-10-19 15:47

User since
2011-03-08
81 Artikel
BenutzerIn
[default_avatar]

Hallo,

kann mir jemand verraten wie ich eine counter Variable innerhalb meines << Blocks verwenden kann? Aktuell liefert mir der compiler folgende Fehler. In einem anderem Fall konnte ich meine Variable innerhalb eines << Blocks verwenden, aber dort hing es aber auch nicht direkt an einem Text.

Danke

Global symbol "$i_0" requires explicit package name at D:/development/perl/SupportCases/createFTL.pl line 76.
Global symbol "$i_0" requires explicit package name at D:/development/perl/SupportCases/createFTL.pl line 76.
Global symbol "$i_1" requires explicit package name at D:/development/perl/SupportCases/createFTL.pl line 76.
Global symbol "$i_1" requires explicit package name at D:/development/perl/SupportCases/createFTL.pl line 76.
Global symbol "$i_2" requires explicit package name at D:/development/perl/SupportCases/createFTL.pl line 76.
Global symbol "$i_2" requires explicit package name at D:/development/perl/SupportCases/createFTL.pl line 76.
Global symbol "$i_0" requires explicit package name at D:/development/perl/SupportCases/createFTL.pl line 76.
Global symbol "$i_1" requires explicit package name at D:/development/perl/SupportCases/createFTL.pl line 76.
Global symbol "$i_2" requires explicit package name at D:/development/perl/SupportCases/createFTL.pl line 76.

Code (perl): (dl )

        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";
        
        }

modedit Editiert von pq: einige tabs entfernt
Last edited: 2012-10-19 16:27:09 +0200 (CEST)

+2 replies
payx

2012-10-19 16:15

User since
2006-05-04
564 Artikel
BenutzerIn

Hallo crojay,

das Problem ist der Kontext der Variablen. Perl kann nicht erkennen, wo der Variablenname zu Ende ist.

Wenn Du statt $i ${i} schreibst, sollte es klappen.

HTH
Grüße
payx
- crojay
  
  2012-10-19 16:28
  
  User since
  2011-03-08
  81 Artikel
  BenutzerIn
  
  Danke!! So klappts!!
pq

2012-10-19 16:27

User since
2003-08-04
12208 Artikel
Admin1

bitte achte darauf, dass dein code nicht zu breit wird. ich hab mal ein paar tabs am ende der zeilen entfernt.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2012-10-19 15:47.