help with regular expressions

adriaan

for a program i'm makin I need to be able to analyze lines like the following one

1 waarschijnlijk neiging tot suikerziekte ccaggcccac ctggagactc

and split it up in a part that containes the number
a part that containes the text
and as a last part the dna sequence ccaggcccac ctggagactc

now i can do that with the following code

Expand|Select|Wrap|Line Numbers

 # haal de ziekte codes er uit

        if($line =~ m/(\b[ctga]+\b)(.*)/)

        {
 
            $part3 = $1.$2; 
 
            # haal het einde lijn teken eraf

            chop $part3;
 
        }
 
        # haal het nummer en de naam uit de string

        if($line =~ m/(\d+)(.*?)(\b[gtac]+\b)/)

        {
 
                        # $1 = the numeric part, $2 the text

            # nu maken we een hash met het nummer als keyword 

            $ziektenaamhash{$1} = $2;
 
            # we maken ook een hash waarbij het nummer verwijst 

            $ziektehash{$1} = $part3;
 
        }

but I'm not really happy with the $1.$2 part as it forces me to use the chop operation every time.
Is there a more efficient way to be split the lines in those parts or is my code just fine?

KevinADC

just remove the \b parts from the capturing parenthesis:

Expand|Select|Wrap|Line Numbers

if($line =~ m/\b([ctga]+)\b(.*)/)

and you shouldn't have to use chop;

adriaan

Quote:

Originally Posted by KevinADC

just remove the \b parts from the capturing parenthesis:

Expand|Select|Wrap|Line Numbers

if($line =~ m/\b([ctga]+)\b(.*)/)

and you shouldn't have to use chop;

I have to chop because when perl somehow adds a character after the concatenation and that screws up my searching expression when I'm trying to find what i found here in text file

KevinADC

Quote:

Originally Posted by adriaan

I have to chop because when perl somehow adds a character after the concatenation and that screws up my searching expression when I'm trying to find what i found here in text file

if you are reading the lines in from a file you should just chomp the line before doing anything else to it to remove the newline from the end. Perl will not add any characters that are not already there.

help with regular expressions

re: help with regular expressions

re: help with regular expressions

re: help with regular expressions

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about