Tôi làm cách nào để liệt kê tất cả các biến nằm trong một phạm vi nhất định?

Question

Tôi biết tôi có thể liệt kê tất cả các gói và các biến lexcial trong một phạm vi nhất định sử dụng Padwalker 's peek_our và peek_my, nhưng làm thế nào tôi có thể nhận được tên và giá trị của tất cả các biến toàn cầu như $" và $/?

#!/usr/bin/perl 

use strict; 
use warnings; 

use PadWalker qw/peek_our peek_my/; 
use Data::Dumper; 

our $foo = 1; 
our $bar = 2; 

{ 
    my $foo = 3; 
    print Dumper in_scope_variables(); 
} 

print Dumper in_scope_variables(); 

sub in_scope_variables { 
    my %in_scope = %{peek_our(1)}; 
    my $lexical = peek_my(1); 
    #lexicals hide package variables 
    while (my ($var, $ref) = each %$lexical) { 
     $in_scope{$var} = $ref; 
    } 
    ############################################## 
    #FIXME: need to add globals to %in_scope here# 
    ############################################## 
    return \%in_scope; 
} 

Answer 1

Bạn có thể truy cập bảng biểu tượng, xem p. 293 của "Lập trình Perl" Ngoài ra nhìn vào "Mastering Perl: http://www252.pair.com/comdog/mastering_perl/ Cụ thể: http://www252.pair.com/comdog/mastering_perl/Chapters/08.symbol_tables.html

Những biến bạn đang tìm kiếm sẽ dưới namespace chính

Một tìm kiếm Google nhanh chóng đưa cho tôi:

{ 
    no strict 'refs'; 

    foreach my $entry (keys %main::) 
    { 
     print "$entry\n"; 
    } 
} 

Bạn cũng có thể làm

*sym = $main::{"/"} 

và tương tự cho giá trị khác

Nếu bạn muốn tìm những loại biểu tượng bạn có thể làm (từ thạo perl):

foreach my $entry (keys %main::) 
{ 
    print "-" x 30, "Name: $entry\n"; 

    print "\tscalar is defined\n" if defined ${$entry}; 
    print "\tarray is defined\n" if defined @{$entry}; 
    print "\thash is defined\n" if defined %{$entry}; 
    print "\tsub is defined\n" if defined &{$entry}; 
} 

Answer 2

Bạn có thể làm một cái gì đó như sau để kiểm tra bảng biểu tượng của gói chính:

{ 
    no scrict 'refs'; 

    for my $var (keys %{'main::'}) { 
     print "$var\n"; 
    } 
} 

Answer 3

Và thực hiện điều đó. Nhờ MGoDave và kbosak để cung cấp câu trả lời trước mặt tôi rằng tôi đã quá ngu ngốc để xem (tôi đã xem% main :: để bắt đầu, nhưng bỏ lỡ rằng họ không có sigils của họ). Đây là mã hoàn chỉnh:

#!/usr/bin/perl 

use strict; 
use warnings; 

use PadWalker qw/peek_our peek_my/; 
use Data::Dumper; 

our $foo = 1; 
our $bar = 2; 

{ 
    my $foo = 3; 
    print Dumper in_scope_variables(); 
} 

print Dumper in_scope_variables(); 

sub in_scope_variables { 
    my %in_scope = %{peek_our(1)}; 
    my $lexical = peek_my(1); 
    for my $name (keys %main::) { 
     my $glob = $main::{$name}; 
     if (defined ${$glob}) { 
      $in_scope{'$' . $name} = ${$glob}; 
     } 

     if (defined @{$glob}) { 
      $in_scope{'@' . $name} = [@{$glob}]; 
     } 

     if (defined %{$glob}) { 
      $in_scope{'%' . $name} = {%{$glob}}; 
     } 
    } 

    #lexicals hide package variables 
    while (my ($var, $ref) = each %$lexical) { 
     $in_scope{$var} = $ref; 
    } 
    return \%in_scope; 
} 

Answer 4

Cảm ơn, Chas, mã rất hữu ích. Lưu ý cho người dùng tương lai mã của bạn với perl> 5.12:

Tôi đã sử dụng nó trong pdl2 .perldlrc để tìm các biến từ vựng (như lệnh 'y' trong trình gỡ rối) và tôi đã cảnh báo :

load_rcfile: tải

/homes/pmg/.perldlrc định nghĩa (% hash) bị phản đối tại (eval 254) dòng 36.

(Maybe you should just omit the defined()?) 

Từ perldoc -f được xác định

Sử dụng định nghĩa trên tổng hợp (băm và mảng) không được dùng nữa. Nó được sử dụng để báo cáo liệu bộ nhớ cho rằng tổng hợp đã từng được phân bổ chưa. Hành vi này có thể biến mất trong tương lai phiên bản của Perl. Bạn nên thay vì sử dụng một thử nghiệm đơn giản cho kích thước:

>  if (@an_array) { print "has array elements\n" } 
>  if (%a_hash) { print "has hash members\n" } 

Những gì tôi không hiểu là tại sao nó chỉ phàn nàn với băm xác định và không còn với mảng?