Öznur tastan wrote:
>
> I want to store alignment results( that is why I asked about struct yesterday).
> I thougt that I could just push seq1 seq2 and the score to an array and can
> acess them by using $k*3 + $n ($n=0 for seq1 $n =2 for score)
>
> But I also have a sort of grouping of the alignment which is denoted by $p.
> So I wanted to use a matrix so in each row I would have one group (group index
> is $p) and in that row alignments features(seq1 seq2 score)
>
> I tried this:
As Joseph pointed out in your other thread, using a variable name like $p
isn't very informative. If I didn't know better I would guess that it may be
a pointer (but those are called 'references' in Perl) but couldn't
guess beyond that. What's wrong with $index?
> $p=0;
> $seq1="A--V";
> $seq2="AAAV";
> $score=-5;
>
> [EMAIL PROTECTED];
> push @$ref,$seq1;
> push @$ref,$seq2;
> push @$ref,$score;
>
> when use this way it gives the error "Not an array reference".
@subalignments[$p] is an array slice with one element, so [EMAIL PROTECTED]
is a list of one scalar reference. Assigning this list to the scalar $ref
copies the last (and only) element of the list, so $ref is now a reference
to the scalar array element $subalignments[$p].
> I think I should declare the-two dimensional array so i thought adding
> $subalignments[0][0]=0 (silly I know) would work- didn't work:)
There's no need to predeclare arrays in Perl, just use an array as if was
two-dimensional and it will be. So:
$subalignments[$p][0] = $seq1;
$subalignments[$p][1] = $seq2;
$subalignments[$p][2] = $score;
or
$subalignments[$p] = [$seq1, $seq2, $score];
does the same thing. But I think perhaps you should be using a hash here:
$subalignments[$p] = {
seq1 => $seq1,
seq2 => $seq2,
score => $score,
};
Then you can access the values as
$subalignments[0]{seq1};
$subalignments[42]{score};
and so on.
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
