This function will scan your script (main::), for subs, scalars, arrays, hashes and other packages, just past the name of the package to start the scan and what you want ($,@,%,&,::).
sub GET_PACK::entrys {
  my ( $pack , %type ) = @_ ;
  if (! %type) { %type = qw($ 1 @ 1 % 1 & 1 :: 1) ;}
  
  local(*GET_PACK_tab) = eval("*$pack\::");
  
  my @PACK ;
  
  foreach my $GET_PACK_Key ( sort keys %GET_PACK_tab ) {
    local(*GET_PACK_entry) = $GET_PACK_tab{$GET_PACK_Key};
    if ( $type{'$'} && defined $GET_PACK_entry) { push(@PACK , "\$$GET
+_PACK_Key") ;}
    if ( $type{'@'} && defined @GET_PACK_entry) { push(@PACK , "\@$GET
+_PACK_Key") ;}
    if ( $type{'%'} && $GET_PACK_Key !~ /::$/ && defined %GET_PACK_ent
+ry) { push(@PACK , "\%$GET_PACK_Key") ;}
    if ( $type{'&'} && defined &GET_PACK_entry) { push(@PACK , "\&$GET
+_PACK_Key") ;}
    if ( $type{'::'} && $GET_PACK_Key =~ /::$/) {
      $GET_PACK_Key =~ s/:+$// ;
      push(@PACK , "$GET_PACK_Key\::") ;
    }
  }

  return( @PACK ) ;
}

[download]


#Example:
sub test { print "Hello!\n" ;}
my $test = 123 ;

@l = GET_PACK::entrys('main' ,
'$' => 1 ,
'@' => 1 ,
'%' => 1 ,
'&' => 1 ,
'::' => 1 ,
) ;

foreach my $l_i ( sort @l ) { print "$l_i\n" ;}

[download]

# Send your feedback!
#
# "The creativity is the expression of the liberty".

In reply to Scan memory for sub,scalars,arrays,hashes,packages... by gmpassos

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.