Re: or operator not working at checking directories

It doesn't work because the match after the or is not happening. You need to be more explict about the second match and use and instead:

if ($homeurl !~ m[^http://] and $homeurl !~ m[^https://]) {
      print "Your home url has to start with http:// or https://";
  }
[download]

Or you could put the or inside the match (using | which means 'or'):

if ($homeurl !~ m[^http://|https://]) {
      print "Your home url has to start with http:// or https://";
  }
[download]

Or you could use a ? after the s to signify that it may or may not exist, the most elegant method in this case:

if ($homeurl !~ m[^https?://]) {
      &inerror("Your home url has to start with http:// or https://");
  }
[download]

To find out the permissions on a file or directory check out stat.

--
Check out my Perlmonks Related Scripts like framechat, reputer, and xNN.

Comment on Re: or operator not working at checking directories Select or Download Code

Replies are listed 'Best First'.

Re^2: or operator not working at checking directories
by Aristotle (Chancellor) on Jun 30, 2002 at 10:42 UTC

if ($homeurl !~ m[^http://|https://]) {

Careful. Your regex tests for http:// at the start of the string, or https:// anywhere in the string. The |-alternative is greedy if not enclosed in brackets. Also, it is better to keep or distinctions like this outside the regex engine.

unless ($homeurl =~ m[^http://] or $homeurl =~ m[^https://]) {
    &inerror("Your home url has to start with http:// or https://");
}
[download]

Finally, though, I want to suggest, in this specific instance, to use the ? quantifier:

unless ($homeurl =~ m[^https?://]) {
    &inerror("Your home url has to start with http:// or https://");
}
[download]

____________

Makeshifts last the longest.

[reply]
[d/l]
[select]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks