vergleich (Allgemeines zu Perl)

Gast Gast

2003-12-09 23:37

Hallo,

wie kann ich checken ob eine Variable ein bestimmtes Wort enthält?

also enthält variable gleich "haus"

esskar

2003-12-09 23:42

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

use strict;

my $var = "haus";

if($var eq "haus") { print "$var eq haus\n"; }
else { print "$var nicht eq haus\n"; }

talis

2003-12-09 23:51

User since
2003-09-19
4 Artikel
BenutzerIn
[default_avatar]

hab eben auch folgendes Problem $ary[8] enthält baby aber es geht nicht was mache ich falsch????

Code: (dl )

$t=$ary[8];

# Kategorien austauschen
if ($t =~ /baby/)
{
$kat="9";
}

esskar

2003-12-09 23:54

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

enthält es baby, oder Baby ?

Code: (dl )

$t = $ary[8];
if($t =~ m/baby/i)
{
   $kat="9";
}

ansonsten gibt es auch noch index

perldoc -f index

havi

2003-12-10 08:57

User since
2003-08-04
2036 Artikel
BenutzerIn

Code: (dl )

$t = $ary[8];
if($t =~ m/baby/i) # das findet aber z.B. auch Babybett
{
  $kat="9";
}

$t = $ary[8];
if($t =~ m/^baby$/i) # das findet nur Baby
{
  $kat="9";
}

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

renee

2003-12-10 10:02

User since
2003-08-04
14371 Artikel
ModeratorIn

@havi: Bei deiner zweiten Möglichkeit darf Baby nicht Teil eines Satzes sein...
Wenn ein Wort irgendwo in einer Variablen sein soll, dann muss es so heißen:

Code: (dl )

1
2
3

if($t =~ m/\bwort\b/i){
  print "Wort ist enthalten...";
}

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/

havi

2003-12-10 10:05

User since
2003-08-04
2036 Artikel
BenutzerIn

Klar, soweit hab ich nicht gedacht!
Naja, ist ja auch noch ziemlich frueh :-)

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Strat

2003-12-10 12:34

User since
2003-08-04
5246 Artikel
ModeratorIn

index muesste eigentlich schneller sein:

Code: (dl )

# -1, falls nicht gefunden, sonst wird die position zurueckgegeben
if (index($t, 'wort') > -1) { 
  print "Wort ist enthalten";
}

wenn du es von gross-/kleinschreibung unabhaengig brauchst, wandle einfach alles in kleinschreibung um:

Code: (dl )

# -1, falls nicht gefunden, sonst wird die position zurueckgegeben
if (index(lc($t), lc('wort')) > -1) { 
  print "Wort ist enthalten";
}

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Crian

2003-12-10 15:08

User since
2003-08-04
5870 Artikel
ModeratorIn

Aber den Test auf die Wortgrenzen verliert man mit index.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

esskar

2003-12-10 15:15

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=Crian,10.12.2003, 14:08]Aber den Test auf die Wortgrenzen verliert man mit index.[/quote]
wieso...
du könntest schauen, ob vor der position bzw. hinter dem wort ein bestimmtes zeichen steht...