nur Stringkonstanten? (gelöst) - #187458 (Allgemeines zu Perl)

renee

2017-10-02 09:50

User since
2003-08-04
14371 Artikel
ModeratorIn

So ganz ist mir nicht klar, was genau Dein Problem ist...

Ich gehe jetzt mal von folgendem Programm aus:

Code (perl): (dl )

#!/usr/bin/perl

use v5.10;

use strict;
use warnings;

use constant {
   BEFORE => 'BEFORE',
};

my $self = {
   HOOK => {
      hello => {
         BEFORE => 'welt',
         123    => 'eine zahl',
      }
   }
};

my $method = 'hello';

say $self->{HOOK}->{$method}->{BEFORE};

Wenn man das ausführt, kommt welt raus. Soweit so gut. Wenn Du

Code: (dl )

1
2
3

use constant {
   BEFORE => 'BEFORE',
};

Code: (dl )

1
2
3

use constant {
   BEFORE => '123',
};

ändert, erwartest Du eine Änderung des Verhaltens?

Das wird nicht passieren, weil - wie rosti schon sagte - das BEFORE in ->{BEFORE} als String interpretiert wird. Willst Du da den Wert der Konstanten benutzen, musst Du ->{BEFORE()} nutzen ("use constant" erstellt für die Konstanten Subroutinen plus etwas "Magie") oder ->{"".BEFORE}.

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/