Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 20
+27 replies
+22 replies![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
print '<pre>', Dumper( \@structure ), '</pre>';
+20 replies
+19 replies
1
2
3
4
jars@jars-desktop:~$ perl -MData::Dumper -e 'my %var = (1,2); my $d = Data::Dumper->new( [\%var],['test'] ); print $d->Dump'
$test = {
'1' => 2
};
+17 replies
+16 replies
my $d = Data::Dumper->new( [ $hash{to_dump} ] );
+15 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
$VAR1 = bless( {
'apad' => '',
'bless' => 'bless',
'deepcopy' => 0,
'deparse' => 0,
'freezer' => '',
'indent' => 2,
'level' => 0,
'maxdepth' => 0,
'names' => [],
'pad' => '',
'pair' => ' => ',
'purity' => 0,
'quotekeys' => 1,
'seen' => {},
'sep' => '
',
'sortkeys' => sub { "DUMMY" },
'terse' => 0,
'toaster' => '',
'todump' => [
undef
],
'useperl' => 0,
'useqq' => 0,
'varname' => 'VAR',
'xpad' => ' '
}, 'Data::Dumper' );
1
2
3
4
# OO usage
$d = Data::Dumper->new([$foo, $bar], [qw(foo *ary)]);
...
print $d->Dump;
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+13 replies
+12 replies
+7 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+6 replies
2010-02-07T13:03:50 pqignorierst du meine antwort absichtlich?
2010-02-07T13:03:50 pqwie genau sieht dein code aus? der, den du gezeigt hast, macht keine ausgabe, sondern nur ein new().
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl use strict; use warnings; my $inhalt = ''; use Data::Dumper; local $Data::Dumper::Useqq = 1; local $Data::Dumper::Sortkeys = \&dumper_filter; sub dumper_filter { my ($hash) = @_; return [(sort {lc $a cmp lc $b} keys %$hash)]; } my $d = Data::Dumper -> new ([$ENV{to_dump}]); $inhalt .= '<pre>' . Dumper ($d) . '</pre>'; print "$inhalt\n";
2010-02-07T13:03:50 pqich erwähnte in meinem posting eine vermutung, wie dein code aussieht, nämlich, dass du auf das erzeugte objekt ein Dumper machst. du musst jedoch, wie in der doku erwähnt, die methode Dump auf das $d aufrufen.
2010-02-07T13:14:36 biancaCode: (dl )1
2my $d = Data::Dumper -> new ([$ENV{to_dump}]);
$inhalt .= '<pre>' . Dumper ($d) . '</pre>';
2010-02-07T13:03:50 pqich erwähnte in meinem posting eine vermutung, wie dein code aussieht, nämlich, dass du auf das erzeugte objekt ein Dumper machst. du musst jedoch, wie in der doku erwähnt, die methode Dump auf das $d aufrufen.
Keine Ahnung, ob ich das mache, was Du da schreibst.
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+4 replies
2010-02-07T13:14:36 biancaCode (perl): (dl )1 2my $d = Data::Dumper -> new ([$ENV{to_dump}]); $inhalt .= '<pre>' . Dumper ($d) . '</pre>';
2010-02-07T13:03:50 pqich erwähnte in meinem posting eine vermutung, wie dein code aussieht, nämlich, dass du auf das erzeugte objekt ein Dumper machst. du musst jedoch, wie in der doku erwähnt, die methode Dump auf das $d aufrufen.
Keine Ahnung, ob ich das mache, was Du da schreibst.
+3 replies
2010-02-07T13:19:20 reneeJa tust Du. Du rufst "Dumper($d)" auf statt $d->Dump.
+2 replies
2010-02-07T13:24:18 biancaAu weia, da kannste mal sehen, wie doof ich bin.
Na ja, habt Ihr wenigstens eine Sonntagsbelustigung :)
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+3 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
jars@jars-desktop:~$ perl -MData::Dumper -e 'my $d = Data::Dumper->new( [\%ENV] ); print $d->Dump'
$VAR1 = {
'PWD' => '/home/jars',
'LANG' => 'en_US.UTF-8',
'USER' => 'jars',
'LOGNAME' => 'jars',
'GNOME_DESKTOP_SESSION_ID' => 'Default',
'LESSCLOSE' => '/usr/bin/lesspipe %s %s',
'SHLVL' => '1',
'PATH' => '/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games',
'WINDOWID' => '48257898',
'COLORTERM' => 'gnome-terminal',
'TERM' => 'xterm',
'HOME' => '/home/jars',
'WINDOWPATH' => '7',
'DISPLAY' => ':0.0',
'USERNAME' => 'jars',
'_' => '/usr/bin/perl',
'DESKTOP_SESSION' => 'default',
'GDM_LANG' => 'en_US.UTF-8',
'SHELL' => '/bin/bash',
'SESSION_MANAGER' => 'local/jars-desktop:/tmp/.ICE-unix/5476',
};
jars@jars-desktop:~$
+2 replies
2010-02-07T13:05:00 reneeAlso ich weiß ja nicht, was Du machst
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
2010-02-07T13:10:51 pqkommt aber nix. dann will sie wohl keine hilfe.
2010-02-07T13:00:27 biancaDa könnt ich fast heulen, dass ich das offensichtliche beschreiben muss :(((
AllgemeinesWieFrageIchbeiPerlCommunity
$d->{sep} = '<br />';
1
2
3
4
5
6
jars@jars-desktop:~$ perl -MData::Dumper -e 'my %var = (1,2); my $d = Data::Dumper->new( [\%var] ); print $d->Dump'
$VAR1 = {
'1' => 2
};
jars@jars-desktop:~$ perl -MData::Dumper -e 'my %var = (1,2); my $d = Data::Dumper->new( [\%var] ); $d->{sep} = "<br />"; print $d->Dump'
$VAR1 = {<br /> '1' => 2<br /> };<br />jars@jars-desktop:~$
<pre>[%= hash escape=dump|html %]</pre>
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+3 replies
1 2 3 4 5 6 7 8
use Data::Dumper; local $Data::Dumper::Sortkeys = \&dumper_filter; sub dumper_filter { my ($hash) = @_; return [(sort {lc $a cmp lc $b} keys %$hash)]; } my $d = Data::Dumper -> new ([\%ENV]); print '<pre>' . $d -> Dump . '</pre>';
+2 replies
1 2 3 4 5
my $var = $d->Dump; $var =~ s/</</g; $var =~ s/>/>/g; print '<pre>' . $var . '</pre>';
![[Powered by Battie]](/battie/img/powered.png)
