Opened by rabo at 2015-09-03 15:42
User since
2015-08-17
15 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2015-08-17
15 Artikel
BenutzerIn
Habs gerade mit deinem BSP1 probiert. Bringt aber die selbe Fehlermeldung.
Scheint bbeim eval zu passieren.
irgendwie stell ich mich doof an. :-) (nicht verzweifeln)
einlesen:
auslesen in anderer file:
Scheint bbeim eval zu passieren.
Code: (dl
)
index.pl: Global symbol "%name" requires explicit package name at (eval 97) line 1, <$fh> chunk 1.
irgendwie stell ich mich doof an. :-) (nicht verzweifeln)
einlesen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
my %ResultHash = (
what => [
1,2,3
],
ever => [
qw( a b c )
],
);
# resultview return
open (TMPFILE, ">$TempFile")|| die "Fehler $!";
print TMPFILE Data::Dumper->Dump([\%ResultHash], ['*name']);
close TMPFILE;
auslesen in anderer file:
Code: (dl
)
1
2
3
4
5
6
open my $rh, '<', $filename or die "open($filename,r) failed: $!";
my %name;
eval do { local $/; <$rh> };
close $rh;
print Data::Dumper->Dump( [ \%name ], [ '*name_it' ] );