Variablenänderung (Seite 2) (Perl/CGI)

Gast Gast

2009-01-27 09:58

$country wird ausgegeben.

Code: (dl )

#!/usr/bin/perl -w

use DBI;
use CGI qw/:all/;
use warnings;
use strict;

my $receiver;
my $country = param('country');

if ($country eq "usa") { $receiver ="global\@..."; }
elsif ($country eq "uk") { $receiver ="europe\@..."; }

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>Test-Ausgabe</title></head><body>\n";
print "<h1>$receiver $country</h1>\n";
print "</body></html>\n";

renee

2009-01-27 10:12

User since
2003-08-04
14371 Artikel
ModeratorIn

Und da steht auch wirklich "usa" bzw. "uk" drin? Zeig mal die Ausgabe...

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 Gast

2009-01-27 10:15

Code: (dl )

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html><head><title>Test-Ausgabe</title></head><body>
<h1> 	uk	</h1>
</body></html>

renee

2009-01-27 10:45

User since
2003-08-04
14371 Artikel
ModeratorIn

Offensichtlich sind da noch Leerzeichen um das "uk" herum. Kein Wunder, dass das if-elsif nicht "funktioniert".

Du könntest es so machen:

Code: (dl )

1
2

if ($country  =~ /^\s*usa/) { $receiver ="global\@..."; }
elsif ($country  =~ /^\s*uk/ ) { $receiver  = "europe\@..."; }

oder - was besser wäre - im Formular dafür sorgen, dass keine Leerzeichen drumherum sind.

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 Gast

2009-01-27 11:00

Tatsächlich hat es an den Leerzeichen gelegen. Das blöde war, die sind durch einen Excel-Export entstanden. Aufgrund der Länge der Liste hatte ich die Leerzeichen nicht gelöscht, was ich jetzt nachgeholt habe *puh*

Dann besten Dank für die Hilfe. Habt mir sehr weiter geholfen.