«

Newbie question.
My "or" "||" is not working in my little script, it works if I don't
add an 'or' statement.
Any clue, thanks.
#########################
NOT WORKING
#########################
#!/usr/bin/perl -w
use strict;
use vars qw(@mylist);

CAPTURE:
while ( my $current_line = <DATA> ) {
next CAPTURE if ($current_line !~ m/SOAP <(\S+)>/) || ($current_line !
~ m/GET \/Accurin\/(\S+),/);

push(@mylist,"$1\n");
}
print @mylist;


__DATA__
GET /Accurin/HealthCareProviderSearch, from "
GET /Accurin/HealthCareProviderSearch, from "
GET /Accurin/HealthCareProviderSearch, from "
GET /Accurin/HealthCareProviderSearch, from "
SOAP <PersonSearch> from "
SOAP <IDRequest> from "
SOAP <WirelessSearch> from "

###########################
WORKING
###########################
#!/usr/bin/perl -w
use strict;
use vars qw(@mylist);

CAPTURE:
while ( my $current_line = <DATA> ) {
next CAPTURE if $current_line !~ m/SOAP <(\S+)>/;
push(@mylist,"$1\n");
}
print @mylist;

__DATA__
GET /Accurin/HealthCareProviderSearch, from "
GET /Accurin/HealthCareProviderSearch, from "
GET /Accurin/HealthCareProviderSearch, from "
GET /Accurin/HealthCareProviderSearch, from "
SOAP <PersonSearch> from "
SOAP <IDRequest> from "
SOAP <WirelessSearch> from "

On Thu, 09 Aug 2007 15:38:31 -0700, usaims wrote:

> Newbie question.
> My "or" "||" is not working in my little script, it works if I don't
> add an 'or' statement.
> Any clue, thanks.

Well it does precisely what you tell it to do.

(a !~ re) || (b !~ re) is equivelent to
not ((a =~ re) and (b =~ re))

Does that make it clearer? You need and and there, not an or.

HTH,
M4