variablen (Allgemeines zu Perl)

[thread]13262[/thread]

variablen

Leser: 25

Articles: hide open all | hide show old branches

+8 replies
Gast Tapir

2009-03-21 19:29

Hallo,

ich habe eine Perl-Skript und drei Module dazu.
Ein paar Modul-Variable möchte ich zentral im Skript ( z.B. alle Pfadangaben ) edieren können. Wie kann ich das am besten machen?
- +3 replies
- pq
  
  2009-03-21 19:33
  User since
  2003-08-04
  12208 Artikel
  Admin1
  da musst du schon ein bisschen genauer werden. wenn es einfach globale packagevariablen sind, kann man in der regel mit
  
  Code (perl): (dl )
  
  $My::Module::variable = ...;
  
  darauf zugreifen.
  schöner finde ich aber, wenn pfadangaben überhaupt nicht in modulen gespeichert sind.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - Gast Tapir
    
    2009-03-21 22:15
    
    2009-03-21T18:33:52 pq
    schöner finde ich aber, wenn pfadangaben überhaupt nicht in modulen gespeichert sind.
    
    In dem Sinn, dass man die Variablen den exportierten Modulfunktionen als Argumente übergibt?
    - #Kein Kommentar
      
      2009-03-21 22:26
      
      User since
      2007-06-09
      575 Artikel
      HausmeisterIn
      
      übersichtlicher wäre wohl ein objektmodell oder eine get- und setmethode mit der man den pfad auslesen und einstellen könnte.
      Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
- +4 replies
- bloonix
  
  2009-03-22 14:51
  
  User since
  2005-12-17
  1615 Artikel
  HausmeisterIn
  
  Hallo Tapir,
  
  wenn ein Skript einmal geschrieben ist, dann ist es nicht besonders
  schön, wenn derjenige, der das Skript verwendet, es jedesmal editieren
  muss, zumal man dabei was falsch machen kann und sich das Skript nicht
  mehr ausführen lässt.
  
  Es gibt schönere Wege. Zum Beispiel:
  
  Getopt::Long zur Übergabe von Argumenten
  Config::General zum Laden von Konfigurationen
  Last edited: 2009-03-22 14:53:21 +0100 (CET)
  What is a good module? That's hard to say.
  What is good code? That's also hard to say.
  One man's Thing of Beauty is another's man's Evil Hack.
  - +3 replies
  - Gast tapir
    
    2009-03-23 16:52
    Gibt es hier eine Möglichkeit, dass das "\n" nicht gedruckt wird, sondern als "neue Zeile" interpretiert wird?
    
    configfile:
    
    Code: (dl )
    
    ungueltig = " - Ungültige Eingabe -\n"
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    #!/usr/bin/perl use warnings; use strict; use Config::General; my $configfile = 'configfile'; my $conf = new Config::General( -ConfigFile => $configfile, -InterPolateVars => 1, -InterPolateEnv => 1, ); my %config = $conf->getall; print $config{ungueltig};
    - +2 replies
    - renee
      
      2009-03-23 17:03
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Guest tapir
      
      Code: (dl )
      
      print $config{ungueltig};
      
      Code: (dl )
      
      1 2 3
      
      my $zeile = $config{ungueltig}; $zeile =~ s/\\n/\n/g; print $zeile;
      
      Last edited: 2009-03-23 18:30:17 +0100 (CET)
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - Gast tapir
        
        2009-03-28 20:42
        
        Es sind zuviele solcher Problemfälle, darum habe ich alle Variablen in ein Modul gepackt.

View all threads created 2009-03-21 19:29.