[EMAIL PROTECTED] wrote:
> Hi all,
>
> i have a set if keywords which i have to search for in the lines
> beginning with character 'A' in the "file".
> snippet follows -
>
> #!/usr/bin/perl -w
> $keywords = "hello|world|all|chipset";
> open FH,"file";
> while(<FH>)
> {
> print if(/^A/ && /(?:$keyword)/g);
print if /^A.*(?:$keyword)/
> }
> close FH;
>
> is that correct or any other shortcuts and corrections ?
> thanks in advance ,
You should use
print if /^A.*\b(?:$keyword)\b/
if you want to make sure you don't match the line
A shallow existence
as well. Or
print if /^A(?:.*\b)?(?:$keyword)\b/
if the 'A' at the start of the line may be followed immediately by a
keyword, like this
Aworld of difference
Cheers,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
