How to catch multiple occurence in single line

[Zoom1234]

I have following data

ABCXYCZ
DEGCPYCJ

I want every character after C, to be pushed into an array.
But when i write,

my @arr = () ;
open file 
while ( <FH> ) {
 if ( $_ =~ /C(.)/ ) {
    push(@arr, $1) ;
 } 
}

it only recognize first occurence of C in single line and does not consider any more occurences.
It will add only X and P and NOT Z and J.

How do i acheive that?

 

[netman4u]

Try this:

my @arr = () ;
open file 
while ( <FH> ) {
 if ( $_ =~ g/C(.)/ ) {
    push(@arr, $1) ;
 } 
}

If at first you don't succeed, don't try skydiving.

 

[Zoom1234]

Hi netman4u,
Did you mean

if ( $_ =~ /C(.)/g ) {

Even i tried that, I could not get required result.

 

[ishnid]

What about this? (untested).

while ( $_ =~ /C(.)/g ) {

 

[netman4u]

Sorry Zoom. Should stick to ASKING questions!



If at first you don't succeed, don't try skydiving.

 

[AMiSM]

Your code seems to be assuming only one instance on each line of input. How about something like:

open ( <FIL>, "<", "filename.ext" );
$data = <FIL>;
close ( FIL );

$data =~ s/\s//gs;
@array = split ( /C/, $data );
for ( @array ) {
push ( @result, /^(.)/ );
}

...except that this adds the first character regardless. Have you tried playing around with grep?

 

[Zoom1234]

Hi AMiSM,
Instead of using split, can't it be done by using regex?

 

[ishnid]

Yes. The code I posted does indeed give the correct output. I've even gone and tested it for you now ;-)

 

[Zoom1234]

ishnid ,

I must be doing something wrong.

Following is my code

my @arr = () ;
while(<DATA>) {
        if ( $_ =~ /C(.)/g ) {
                push(@arr, $1) ;
        }
}
print "@arr\n" ;


__DATA__
ABCXYCZ
DEGCPYCJ

I get output as
X P
while i am expecting output to be
X Z P J

Any ideas?

 

[ishnid]

See my post above (third reply). Change the `if' to a `while' and there you go.