Hash of Hashes auf einen Rutsch aus txt-file schreiben - #182039 (Allgemeines zu Perl)

rabo

2015-09-03 17:09

User since
2015-08-17
15 Artikel
BenutzerIn
[default_avatar]

als rein ganz normal mit:

Code: (dl )

    
open (TMPFILE, ">$TempFile")|| die "Fehler $!";
print TMPFILE Dumper(\%ResultHash);
close TMPFILE;

und raus mit:

Code: (dl )

open (my $fh,'<','AllVMinfos.txt') or die $!;
my $config_neu;
{ 
$/ = undef; 
my $s= <$fh>; 
$s=~s|\$VAR1|\$config_neu|; 
eval "$s";                  
}
print Dumper($config_neu);

wollte dann mit

Code: (dl )

1
2
3

foreach my $Key (keys %($config_neu)){
    print STDERR "KEY:".Dumper($Key);
}

weitermachen, aber er sagt kein hash sondern string.
ausserdem steht in der file

Code: (dl )

$VAR1 = {

sollte aber eben nicht drinstehen.

Hash sieht so aus:

Code: (dl )

$VAR1 = {
          \'esx.xxx.org\' => bless( {
                                             \'mo_ref\' => bless( {
                                                                  \'type\' => \'HostSystem\',
                                                                  \'value\' => \'host-429\'
                                                                }, \'ManagedObjectReference\' ),
                                             \'vm\' => [
                                                     bless( {
                                                              \'type\' => \'VirtualMachine\',
                                                              \'value\' => \'vm-688\'
                                                            }, \'ManagedObjectReference\' ),.....

Last edited: 2015-09-03 19:47:05 +0200 (CEST)