On Wed, Apr 4, 2012 at 8:57 PM, Anamika K <[email protected]> wrote:
> Hello All,
> I have a file like this:
>
>
> NM_009648,NM_001042541:1 0.955794504181601
> NM_019584:1 0.900900900900901
> NM_198862:1 0.835755813953488
> NM_001039093,NM_001039092,NM_153080:1 0.805008944543828
>
> and want output like this:
>
> NM_009648 0.955794504181601
> NM_001042541:1 0.955794504181601
> NM_019584:1 0.900900900900901
> NM_198862:1 0.835755813953488
> NM_001039093 0.805008944543828
> NM_001039092 0.805008944543828
> NM_153080:1 0.805008944543828
>
> I am using split function first to separate column 1 with column 2 and
> then based upon "comma" I need to split column 1. But as you can see,
> in the column 1, there are sometimes more than two patterns separated
> by comma, so I am unable to do it in a correct way.
>
> Could you please suggest my how to proceed?
Here is the one I came up with the suggestions from the last two posts.
#!/usr/bin/env perl
use strict;
use warnings;
use autodie qw(open close);
use 5.012;
open my $fh, '<', "try.txt";
while(my $line = <$fh>){
my ($keys, $value) = split /[ ]+/, $line;
my @key = split /\,/,$keys;
foreach(@key){
print "$_ $value";
}
}
It's not a well-written code, thanks ahead for any polish down on it.
Best regards,
> Thanks.
>
> --
> To unsubscribe, e-mail: [email protected]
> For additional commands, e-mail: [email protected]
> http://learn.perl.org/
>
>
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
