Opened by RPerl at 2007-05-23 22:04
User since
2005-12-17
1615 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
2005-12-17
1615 Artikel
HausmeisterIn
Ich benutze auch sehr gerne 
Data::TreeDumper um mir Strukturen
anzusehen, da Zeilen sauber umgebrochen werden und auch so die
Ansicht etwas angenehmer für mein Auge ist...
$VAR1 = {
'baz' => {
'foobar' => [
1,
2,
3,
{
'foo_bar_baz' => 'Dies ist ein sehr langer Satz, der nicht in
eine Zeile des Xterms passt ...'
}
]
},
'foo' => 'bar'
};
|- baz [H1]
| `- foobar [A2]
| |- 0 = 1 [S3]
| |- 1 = 2 [S4]
| |- 2 = 3 [S5]
| `- 3 [H6]
| `- foo_bar_baz = Dies ist ein sehr langer Satz, der nicht in
| eine Zeile des Xterms passt ... [S7]
`- foo = bar [S8]
Data::TreeDumper um mir Strukturenanzusehen, da Zeilen sauber umgebrochen werden und auch so die
Ansicht etwas angenehmer für mein Auge ist...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
use Data::Dumper;
use Data::TreeDumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
my %struct = (foo=>'bar',baz=>{foobar=>[1,2,3=>{foo_bar_baz=>'Dies ist ein sehr langer Satz, der nicht in eine Zeile des Xterms passt ...'}]});
print Dumper(\%struct);
print DumpTree(\%struct);
$VAR1 = {
'baz' => {
'foobar' => [
1,
2,
3,
{
'foo_bar_baz' => 'Dies ist ein sehr langer Satz, der nicht in
eine Zeile des Xterms passt ...'
}
]
},
'foo' => 'bar'
};
|- baz [H1]
| `- foobar [A2]
| |- 0 = 1 [S3]
| |- 1 = 2 [S4]
| |- 2 = 3 [S5]
| `- 3 [H6]
| `- foo_bar_baz = Dies ist ein sehr langer Satz, der nicht in
| eine Zeile des Xterms passt ... [S7]
`- foo = bar [S8]
What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.