WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Linux, UNIX, Open Source (http://www.wcm.at/forum/forumdisplay.php?f=13)
-   -   perl Problem (http://www.wcm.at/forum/showthread.php?t=102693)

_m3 15.07.2003 19:39

:)

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 :D


Alle Zeitangaben in WEZ +2. Es ist jetzt 03:43 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag