Perl - Suchen und Ersetzen eines Hash-Wertes in einer anderen Datei

Question

Ich erstelle ein Mini-Programm, um einen bestimmten Hash-Schlüssel zu finden und seine Quelle zu ersetzen, aber dazu muss ich den ganzen Hash finden und durch einen neuen Hash ersetzen die Werte, die der Benutzer eingibt.

Beispiel meines Codes.

print "Please input the smile you would like to edit: "; 
$EditSmile = <STDIN>; 
print "Please input the text you want to change: "; 
$EditText = <STDIN>; 

open (IN, "< info.pl") || die("Can not open file: $!"); 

while (<IN>){ 
    $var1 =~ s/\'$EditSmile\' => "$smileinfo{"$EditSmile"}"/\'$EditSmile\' => "$EditText"/g; 
    print $var1;  
} 

Wo die Hash-Werte in der Datei sind info.pl, die in dem Programm enthalten ist.

Answer 1

Wahrscheinlich die während

while ($var1 = <IN>) { 
    ... 
} 

Answer 2

Eine weitere Option lesen sollte, wie Ether oben vorgeschlagen, ist zu Ihrer pl Datei "do" und den Hash direkt ändern.

my $hash = do "info.pl"; 
if (exists($hash->{$EditSmile})) { 
    $hash->{$EditSmile} = $EditText; 
} 
use Data::Dumper; 
print Dumper($hash);