Array of Hashes aus externer Datei includen? (Perl/CGI)

[thread]16766[/thread]

Array of Hashes aus externer Datei includen?

Tags: perl5 CGI Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+6 replies
undersok

2011-09-30 11:19
User since
2011-09-30
2 articles
BenutzerIn
Hallo,

sozusagen als Konfigurationsvorlage will ich dynamisch externe Dateien includen. Darin werden jeweils Arrays aus Hashes belegt. Diese sollen dann im Hauptmodul verwendet werden. Sowas wie c++-präprozessor kann Perl afaik nicht.

Kurzkonzept:

[externedatei4.pm]
Code: (dl )

1 2 3 4 5 6 7 8

our @workflow = ( {State => "Blah", Followup => "Blubb", }, {State => "Blah2", Followup => "Blubb2", }, );
[hauptdatei.pm]
Code: (dl )

1 2 3

require 'externedatei'.$n; machwasmit $workflow[$i]{State} machwasmit $workflow[$i]{Followup}
Ich bin kein Perl-Programmierer. Ich habe schon so viel probiert, ich bekomme eigentlich immer Probleme mit dem Scope. Das "our" statt "my" in der externen Datei nützt mir da auch nicht. Kann mir jemand verraten, was der beste Weg ist? Danke!

Micha
Last edited: 2011-09-30 11:22:21 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2011-09-30 11:28
  User since
  2005-01-17
  14876 articles
  Admin1
  Quote
  Sowas wie c++-präprozessor kann Perl afaik nicht.
  Und was soll Perl können müssen?
  
  Zu deinem Problem: ich weiß nicht, wozu Module brauchst und wie du die gestaltet hast.
  
  Zum Testen, dass es mit einem ähnlichen Beispiel geht.
  
  Datei 1.pm
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  our @workflow = ( {State => "Blah", Followup => "Blubb", }, {State => "Blah2", Followup => "Blubb2", }, );
  
  Datei main.pl
  
  Code (perl): (dl )
  
  1 2 3 4
  
  $i=1; require "$i.pm"; print $workflow[$i]{State}, "\n"; print $workflow[$i]{Followup}, "\n";
  
  Der Aufruf von main.pl gibt aus:
  ~ ~ x.pl Blah2 Blubb2 ~
  
  Last edited: 2011-09-30 11:30:31 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - undersok
    
    2011-09-30 11:41
    
    User since
    2011-09-30
    2 articles
    BenutzerIn
    
    Bei mir funktioniert es, wenn ich aus "use strict" verzichte. Wie kann ich es sauberer schreiben, damit "use strict", was ja nun mal empfohlen wird, erhalten bleibt?
    - +2 replies
    - torsten
      
      2011-09-30 13:09
      
      User since
      2010-08-16
      45 articles
      BenutzerIn
      
      Wenn Du es wirklich so machen willst, dann musst Du einfach in Deinem Hauptprogramm die Variable @workflow nochmal deklarieren (our @workflow) oder den vollen Namen, also wahrscheinlich @main::workflow benutzen.
      
      Die Designentscheidung, den Variablennamen in der Konfigurationsdatei zu verdrahten, finde ich aber problematisch. Was hältst Du davon:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      $ echo '{a=>1},{a=>2}' | perl -Mstrict -MData::Dumper -e 'my @l=do "/dev/fd/0"; print Dumper \@l' $VAR1 = [ { 'a' => 1 }, { 'a' => 2 } ];
      
      Der wichtige Punkt hier ist my @l=do $filename;
      
      Sowas wie den C Preprozessor gibt es in Perl übrigens auch. Hier heißt das Source Filter. Damit kannst Du den Source Text Deines Programms/Moduls zwischen dem Einlesen und der Interpretation durch Perl noch flink mit Perl bearbeiten.
      
      Beispiel:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
      
      package My::P1; BEGIN { { package My::P1::_dbg; use Filter::Simple sub { s/^(\s*)#D /$1/mg if $ENV{"My__P1___dbg"}; }; } My::P1::_dbg->import; } use strict; sub new { my $I=bless \(my $x)=>__PACKAGE__; #D warn "$I is born\n"; $I; } #D sub DESTROY { #D warn "$_[0] went out of scope\n"; #D } 1;
      
      Setzt Du nun beim Aufruf des Programms die Umgebungsvariable My__P1___dbg=1, verschwinden auf magische Weise die #D Zeichen am Anfang einiger Zeilen und das Programm wird geschwätziger. Zu viel mehr als das sind Source Filter aber nicht zu gebrauchen, da die Perl-Syntax zu komplex und kontextabhängig ist.
      - pq
        
        2011-09-30 13:14
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        sourcefilter!
        und der nächste maintainer des programms wird sich wahnsinnig freuen...
        
        ich rate davon ab.
        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
- GwenDragon
  
  2011-09-30 12:44
  User since
  2005-01-17
  14876 articles
  Admin1
  Zweite Version mit user strict + warnings. ;)
  
  main.pl
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  use strict; use warnings; my $i=1; our @workflow; require "$i.pm"; print $workflow[$i]{State}, "\n"; print $workflow[$i]{Followup}, "\n";
  
  oder
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  use strict; use warnings; my $i=1; use vars qw/@workflow/; require "$i.pm"; print $workflow[$i]{State}, "\n"; print $workflow[$i]{Followup}, "\n";
  
  1.pm
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  use strict; use warnings; our @workflow = ( {State => "Blah", Followup => "Blubb", }, {State => "Blah2", Followup => "Blubb2", }, );
  
  Last edited: 2011-09-30 12:47:21 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-09-30 11:19.