problem mit syntax (solved) (Allgemeines zu Perl)

[thread]16173[/thread]

problem mit syntax [solved]

Tags: perl5 Similar Threads

Readers: 26

Articles: hide open all | hide show old branches

+10 replies

monty

2011-04-10 18:52

User since
2011-04-10
5 articles
BenutzerIn
[default_avatar]

ich habe hier 2 bedingungen die nicht funktionieren, ich bin mir nicht sicher ob die syntax so stimmt bzw. kann mir jemand hierbei weiterhelefn?
1.

Code (perl): (dl )

my $url01 = admin.domain.tld;
my $url02 = admin.domain2.tld;

if($vhost == $url01){ 
{
 $default_page = default_page;
}
elsif($vhost == $url02)
{
 $default_page = default_page2;
}
else
{
 $default_page = default_page;
}

Code (perl): (dl )

my $domain0 = "$ENV{'HTTP_HOST'}";
if $domain0 == "admin.domain.tld" {
   $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page";
}
if $domain0 == "admin.domain2.tld" {
  $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page2";
}

Last edited: 2011-04-10 18:55:20 +0200 (CEST)

+2 replies
rosti

2011-04-10 19:00

User since
2011-03-19
3548 articles
BenutzerIn

Quote
my $domain0 = "$ENV{'HTTP_HOST'}";

was erwartest Du in HTTP_HOST? Verschiedene Domains? Gib mal bitte mehr Hintergrund,

Edit:
print $ENV{HTTP_HOST};

Zeigt das die Domains, welche Du erwartest?

Rolf
Last edited: 2011-04-10 19:28:51 +0200 (CEST)
http://blog.rolfrost.de/

The art of steam.
- monty
  
  2011-04-10 19:12
  
  User since
  2011-04-10
  5 articles
  BenutzerIn
  
  ja, es soll beim aufruf der jeweiligen domain ein folder für eine default_page ausgewählt werden ...
  z.b.
  domain = domain1.tld dann folder = /default_page
  ist die syntax denn richtig?
+7 replies

guest wer

2011-04-10 19:10

Code (perl): (dl )

my $domain0 = $ENV{'HTTP_HOST'};
if $domain0 eq "admin.domain.tld" {
   $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page";
}
if $domain0 eq "admin.domain2.tld" {
  $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page2";
}

Last edited: 2011-04-10 19:13:14 +0200 (CEST)

+6 replies

monty

2011-04-10 19:30

User since
2011-04-10
5 articles
BenutzerIn
[default_avatar]

hm - hier einmal der komplette part $err_cfg_dir soll hier durch die bedingung ersetzt werden:

Code (perl): (dl )

my ($index_tpl, $err_cfg_dir) = (undef, undef);
my $vhost = $main::cfg{'BASE_SERVER_VHOST'};
my $prefix = $main::cfg{'BASE_SERVER_VHOST_PREFIX'};
$err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page";

$rs, $index_tpl) = get_tpl($err_cfg_dir, 'index.html');
return $rs if ($rs != 0);

momentan funktioniert es so nicht:

Code (perl): (dl )

my ($index_tpl, $err_cfg_dir) = (undef, undef);
my $vhost = $main::cfg{'BASE_SERVER_VHOST'};
my $prefix = $main::cfg{'BASE_SERVER_VHOST_PREFIX'};

my $domain0 = $ENV{'HTTP_HOST'};
if $domain0 eq "admin.domain.tld" {
   $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page";
}
if $domain0 eq "admin.domain2.tld" {
  $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page2";
}

return $rs if ($rs != 0);

clms

2011-04-10 20:09
User since
2010-08-29
373 articles
BenutzerIn
2011-04-10T17:30:25 monty
momentan funktioniert es so nicht:

Code (perl): (dl )

1 2 3 4 5 6 7 8

... my $domain0 = $ENV{'HTTP_HOST'}; if $domain0 eq "admin.domain.tld" { $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page"; } if $domain0 eq "admin.domain2.tld" { $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/default_page2"; }
IIRC muss bei Perl5 die if-Bedingung in Klammern stehen, also
Code (perl): (dl )

1 2 3

