---

Noen som vet hvordan jeg kan sjekke om $userinp inneholder teksten www ?

(f.eks www.sol.no )


if ($FORM{'userinp'} eq "www") { $surl = qq(http://); }

Gir kun treff his det bare står www, men jeg må altså kunnde sjekke i hele
adresser.


Mvh. Verner
vernerxx@online.no.ZIP

---

On Sat, 27 Oct 2001 13:48:13 +0200, Verner Jacobsen wrote:

> Noen som vet hvordan jeg kan sjekke om $userinp inneholder teksten
> www ? (f.eks www.sol.no )

if ($userinp =~ /www/) {
print "www findes et eller andet sted i userinp\n";
}

if ($userinp =~ /^www/) {
print "userinp starter med www\n";
}

system "perldoc perlre";


Mvh.

--
"You're the hero? You play the horrible cowboy?" Adam Sjøgren
"I play my mother" asjo@koldfront.dk

---

asjo@koldfront.dk (Adam Sjøgren) wrote:

> On Sat, 27 Oct 2001 13:48:13 +0200, Verner Jacobsen wrote:
>
> > Noen som vet hvordan jeg kan sjekke om $userinp inneholder
> > teksten www ? (f.eks www.sol.no )
>
> if ($userinp =~ /www/) {
> print "www findes et eller andet sted i userinp\n";
> }

Eller...

if (index($userinp, 'www') >= 0) {
print "www findes et eller andet sted i userinp\n";
}

Peter

--
#!/local/bin/perl5 -wp -*- mode: cperl; coding: iso-8859-1; -*-
# matlab comment stripper (strips comments from Matlab m-files)
s/^((?:(?:[])}\w.]'+|[^'%])+|'[^'\n]*(?:''[^'\n]*)*')*).*/$1/x;