lily3344
New User
Dec 15, 2008, 6:10 PM
Post #1 of 3
(1049 views)
|
This might be dumb question but I have the following script:
while (my $proteins = <$INPUT>) {
my @species = ("dmelanogaster","dsimulans");
foreach my $species (@species) {
if ($proteins =~ /$species/) {
push (my @keys, $proteins);
}else {
(my $mel, my $sim) = $proteins =~ /^([\w\]) ([\t\w\])$/; ## Here tell me that there is a unmatch ( in the regex?
push @mel, $mel;
foreach ($sim =~ s/\s*$//) {
push @sim, $sim;
}
}
}
}
I am trying to get my values sort out from a input file that look somthing like this
dmelanogaster dsimulans
FBpp0070035 FBpp0217127
FBpp0070058 FBpp0208957
FBpp0070115 FBpp0214920
FBpp0070228 FBpp0214829
FBpp0070744 FBpp0215135
please help me!!
|
MAIN
SEARCH
WHO'S 
LOG 
