in reply to Re^2: pattern matching
in thread pattern matching

The sequence should be trimmed from the begining ofATGC to full sting and should give only XYZ (for example if the string XYZATGCAATGGCGTC.....

Replies are listed 'Best First'.
Re^4: pattern matching
by tobyink (Canon) on Feb 10, 2012 at 11:23 UTC 
    use Modern::Perl;
while (<DATA>)
{
    chomp;       # remove trailing line break
    say "original string is:  '$_'";
    
    s/ATGC.*$//; # strip 'ATGC' and anything following it
    say "processed string is: '$_'";

    say "----";
}
__DATA__
123ATGC
123ATGC456
ATGC123
123ATGC456ATGC789
ATGC
12345

    [download]

    produces output...

    original string is:  '123ATGC'
processed string is: '123'
----
original string is:  '123ATGC456'
processed string is: '123'
----
original string is:  'ATGC123'
processed string is: ''
----
original string is:  '123ATGC456ATGC789'
processed string is: '123'
----
original string is:  'ATGC'
processed string is: ''
----
original string is:  '12345'
processed string is: '12345'
----
[reply]
[d/l]
Re^4: pattern matching
by xyzzy (Pilgrim) on Feb 10, 2012 at 11:40 UTC
    special regex variables

    $,=qq.\n.;print q.\/\/____\/.,q./\ \ / / \\.,q.    /_/__.,q..
    Happy, sober, smart: pick two.
[reply]
[d/l]

In Section Seekers of Perl Wisdom