Opened by Silicoid at 2007-06-20 01:01
User since
2006-04-22
3 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-22
3 Artikel
BenutzerIn
Hi
Erstmal ein kleines Beispielscript:
Was als Ausgabe das zur Folge hat:
Jetzt hätte ich die Ausgabe aber lieber ähnlich, wie ich die Referenz gefüllt habe, also:
Wobei der Output nicht unbedingt von perl ausführbar sein muß. Die ; sind mit z.B. egal. Mein Problem ist, daß ich hier eine extrem große und sehr tief verschachtelte Referenz habe und mir der Output helfen würde die Struktur etwas besser zu verstehen, bzw. Fehler zu finden.
Gibts da was?
Erstmal ein kleines Beispielscript:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $a;
$a->[0]->{'a'}="000aaa";
$a->[0]->{'b'}="000bbb";
$a->[1]->{'a'}="111aaa";
$a->[1]->{'b'}="111bbb";
$a->[2]->{'q'}->[0]="qqqqq";
print Dumper($a);
Was als Ausgabe das zur Folge hat:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
$VAR1 = [
{
'a' => '000aaa',
'b' => '000bbb'
},
{
'a' => '111aaa',
'b' => '111bbb'
},
{
'q' => [
'qqqqq'
]
}
];
Jetzt hätte ich die Ausgabe aber lieber ähnlich, wie ich die Referenz gefüllt habe, also:
Code: (dl
)
1
2
3
4
5
$a->[0]->{'a'}="000aaa";
$a->[0]->{'b'}="000bbb";
$a->[1]->{'a'}="111aaa";
$a->[1]->{'b'}="111bbb";
$a->[2]->{'q'}->[0]="qqqqq";Wobei der Output nicht unbedingt von perl ausführbar sein muß. Die ; sind mit z.B. egal. Mein Problem ist, daß ich hier eine extrem große und sehr tief verschachtelte Referenz habe und mir der Output helfen würde die Struktur etwas besser zu verstehen, bzw. Fehler zu finden.
Gibts da was?