Help for this page

Select Code to Download


  1. or download this
    $abc = 'xyz';
print(${*{abc}{SCALAR}}, "\n");  # xyz
  2. or download this
    $glob = *def = *abc;
$abc = 'xyz';
...
print(${*{abc  }{SCALAR}}, "\n");  # xyz
print(${*{def  }{SCALAR}}, "\n");  # xyz
print(${*{$glob}{SCALAR}}, "\n");  # xyz
  3. or download this
    $glob = *def = *abc;
$abc = 'xyz';
...
print(${*{abc  }{SCALAR}}, "\n");  # uvw
print(${*{def  }{SCALAR}}, "\n");  # uvw
print(${*{$glob}{SCALAR}}, "\n");  # uvw