Wie kann ich einen Variablennamen aus einer Zeichenfolge in Perl einfügen?

Question

Ich versuche, eine Variable $font1 unten einzufügen. Die Variable $font1 ist der Name der Schriftart, z. Arial. Ich möchte wirklich, dass es $arial (oder was auch immer $font ist) als Variable zurückgibt.

Wenn $arial aufgerufen wird, wird die Datei arial.ttf aus einem Ordner auf meinem Server über get_fonts.pl abgerufen.

Ich habe alles \$$font'"$font"' und jede mögliche Variante davon versucht.

Ich habe sogar versucht if ($font=="arial"){$font = a ton of different attempts;}

do "get_fonts.pl"; 
&GetFonts($im); 

foreach $key (keys %ENV) { 
    if($key !~ /[A-Z]/){ 
    if ($key="sometext") { 
     $text="$ENV{'typetext'}"; 
     $color="$ENV{'typecolor'}"; 
     $font="$ENV{'typefont'}"; 
     $size="$ENV{'typesize'}"; 

     $string = qq~ $text ~; 
     $gd_text = GD::Text->new() or die GD::Text::error(); 
     $gd_text->set_font($arialb, $size) or die $gd_text->error; 
     $gd_text->set_text($string); 
     my ($w, $h) = $gd_text->get('width', 'height'); 
     $y1 = (300/6); 
     if ($w <= 380) { 
     $x1 = ((400/2) - ($w/2)); 
     $im->stringFT("$blue", $font1, $size, 0, $x1, $y1, "$string"); 
     } 
... 

bis ausgeschlossen endend Klammern Achtet nicht ..

Hinweis whare ich $font1 genannt .. Wenn ich $arialb alles ist in Ordnung rufen.

ist hier Schriftarten bekommen

sub GetFonts { 
    my($im) = $_[0]; 
    $arial = "fonts/arial.ttf"; 
    # I tried Tons of things here to no avail 
    if ($font=="arialb") { 
    $font1 = '$arialb'; # and so many different other attempts 
    } 

    $arialb = "fonts/ariblk.ttf"; 
    $ariali = "fonts/ariali.ttf"; 
    $arialbi = "fonts/arialbi.ttf"; 
    $comic = "fonts/comic.ttf"; 
    $comicb = "fonts/comicbd.ttf"; 
    $verdana = "fonts/verdana.ttf"; 
    $verdanab = "fonts/verdanab.ttf"; 
    $verdanai = "fonts/verdanai.ttf"; 
    $verdanabi = "fonts/verdanaz.ttf"; 
} 

ich auch mit $color das gleiche zu tun wünschen, aber, sobald $font wird herausgefunden, sollte ich in der Lage sein, dass, um Fiqure.

Danke für jede Hilfe.

Answer 1

Ihre Frage zu beantworten, versuchen etwas Ähnliches wie:

my $f=\$b; 
$b="foo"; 
print $$f; 

Aber ich einige Probleme sehen:

if ($font=="arialb") {$font1 = '$arialb'} 

Sie nicht String-Vergleiche mit == tun sollten. Sie sollten den eq-Operator verwenden.

diesen Code Versuchen:

$f="sf"; 
$b="fs"; 
if($f==$b){ 
    print "whoops"; 
} 

Auch wo font1 $ erklärt? Wenn es innerhalb des Gültigkeitsbereichs dieser if-Anweisung deklariert wird, können Sie diese Variable nicht außerhalb dieses Bereichs sehen. Ich empfehle, dass Sie das Pragma verwenden verwenden Sie streng; http://www.perl.com/doc/manual/html/lib/strict.html siehe

Answer 2

Wenn $ Schriftart „Arial“ gleich, und Sie wollen $ arial zugreifen zu können, möchten Sie:

${$font} 

Aber man fast tun sicherlich nicht wirklich wollen, dies zu tun. Ich bin mir nicht ganz sicher, was Sie versuchen, in Ihrem Code zu tun, aber es scheint, wie ein Hash mit einfacher und besser wäre:

$fonts{'arial'} = "/path/to/arial" 

Beachten Sie auch, dass das $ {$ font} Beispiel wird nicht arbeiten, wenn Sie verwenden

use strict; 

Answer 3

Stopp wollen, dass: Siehe perldoc -q "variable name":

Anfänger denken oft sie eine Variable enthalten den Namen einer variablen haben wollen. ...

Kurze Antwort: Nicht. Lange Antwort: Lesen Sie den FAQ-Eintrag (der auch auf Ihrem Computer verfügbar ist). Längere Antwort: Lesen Sie MJD's Why it's stupid to "use a variable as a variable name" (Part 2, Part 3).