Dữ liệu băm Perl :: Dumper

Question

Trong Perl tôi cần phân tích một băm lớn, vì vậy tôi in nó vào một tệp sử dụng mô-đun Data::Dumper. Bởi vì nó là một tập tin rất lớn, nó rất khó đọc. Có thể bằng cách nào đó để in Dumper đầu ra độc đáo, vì vậy khi tôi sẽ tìm thấy một chuỗi mà tôi đang tìm kiếm, tôi sẽ có thể thấy cấu trúc khóa ngay lập tức mà chuỗi tôi đang tìm được lưu trữ?

Hiện nay tôi đang sử dụng chỉ là một mã đơn giản:

  use Data::Dumper; 
      ... 
      print Dumper $var; 

cú pháp tốt nhất hoặc thay thế để có được kết quả tốt đẹp là gì?

Answer 1

Tôi gần như luôn đặt

$Data::Dumper::Indent = 1; 
$Data::Dumper::Sortkeys = 1; 

với Data::Dumper. Câu lệnh đầu tiên làm cho đầu ra nhỏ gọn hơn và dễ đọc hơn nhiều khi cấu trúc dữ liệu của bạn có nhiều mức sâu. Những tuyên bố thứ hai làm cho nó dễ dàng hơn để quét các đầu ra và nhanh chóng tìm thấy các phím bạn đang quan tâm nhất.

Nếu cấu trúc dữ liệu chứa dữ liệu nhị phân hoặc tab nhúng/dòng mới, cũng xem xét

$Data::Dumper::Useqq = 1; 

đó sẽ ra một đại diện có thể đọc được phù hợp cho dữ liệu đó.

Phần lớn trong số perldoc.

Answer 2

Câu trả lời cho câu hỏi.

my $WWW_Scripter_Plugin_JavaScript_JE = ${ $VAR1->[1]{156192192} }; 
my $JE_Object_String = ${ $WWW_Scripter_Plugin_JavaScript_JE->{pf}{String} }; 
my $JE_Object_Function = ${ $JE_Object_String->{props}{search} }; 
my $REF = ${ $JE_Object_Function->{global} }; 
my $HTML_DOM_Element_Img = $REF->{classes}{'HTML::DOM::Element::Img'}; 

Nó cũng vi phạm đóng gói. Perl cho phép bạn làm điều đó, nhưng bạn nên hỏi làm cách nào để lấy dữ liệu với WWW :: Scripter API đã xuất bản.

Answer 3

Một giải pháp có thể là sử dụng Data::Dumper::Perltidy để chạy đầu ra của Dữ liệu :: Dump thông qua Perltidy.

#!/usr/bin/perl -w 

use strict; 
use Data::Dumper::Perltidy; 

my $data = [{ title => 'This is a test header' },{ data_range => 
      [ 0, 0, 3, 9] },{ format  => 'bold' }]; 

print Dumper $data; 

__END__ 

Prints:

$VAR1 = [ 
    { 'title'  => 'This is a test header' }, 
    { 'data_range' => [ 0, 0, 3, 9 ] }, 
    { 'format'  => 'bold' } 
]; 

Một cách khác là sử dụng Data::Dump.

Answer 4

$Data::Dumper::Sortkeys = 1; 

Nếu bạn muốn nhận kết quả đáng tin cậy hơn thì bạn phải làm theo dumper tiếp theo. Đặt từ thích hợp để vận hành chức năng đó.