2010-02-07T13:03:50 pq

ignorierst du meine antwort absichtlich?

2010-02-07T13:03:50 pq

wie 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 pq

ich 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.