perl Problem - Seite 2

K@sperl · 16.07.2003, 13:42

Ich bräuchte da noch eine kleine Hilfestellung:

Ich möchte testen, ob ein gewisses Zeichen in einer Variable enthalten ist, wie geht das?

Also in der Art
if $name contains '@' { ... }

käptn · 16.07.2003, 14:08

Zitat:

Original geschrieben von Flanders

Code:

        if( $host =~ /\@/ ){

HTH

~

K@sperl · 20.07.2003, 13:52

Jetzt bräuchte ich noch mal was ...

In Pascal gibt es die Möglichkeit abzufragen, ob ein bestimmtes Zeichen an einer bestimmten Stelle eines Strings steht, und zwar
if str[1] <> 'a' then ...

Ist sowas auch in perl möglich?
Ich möchte prüfen, ob an der ersten Stelle einer Variable ein '/' steht, falls nicht, soll dieser am Anfang eingefügt werden.

käptn · 20.07.2003, 20:20

Ohne Gewähr:

Code:

if (! ($str =~ /^\//) )

Code:

 if (substr($str, 0,1) neq '/')

HTH

~

K@sperl · 20.07.2003, 20:24

Zitat:

Original geschrieben von käptn

Code:

if (! ($str =~ /^\//) )

Ok, danke, und wie füge ich nun einen '/' ganz am Anfang von $str ein?

käptn · 20.07.2003, 20:35

Hab leider k.A. wie der CONCAT-Operator in Perl ausschaut...

Code:

 $str = '/' . $str;

oder

Code:

 $str = '/' + $str;

~

K@sperl · 20.07.2003, 20:39

Zitat:

Original geschrieben von käptn

Code:

$str = '/' . $str;

Das war's, danke.

K@sperl · 20.07.2003, 20:48

Die if Abfrage passt leider noch nicht,
if (! ($str =~ /^\//) )

prüft anscheinend den ganzen String und nicht nur die erste Stelle

und

if (substr($str, 0,1) neq '/')

gibt einige Syntaxfehler aus

edit:
if (substr($str, 0,1) ne '/') ist korrekt, prüft aber auch nur den gesamten String und nicht genau die erste Stelle.

edit2:
Jetzt geht's, hab bei substr den "1" vergessen

15.07.2003, 19:39	#11
_m3 Inventar Registriert seit: 24.09.2001 Beiträge: 7.335	____________________________________ Weiterhin zu finden auf http://martin.leyrer.priv.at , http://twitter.com/leyrer , http://www.debattierclub.net/ , http://www.tratschen.at/ und via Instant Messaging auf Jabber: m3 <ät> cargal.org .

20.07.2003, 20:20	#15
käptn Inventar Registriert seit: 04.11.2001 Alter: 45 Beiträge: 2.150	Ohne Gewähr: Code: if (! ($str =~ /^\//) ) Code: if (substr($str, 0,1) neq '/') HTH ~ ____________________________________ LOL - Mein erstes Post im Programmier Forum MACINTOSH - Most Applications Crash, If Not The Operating System Hangs

20.07.2003, 20:35	#17
käptn Inventar Registriert seit: 04.11.2001 Alter: 45 Beiträge: 2.150	Hab leider k.A. wie der CONCAT-Operator in Perl ausschaut... Code: $str = '/' . $str; oder Code: $str = '/' + $str; ~ ____________________________________ LOL - Mein erstes Post im Programmier Forum MACINTOSH - Most Applications Crash, If Not The Operating System Hangs

16.07.2003, 13:42	#12
K@sperl bitte Mailadresse prüfen! Registriert seit: 03.04.2001 Beiträge: 2.387	Ich bräuchte da noch eine kleine Hilfestellung: Ich möchte testen, ob ein gewisses Zeichen in einer Variable enthalten ist, wie geht das? Also in der Art if $name contains '@' { ... }

20.07.2003, 13:52	#14
K@sperl bitte Mailadresse prüfen! Registriert seit: 03.04.2001 Beiträge: 2.387	Jetzt bräuchte ich noch mal was ... In Pascal gibt es die Möglichkeit abzufragen, ob ein bestimmtes Zeichen an einer bestimmten Stelle eines Strings steht, und zwar if str[1] <> 'a' then ... Ist sowas auch in perl möglich? Ich möchte prüfen, ob an der ersten Stelle einer Variable ein '/' steht, falls nicht, soll dieser am Anfang eingefügt werden.

20.07.2003, 20:48	#19
K@sperl bitte Mailadresse prüfen! Registriert seit: 03.04.2001 Beiträge: 2.387	Die if Abfrage passt leider noch nicht, if (! ($str =~ /^\//) ) prüft anscheinend den ganzen String und nicht nur die erste Stelle und if (substr($str, 0,1) neq '/') gibt einige Syntaxfehler aus edit: if (substr($str, 0,1) ne '/') ist korrekt, prüft aber auch nur den gesamten String und nicht genau die erste Stelle. edit2: Jetzt geht's, hab bei substr den "1" vergessen

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)