Perl dizesinde kod benzeri şeylerden nasıl kurtulabilirim?

Question

$ i = 1; ($ i < 3) { yazdırma < < "EOT"; def px $ i = yeni E (kullanıcı) (px $ i.hasErrors()) { println "$ {px $ i.name}/$ {px $ i.empr.to} Tamam" }

Can't call method "px" without a package or object reference at borrar.pl line 3.

nasıl olursa "kaçış" olabilir:

EOT 

    $i++; 
} 

hata üretir?

Teşekkürler.

Answer 1

Bu kodun başarması gerektiğini söylemek zor, ama belki de println deyimindeki dış dolar işaretlerinin son çıktıda korunmasını istiyorsunuz? O değişiklikle

println "\${px$i.name}/\${px$i.empr.to} OK" 

, görüyorum hatasız çıkışı:

def px1 = new E(user) 
if (!px1.hasErrors()) { 
     println "${px1.name}/${px1.empr.to} OK" 
} 

def px2 = new E(user) 
if (!px2.hasErrors()) { 
     println "${px2.name}/${px2.empr.to} OK" 
} 

Answer 2

Bu sorunu çözmek gerekir. Görüldüğü gibi

println "${"px$i.name"}/${"px$i.empr.to"} OK" 
println "px$i.name"/px$i.empr.to OK" 

Answer 3

, dize $px parçası değerlendirilir oluyor. Sadece ondan kaçmak gerekir:

$i=1; 
while($i<3) { 
    print << "EOT"; 
    def px$i = new E(user) 
    if (!px$i.hasErrors()) { 
      println "\${px$i.name}/\${px$i.empr.to} OK" 
    } 

EOT 

    $i++; 
} 

"ayrıştırma Kanlı ayrıntıları yapılarını aktardığı" altında perldoc perlop en kaçan dize hakkında daha fazlasını okuyun.

Answer 4

Komut satırı seçeneği -MO=Deparse, Perl'in basitleştirdikten sonra kodunuzu nasıl yorumladığını gösterir (örneğin, heredoc'u qq {} bloklarına dönüştürme). Örneğin.

$ perl -MO=Deparse test.pl 
$i = 1; 
while ($i < 3) { 
    print qq[ def px$i = new E(user) \n if (!px$i.hasErrors()) {\n   println "${$i->px . 'name';}/${$i->px . 'empr' . 'to';} OK"\n }\n\n]; 
    ++$i; 
} 

ilgili parçasıdır:

println "${$i->px . 'name';}/${$i->px . 'empr' . 'to';} 

Perl ${$i->px . 'name'} için ${px$i.name} dönüştüğü! Perlde

, ${...} blok içinde ne olursa olsun değerlendirmek ve bir sayısal geri çevirmek için daha sonra KQUEUE, bir symbolic reference (yani, bir değişken adı) veya skalar referans olarak ele alınır. Böylece Perl, bu blokların içinde ne varsa onu yürütmeye çalışır, onların içeriğini Perl kodu olarak ele alır. Bunun nedeni, heredoc, "EOT"'un çift tırnaklı bir dizgiye benzemesi ve dolar işaretlerini enterpolasyonudur.

Çözüm: dolar işaretlerinden kaçının ($ ->\$) veya tekdüzenler yerine tek tırnak ve birleştirme kullanın.

Answer 5

my $format = << 'EOT'; 
def px%d = new E(user) 
    if (!px%d.hasErrors()) { 
      println "${px%d.name}/${px%d.empr.to} OK" 
    } 
EOT 

for my $i (1 .. 3) { 
    printf $format, ($i) x 4; 
}