Vordefinierte Variablen anzeigen (gelöst) - #132107 (Allgemeines zu Perl)

GwenDragon

2010-02-07 15:43

User since
2005-01-17
14540 Artikel
Admin1

Faulpelz!

Schau dir mal den Teil von Devel-Symdumps Source an:

Code (perl): (dl )

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;

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)

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel