How to search a regex without replacing it in perl

Vipul03

I want to search a regex in perl without replacing it and without going line by line to search it

Any help will be apriciable

Thanks in advance

Icecrack

Question:
What have your tried so far?

How can we work with what you want, if we do not know the information we are looking for?

Thanks

Charlie

KevinADC

You can't search a regexp, the question makes no sense. You can search a file or a database, but you can't search a regexp.

Vipul03

I have tried to serch each and every line in the file using

Expand|Select|Wrap|Line Numbers

 open FH,"log";

for $line(<FH>){

if( $line =~ m/regexp/ )

{

}

}

but i dont want to look each and every line in the file

Thanks

numberwhun

Quote:

Originally Posted by Vipul03

I have tried to serch each and every line in the file using

open FH,"log";
for $line(<FH>){
if( $line =~ m/regexp/ )
{
}
}

but i dont want to look each and every line in the file

Thanks

If you don't try and match against every line, how are you going to have a proper search? Inside of the if statement, if you don't do anything, like print the line or the line number, then you will never know that there was a match.

Regards,

Jeff

KevinADC

maybe this is what you want, hard to say because I guess you think we can read your mind and understand your vague question:

Expand|Select|Wrap|Line Numbers

 
open FH,"log";

while (my $line = <FH>){

   if( $line =~ m/regexp/ ) {

      "Found regexp in $line\n";

      last; $stops searching after first match

   }  

}

close FH;

If thats not what you are trying to do then please explain yourself properly so other people can understand what your requirements are.

Icecrack

Quote:

Originally Posted by KevinADC

maybe this is what you want, hard to say because I guess you think we can read your mind and understand your vague question:

Expand|Select|Wrap|Line Numbers

 
open FH,"log";

while (my $line = <FH>){

   if( $line =~ m/regexp/ ) {

      "Found regexp in $line\n";

      last; $stops searching after first match

   }  

}

close FH;

If thats not what you are trying to do then please explain yourself properly so other people can understand what your requirements are.

I know in the quick making of that script you may of made a mistake or typo at

Expand|Select|Wrap|Line Numbers

$stops Searching

KevinADC

Quote:

Originally Posted by Icecrack

I know in the quick making of that script you may of made a mistake or typo at

Expand|Select|Wrap|Line Numbers

$stops Searching

Yes thanks, should have been "#stops searching" instead of "$stops Searching".

How to search a regex without replacing it in perl

re: How to search a regex without replacing it in perl

re: How to search a regex without replacing it in perl

re: How to search a regex without replacing it in perl

re: How to search a regex without replacing it in perl

re: How to search a regex without replacing it in perl

re: How to search a regex without replacing it in perl

re: How to search a regex without replacing it in perl

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about