parsing text

idorjee

Hi,
Can anyone please tell me how should I be parsing the following text file so that I could retrieve just the text following FUNCTION: and next two lines without the CC?

--------------------- Input text file ---------------------------
CC -!- FUNCTION: Involved in the secretion of a proteinaceous elicitor of
CC the hypersensitivity response in plants. Also required for
CC pathogenicity on host plant.
CC -!- SIMILARITY: Belongs to the hrpJ/yopN family.
---------------------------------------------------------------------

This is how I started with:

Expand|Select|Wrap|Line Numbers

 
if($ln =~ /^CC/){

$ln =~ s/\n//g;

next;

}

Thanks

KevinADC

A very contrived suggestion:

Expand|Select|Wrap|Line Numbers

 use strict;

use warnings;

my $output = '';

while( <DATA> ) {

   if (/\QCC -!- FUNCTION:\E\s*([\s\S]+)/) {

      $output = $1;

      $output .= <DATA>;

      $output .= <DATA>;

      $output =~ s/CC\s+//g;

      last;

   }

}

print $output;

__DATA__

CC -!- FUNCTION: Involved in the secretion of a proteinaceous elicitor of

CC the hypersensitivity response in plants. Also required for

CC pathogenicity on host plant.

CC -!- SIMILARITY: Belongs to the hrpJ/yopN family.

idorjee

Thanks a lot, KevinADC.

A very contrived suggestion:

Expand|Select|Wrap|Line Numbers

use strict;

use warnings;

my $output = '';

while( <DATA> ) {

   if (/\QCC -!- FUNCTION:\E\s*([\s\S]+)/) {

      $output = $1;

      $output .= <DATA>;

      $output .= <DATA>;

      $output =~ s/CC\s+//g;

      last;

   }

}

print $output;

__DATA__

CC -!- FUNCTION: Involved in the secretion of a proteinaceous elicitor of

CC the hypersensitivity response in plants. Also required for

CC pathogenicity on host plant.

CC -!- SIMILARITY: Belongs to the hrpJ/yopN family.

parsing text

Post your reply

Similar topics