字符串与数组赋值问题（已解决）

sillysor

有这样一个文本文件，里面的内容大致由下面格式的信息组成，这里只列了文件中的两个，其实有很多...
>ID1
UAUUAACCUGAUCAGCCCCGGAGUUGCCUGUUUCAUCACUAACCCCGGGCCUGAAGAGGUUGACAA
..(((((((..((((.(((((.((((..((......)).)))).))))).))))..)))))))... (-25.50)
free energy of ensemble = -26.25 kcal/mol
frequency of mfe structure in ensemble 0.296052;
>ID2
UGUUCUUUCACAAGAAUCUUGUGAAAGAAUAUAUCUUACUAUAGUAAUGUAUCUUACGAUAGUAAUGUCUUCUGACAUAAUCUAUCUUCUGAAAGAAGA
((((((((((((((...)))))))))))))).....((((((.((((......)))).))))))(((((....)))))......(((((.....))))) (-29.80)
free energy of ensemble = -32.45 kcal/mol
frequency of mfe structure in ensemble 0.080462;
我想把其中的“..(((((((..((((.(((((.((((..((......)).)))).))))).))))..)))))))... ”这种结构的字符串提出来进行分析，其实这个点和括号组成的字符串表示的是RNA序列的折叠结构。
请问如何把字符串放到一个@array的数组中，使得$array[0]='.', $array[1]='.', $array[2]='(' 这样数组中的每一项依次对应于字符串中的一个字符。
我可以把这个字符串从文本中匹配到，$str=“..(((((((..((((.(((((.((((..((......)).)))).))))).))))..)))))))... ”, 但是不会把这个字符串中的字符依次赋给一个数组，望大家帮帮忙，谢谢！

[ 本帖最后由 sillysor 于 2006-11-15 16:12 编辑 ]

alexru

push @array, $rna

sillysor

我试了一下ls的方法。
$str=“..(((((((..((((.(((((.((((..((......)).)))).))))).))))..)))))))... ”;
push (@array,$str);
printf "$array[0]\n";
printf "$array[1]\n";

发现$str的值都赋给了$array[0];而不是我所希望的$array[0]='.', $array[1]='.', $array[2]='('... 这样依次下去。

大大狗

push(@array,shift($str));

sillysor

shift似乎只能操作数组变量， 直接shift $str会报错。

大大狗

原帖由 sillysor 于 2006-11-15 15:33 发表
shift似乎只能操作数组变量， 直接shift $str会报错。

哦,对不起了.

大大狗

那直接取行不行啊   
@str=“..(((((((..((((.(((((.((((..((......)).)))).))))).))))..)))))))... ”;
print $str[0];

或是 push(@array,shift(@str));

sillysor

呵呵，没什么，讨论一个问题而已，我最近才开始使用perl做一些生物学上的分析，所以对perl不是太熟。

"那直接取行不行啊   
@str=“..(((((((..((((.(((((.((((..((......)).)))).))))).))))..)))))))... ”;
print $str[0];"

这样还是会把$str[0]=“..(((((((..((((.(((((.((((..((......)).)))).))))).))))..)))))))... ”的

[ 本帖最后由 sillysor 于 2006-11-15 15:47 编辑 ]

alexru

#!/usr/bin/perl
$|=1;
@array='';
while(<>){
        if (/([\(\.\)]+)/) {
                push(@array,$&,"\n");
        }
}
print "@array\n";
不知道行不？
看错题目了，不知道你这样做的意义何在？

[ 本帖最后由 alexru 于 2006-11-15 16:08 编辑 ]

aaronvox

1. 
   
2. perl -e '$str= q/..(((((((..((((.(((((.((((..((......)).)))).))))).))))..))))))).../; @tt = split //,$str; print $tt[0].$tt[1].$tt[2];'
   

复制代码

1. 
   
2. ..(
   

复制代码