Newbie: Simple conditional on regexp match
Kenneth Brun Nielsen
(easily) in PERL.
The following prints out all lines - also the ones, that doesnt match
the regular expression.
#!/usr/bin/perl -w
open FILEHANDLE, "soatest.soa";
while (<FILEHANDLE>){
if (/^\*| XI/) {
print "match in line: $.\n";
}
}
Kenneth Brun Nielsen
DOH! I found out that the above works as intended. I just "forgot" to
escape the | in the regexp.
xho...@gmail.com
> I need to perform a conditional on a regexp match. How can I do that
> (easily) in PERL.
>
> The following prints out all lines - also the ones, that doesnt match
> the regular expression.
I don't believe you. Show us an example of soatest.soa that demonstrates
this behavior.
>
> #!/usr/bin/perl -w
> open FILEHANDLE, "soatest.soa";
> while (<FILEHANDLE>){
> if (/^\*| XI/) {
> print "match in line: $.\n";
> }
> }
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
szr
> Kenneth Brun Nielsen <kenneth.br...@googlemail.com> wrote:
>> I need to perform a conditional on a regexp match. How can I do that
>> (easily) in PERL.
>>
>> The following prints out all lines - also the ones, that doesnt match
>> the regular expression.
>
> I don't believe you. Show us an example of soatest.soa that
> demonstrates this behavior.
He said in his other reply that he forgot to escape the pipe in the
regex (so it wasn't meant to be an alternation.)
>> #!/usr/bin/perl -w
>> open FILEHANDLE, "soatest.soa";
>> while (<FILEHANDLE>){
>> if (/^\*| XI/) {
>> print "match in line: $.\n";
>> }
>> }
So it should be:
while (<FILEHANDLE>){
if (/^\*\| XI/) {
--
szr