Help for this page

Select Code to Download


  1. or download this
    {
    package cfg;
...
    %cfg::sessions = ();
    threads::shared::share(%cfg::sessions);
}
  2. or download this
    $myhash{A} = $cfg::sessions{A};
  3. or download this
    use Storable qw(dclone);
$myhash{A} = dclone($cfg::sessions{A});
  4. or download this
    use Clone qw(clone);
$myhash{A} = clone($cfg::sessions{A});