Leser: 1
9 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
sub save_struct($$) { my ($file,$ref)=@_; use Data::Dumper; open(OUT,'>',$file) or return 0; print OUT Dumper($ref); close(OUT); return 1; } sub load_struct($) { my ($file)=@_; local $/=''; my $VAR1; open(IN,'<',$file) or return undef; eval(<IN>); close(IN); return $VAR1; }
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
sub save_struct($$) { my ($file,$ref)=@_; use Data::Dumper; open(OUT,'>',$file) or return 0; print OUT Dumper($ref); close(OUT); return 1; } sub load_struct($) { my ($file)=@_; local $/=''; my $VAR1; open(IN,'<',$file) or return undef; eval(<IN>); close(IN); return $VAR1; }
9 Einträge, 1 Seite |