array und exist (Allgemeines zu Perl)

Gast Gast

2008-07-30 18:23

Hallo Zusammen, ich habe folgenden Code:

Code (perl): (dl )

my @htmlsite_hosts = ('www.page1.cc','bla.page2.ch','www.page3.ch','www.page4.ch','www.page5.com','www.page6.com');

Nun möchte ich überprüfen, ob ein String in diesem array enthalten ist:

Code (perl): (dl )

1
2

if(exists($htmlsite_hosts{$link->gethost})){    
}

$link->gethost liefert ein string

Jedoch gibt er mir IMMER False zurück, egal ob der String im Array enthalten ist oder nicht, habe ich von han nachgeprüft.
Habe ich da mal wieder was mit PERL falsch verstanden?

moritz

2008-07-30 18:25

User since
2007-05-11
923 Artikel
HausmeisterIn

Ja, du hast perl falsch verstanden. exists erwartet eine Array + Index, und der Index muss für Arrays eine Zahl sein.

Für das, was du machen willst, empfiehlt sich ein Hash:

Code (perl): (dl )

1
2

my %hosts = map { $_ => 1 } @htmlsite_hosts;
if (exists $hosts{$link->gethost}){ ... }

Perl 6 - Perls Zukunft

renee

2008-07-30 18:26

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich empfehle Dir auf jeden Fall mal Wiki:

use strict zu benutzen. Du verwendest erst ein Array und später einen Hash... Mit use strict wärst Du darauf aufmerksam gemacht worden.

Zusätzlich funktioniert exists bei Arrays etwas anders, weil Du ja überprüfst, ob ein Element mit einem bestimmten Index (also eine Integer-Zahl) existiert (if( exists $array[3] )).

Du solltest das hier machen:

Code (perl): (dl )

my $host = $link->gethost;
if( grep{ $host eq $_ }@htmlsite_hosts ){
    print "enthalten\n";
}

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

2008-07-30 18:29

ok danke, das halt geholfen. obwohl ich nicht genau weiss weshalb ;-)
danke

renee

2008-07-30 18:33

User since
2003-08-04
14371 Artikel
ModeratorIn

Man sollte schon verstehen, warum was funktioniert oder nicht...

Welche Lösung hast Du genommen und was hast Du nicht so ganz verstanden?

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

2008-07-30 18:44

die erste

Code (perl): (dl )

1
2

my %hosts = map { $_ => 1 } @htmlsite_hosts;
if (exists $hosts{$link->gethost}){ ... }

nehme perl eigentlich nur weil mein hoster sonst keine scripts erlaubt. ;-)
habe nicht wirklich vor perl zu verstehen

GwenDragon

2008-07-30 19:14

User since
2005-01-17
14748 Artikel
Admin1

Gast+2008-07-30 16:44:41--

nehme perl eigentlich nur weil mein hoster sonst keine scripts erlaubt. ;-)
habe nicht wirklich vor perl zu verstehen

Warum willst du dann Skripte in Perl erstellen, wenn du nichts verstehen willst?
Wir können dir doch nicht die Grundlagen der Perl-Programmierung hier vorkauen und dir komplett die Skripte schreiben.
Lernen musst du schon selbst.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten