use Data::Dumper;

# ...

%some_complicated_hash = ();

# fill hash with values...

print Dumper(\%some_complicated_hash);
[download]

Regards...	Stefan
you begin bashing the string with a +42 regexp of confusion

-=- MamuT -=-
Another feature is if you write it to file.


use Data::Dumper;

my $conf = (
foo => 'foofoo',
bar => 'barbar',
);

open CONF,"myconfig.conf";
print CONF Dumper($conf);
close CONF;
[download]

In another program you make it easy to load it back to Perl.

my $VAR1; #you must declare VAR1 from file if you use strict
open CONF,"myconfig.conf";
my $conf = eval (join "",<CONF>);

close CONF;
[download]

Now you have stored structure in $conf. Same you can do with perl object.

Mamut

I like Data::Denter myself. It's a plugin replacement for Data::Dumper (just change the use line and that's all). The output is more compact than Data::Dumper's, and I find it easier to read.

Does this help?

- install package Tk

- install package Tk::ObjScanner

- run the demo below

#!perl -w

# This demo of Tk-ObjScanner 
# is a stripped-down version of the test file Tk-ObjScanner\t\basic.t
# The module Tk::ObjScanner by Dominique Dumont is available on CPAN a
+nd on PPM

use strict ;

package Toto ; # creates a moderately complicated perl structure

sub new
  {
    my $type = shift ;
    my $tkstuff = shift ;
    my $scalar = 'dummy scalar ref value';
    open (FILE,"$0") || die "can't open myself !\n";
    my $glob = \*FILE ; # ???
    my $self = 
      {
       'key1' => 'value1',
       'array' => [qw/a b sdf/, {'v1' => '1', 'v2' => 2},'dfg'],
       'key2' => {
                  'sub key1' => 'sv1',
                  'sub key2' => 'sv2'
                 },
       'some_code' => sub {print "some_code\n";},
       'piped|key' => {a => 1 , b => 2},
       'scalar_ref_ref' => \\$scalar,
       'filehandle' => $glob,
       'empty string' => '',
       'non_empty string' => ' ',
       'long' => 'very long line'.'.' x 80 ,
       'is undef' => undef,
       'some text' => "some \n dummy\n Text\n",
       'tk widget' => $tkstuff
      } ;
    bless $self,$type;
  }

package main;

use Tk ;
use Tk::ObjScanner ;

my $mw = MainWindow-> new ;

my $dummytolookat = new Toto ($mw);

$mw -> ObjScanner
  (
   'caller' => $dummytolookat, 
   #destroyable => 0,
   title => 'test scanner'
  )
  -> pack(expand => 1, fill => 'both') ;

MainLoop ; # Tk's
[download]

Rudif

--
Simeon2000
JAPU