Schnittstellen, und globale Variablen - #104883 (Allgemeines zu Perl)

Strat

2008-01-18 11:38

User since
2003-08-04
5246 Artikel
ModeratorIn

Genau. Globale Variablen verwende ich höchstens für Konfiguration, die dann Readonly ist, und die vom Namen her klar erkennbar sind, z.B.

Code (perl): (dl )

package MyApp::Config;
use warnings;
use strict;
use Readonly;

use vars qw( %Fonts );

Readonly::Hash %Fonts => (
    default => 'Arial 12 normal',
    bold     => 'Arial 12 bold',
);

und dann als Verwendung:

Code (perl): (dl )

sub CreateLabel {
    my( $parent, $text, ... ) = @_;

    $parent->Label( -font => $MyApp::Config::Fonts{default},
                            -text  => $text,
                            ...
                           );

Aber bei klassischer oder OOP-Programmierung ist es meist "schoener", wenn man auch die Config als Objekt verpackt und dann mit in die Subroutinen reingibt. Nur - wie im Beispiel - bei der ereignisgesteuerten Programmierung (z.B: GUIs) ist das manchmal schwierig.

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/