--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/

Check out 'http://www.perl.com/' - the definitive site for Perl and all of
it's aspects.

--

NDUS UNIX SysAdmin        http://www.nodak.edu/~nem/
"Perl did the magic.  I just waved the wand."

Perl has saved the rainforests, it has been to the moon, and it has cured
all major diseases. It has exceeded all known bounds. It has mapped the
universe and created an exact duplicate. Perl has danced with angels and
dined with Shakespeare.

Didn't you read the manual?

miguel

;-)

--


    /                                  http://www.ziplink.net/~rjk/
        "It's funny 'cause it's true ... and vice versa."

+ Perl can bend steel bars and move mountains. Perl can tie back the hands of
+ time. Perl is good for the goose and for the gander. Perl can beat up Mike
+ Tyson with one hand tied behind its back. Perl can make a rock so heavy it
+ can't lift it.

And that was before breakfast.

+ It has mapped the universe and created an exact duplicate.

%universe_2 = %universe;

James - from empirical evidence, I'd say the universe is a hash... ;)

        #!/usr/local/bin/perl -w
        use Data::Dumper
        use universe; # load the current definition
        my %alternate_universe = map {
          my $u;
          eval Data::Dumper
            ->new([$universe{$_}],['u'])
            ->Purity(1)
            ->Dump;
          $_ => $u
        } keys %universe;

(I know this doesn't actually work, but you get my drift...)

--
John Porter

John> No, that's a shallow copy, and doesn't use map.

John>        #!/usr/local/bin/perl -w
John>        use Data::Dumper
John>        use universe; # load the current definition
John>        my %alternate_universe = map {
John>          my $u;
John>          eval Data::Dumper
-> new([$universe{$_}],['u'])
-> Purity(1)
-> Dump;
John>          $_ => $u
John>        } keys %universe;

John> (I know this doesn't actually work, but you get my drift...)

Or even simpler (and it *does* work :-):

        use Storable;
        $deepclone = dclone($original);

Of course, it can only hold on to scalars, arrays, and hashes, but
that's gonna be about as good as you can get.

--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying

Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me

Paul Archer

--
     _________________________________________________________________

     * Tech Support: "I need you to boot the computer."
     * Customer: (THUMP! Pause.) "No, that didn't help."
     _________________________________________________________________

In comp.lang.perl.misc,

:+ It has mapped the universe and created an exact duplicate.
:%universe_2 = %universe;

Goodness, wouldn't it be easier to just fork?  No data copying. :-)

--tom
--
    X-Windows: There's got to be a better way.
        --Jamie Zawinski

--
John Porter

+  [courtesy cc of this posting sent to cited author via email]
+
+ In comp.lang.perl.misc,

+ :+ It has mapped the universe and created an exact duplicate.
+ :%universe_2 = %universe;
+
+ Goodness, wouldn't it be easier to just fork?  No data copying. :-)

Forgive my presumption here, I only have a vague notion of what forking
does, but wouldn't this give you _parallel_ universes?

James - I don't think the data space is shared...

  IRAA> Forgive my presumption here, I only have a vague notion of what
  IRAA> forking does, but wouldn't this give you _parallel_ universes?

  IRAA> James - I don't think the data space is shared...

actually the data and code spaces are shared.

and what definition of universe are you using? if it means the entire
system, then you have to copy the OS, etc., not just fork a process.

you have to do something like (untested :-)

dd if=/dev/kmem of=??

4Q :-)

uri

--
Uri Guttman  -----------------  SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire  ----------------------  Perl, Internet, UNIX Consulting

The Best Search Engine on the Net -------------  http://www.northernlight.com

--
---------------------------------------------------
Pat Gunn, moderator:comp.sys.newton.announce
comoderator:comp.os.os2.moderated
"You can always judge a man by the quality of his enemies." -- Dr Who
http://junior.apk.net/~qc
------------------------------------------------