Opened by bianca at 2010-02-07 13:20
User since
2005-01-17
14761 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2005-01-17
14761 Artikel
Admin1
Faulpelz!
Schau dir mal den Teil von Devel-Symdumps Source an:
Irgendwie ist die Zeile
für die Ausgabe des Namens zuständig, oder?
Wie wäre es, wenn du ein eigenes Modul schreibst, das von Devel-Symdump erbt und eine eigenes as_string hat, welches auch den Inhalt ausgeben kann.
Wer nichts selbst liest und schreibt, lernt auch nicht. ;)
//EDIT: Sind junge Leute immer so unflexibel? Oder hast du Perl erst vor kurzem gelernt? So ganz verstehe ich nicht, warum nicht ab und an mal in den Quellcode gesehen wird, ums was zu lernen oder einfach auszuleihen. Dafür ist OpenSuurce doch da!
Last edited: 2010-02-07 15:46:30 +0100 (CET)
Schau dir mal den Teil von Devel-Symdumps Source an:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12
sub as_string { my $self = shift; my($type,@m); for $type (sort keys %{$self->{'AUTOLOAD'}}) { push @m, $type; push @m, "\t" . join "\n\t", map { s/([\000-\037\177])/ '^' . pack('c', ord($1) ^ 64) /eg; $_; } sort $self->_partdump(uc $type); } return join "\n", @m; }
Irgendwie ist die Zeile
Code: (dl
)
s/([\000-\037\177])/ '^' . pack('c', ord($1) ^ 64) /eg;Wie wäre es, wenn du ein eigenes Modul schreibst, das von Devel-Symdump erbt und eine eigenes as_string hat, welches auch den Inhalt ausgeben kann.
Wer nichts selbst liest und schreibt, lernt auch nicht. ;)
//EDIT: Sind junge Leute immer so unflexibel? Oder hast du Perl erst vor kurzem gelernt? So ganz verstehe ich nicht, warum nicht ab und an mal in den Quellcode gesehen wird, ums was zu lernen oder einfach auszuleihen. Dafür ist OpenSuurce doch da!
Last edited: 2010-02-07 15:46:30 +0100 (CET)