Perl: String der Variable innerhalb einer Variablen

Question

Hier ist ein Beispiel, was ich versuche zu tun: Ich möchte einen Namen für die Eingabe "definiert" und dann, wenn es in eine Funktion genommen wird, nur dann wird es ersetzen alle 3 Variablen.

$place_holder = 'f${file_case}_lalal_${subcase}_${test}'; 

.... woanders in einer anderen Funktion:

Lesedatei auf jede Zeile, die 3 Satz von Zahlen, die die $ file_case, $ Unterfall, $ test

Leider

while(<IN>){ 
    ($file_case, $subcase, $tset) = split; 
    $input = $place_holder #### line #3 here needs to fix 
    print " $input \n"; 
} 

repräsentieren Es wird f $ {file_case} lalal $ {subcase} _ $ {test} für jede einzelne Zeile ausgegeben. Ich möchte, dass diese Variablen ersetzt werden. Wie mache ich das, wie ändere ich Zeile 3 um zu ändern, damit ich ausgeben kann, wie ich wollte? Ich möchte den Eingangsnamen im Unterprogramm nicht definieren, er muss im Wesentlichen sein.

Answer 1

Sie können es Subroutinen zum Beispiel tun verwenden, wenn das Ihre Kriterien erfüllt

use warnings; 
use strict; 

my $place_holder = sub { 
    my ($file_case, $subcase, $test) = @_;  
    return "f${file_case}_lalal_${subcase}_${test}"; 
} 

# ... 

while (<IN>) { 
    my ($file_case, $subcase, $tset) = split; 
    # 
    # Code to validate input 
    # 
    my $input = $place_holder->($file_case, $subcase, $tset); 
    print "$input\n"; 
} 

I code reference mit einem anonymous subroutine in Erwartung von Anwendungen verwendet haben, die davon profitieren können, aber für die angegebene Aufgabe, die Sie allein kann auch eine normale Subroutine verwenden.

Beachten Sie, dass Sie haben $test und $tset, die nicht die oben genannten betrifft, aber möglicherweise Tippfehler.

Answer 2

evalwhile(<IN>){ ($file_case, $subcase, $tset) = split; $input = eval $place_holder #### line #3 here needs to fix print " $input \n"; }

Answer 3

A Versuchen Sie, während, nachdem ich geschrieben, ich einen Weg, es zu tun gefunden.

in der Leitung 3 ##, dies zu tun:

($ input = $ place_holder) = ~ s/(\ $ {w} +)/1 $/EEG-;

und alles funktioniert. Ja, der obige Tset ist ein Tippfehler, der als Test gedacht ist. Danke für die Antwort von allen.

Answer 4

können Sie verwenden das String::Interpolate Modul, wie dieser

use String::Interpolate 'interpolate'; 

my $place_holder = 'f${file_case}_lalal_${subcase}_${test}'; 


while (<IN>) { 
    my ($file_case, $subcase, $test) = split; 

    my $input = interpolate($place_holder); 
    print "$input\n"; 
} 

Das Modul Zugriff auf Perl gibt Code eingebauten in C, die doppelte Anführungszeichen Interpolation durchführt, so dass es im Allgemeinen schnell und präzise