Help for this page

Select Code to Download


  1. or download this
      my $name = 'main::test' ;

  if (defined *{$name}{SCALAR}) { print "\$$name\n" ;}
  if (defined *{$name}{ARRAY}) { print "\@$name\n" ;}
  if (defined *{$name}{HASH}) { print "\%$name\n" ;}
  2. or download this
    $main::test
  3. or download this
      @test = %test = 1 ;
  4. or download this
      $main::test
  @main::test
  %main::test
  5. or download this
      my $name = 'main::test' ;
  
  my $ref = *{$name}{SCALAR} ;
  print "$ref\n" ;
  6. or download this
      SCALAR(0x1a6f080)
  7. or download this
    if (defined $val && defined *ENTRY{SCALAR}) {