if ($domain0 eq "admin.domain2.tld") { ... }
Ansonsten würde es helfen, wenn du uns genau sagst was nicht funbktioniert.

Liefert sie if-Bedingung nicht das erwartete Ergebins? (d.h. der Code geht in den if-Block, wenn Du es nicht erwartetest oder umgekehrt.)

Geht der Code wie erwartet in den if-Block aber $err_cfg_dir wird der falsche Wert zugewiesen?

Was machen die Variablen $vhost und $prefix in Deinem Bespiel? Wo kommt $rs her?
+4 replies
monty

2011-04-12 10:34
User since
2011-04-10
5 articles
BenutzerIn
die bedingungen funktionieren, anscheinend liegt doch ein syntax problem hier vor so das die anweisungen nicht ausgeführt werden ...
der dateipfad $err_cfg_dir wird nicht gefunden, lasse ich die bedingung weg funktioniert der pfad ...
Code (perl): (dl )

1 2 3 4 5 6 7

my $domain0 = $ENV{'HTTP_HOST'}; if ($domain0 eq 'admin.domain.tld') { $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/domain_default_page"; } if ($domain0 eq 'admin.domain2.tld') { $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/domain_default_page2"; }
- +3 replies
- Linuxer
  
  2011-04-12 11:00
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  Hast Du mal mit Kontrollausgabe überprüft, was denn in $domain0 drin steht?
  Kann mit dem Wert, der "in echt" darin steht, eine Deiner Bedingungen wahr werden?
  
  Ich würde außerdem noch dazu tendieren, die 2 ifs zu einem if/elsif zu wandeln.
  
  Wenn die erste Bedingung wahr ist, warum sollen dann noch die folgenden Bedingungen überprüft werden?
  Es kann doch nur eine korrekt sein; also die erste oder die zweite oder eine dritte ... usw.
  
  Also beispielsweise sowas:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  my $domain0 = $ENV{'HTTP_HOST'}; ## Kontrolle; kontrolliere error_log des Webservers warn "Domain0: >$domain0< "; if ( !defined $domain0 ) { # Fehlerbehandlung oder Defaults setzen, wenn keine Domain definiert } elsif ($domain0 eq 'admin.domain.tld') { $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/domain_default_page"; } elsif ($domain0 eq 'admin.domain2.tld') { $err_cfg_dir = "$main::cfg{'GUI_ROOT_DIR'}/domain_default_page2"; } else { # unbekannte Domain, tu was entsprechendes! }
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - monty
    
    2011-04-12 11:07
    
    User since
    2011-04-10
    5 articles
    BenutzerIn
    
    $domain0 liefert die richtigen werte, ich werde es noch mal so versuchen wie du vorgeschlagen hast
    - Linuxer
      
      2011-04-12 11:21
      
      User since
      2006-01-27
      3891 articles
      HausmeisterIn
      
      Was mir noch als mögliche Ursache einfällt. Du musst darauf achten, in welchem Geltungsbereich Du Deine Variablen definierst.
      
      Es wird aus Deinen Code-Fragmenten leider nicht klar, wie Dein Skript strukturiert ist, und wo welche Variablen deklariert werden.
      
      Hier mal ein (Negativ)-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 25 26 27 28
      
      sub determine_err_cfg_dir { # achtung! eigenständige Variable my $err_cfg_dir; if ( "bedingung" ) { $err_cfg_dir = '1. bedingung'; } elsif ( "bedinung2" ) { $err_cfg_dir = '2. bedingung'; } # jetzt sollte $err_cfg_dir gesetzt sein, oder vielleicht nicht? } ## Main block ... { my $err_cfg_dir = ''; # to be defined # in determine_err_cfg_dir wird eine eigene, andere $err_cfg_dir gesetzt, # welche nichts mit der obigen "to be defined" zu tun hat determine_err_cfg_dir(); # kontrolle print $err_cfg_dir, "\n"; }
      
      Um zu kontrollieren, ob eine Deiner Bedingungen zutrifft, kannst Du in den jeweiligen Block noch ein warn "Bedingung A ...\n"; einbauen. Damit solltest Du im error_log sehen können, ob und welche Bedingung zuschlägt.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2011-04-10 18:52.