in reply to Re: Re: Quarms with RegEx
in thread Quarms with RegEx

if ($curline !~ /^#?\s/)

[download]
That will not work, because a domain line looks like:
#domain1

[download]
And that will not match your regex, so the condition is true, which is wrong.

Replies are listed 'Best First'.
Re: Re: Re: Re: Quarms with RegEx
by blakem (Monsignor) on Aug 28, 2001 at 13:31 UTC
    Ok, what am I missing here.... 
    #!/usr/bin/perl -w
use strict;

for ('#abc',' abc','abc','# abc',' #abc') {
  my $v1 = ($_ !~ /^#\s/ and $_ !~ /^\s/) || 0;  # yours
  my $v2 = ($_ !~ /^#?\s/) || 0;                 # mine
  print "$v1 $v2 '$_'\n";
}

    [download]
    Output: 
    1 1 '#abc'
0 0 ' abc'
1 1 'abc'
0 0 '# abc'
0 0 ' #abc'

    [download]

    -Blake

[reply]
[d/l]
[select]
      Ahh, I see, you're right, I missed something in the original code.

      I think the original ($_ !~ /^#\s/ or $_ !~ /^\s/) was wrong in two ways:

      • First: the 'or' should be an 'and'
      • Second: I think the code should exclude domain-lines (#domain1) and empty lines.
      So it should have been $_ !~ /^#/ and $_ !~ /^\s/, which I had in mind and which can not be combined your way, but like /^[#\s]/ or <code>/^#|\s/.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom