<求救啊>，指点下 ：）

<求救啊>，指点下 ：）
一个串比如$polo='ACGTHAGJCG*CGA*HAG*CT';

请问怎么把 * 在字符串里的位置做一个数组记录下来呢，谢谢

push @array, @+ while $p.
push @array, @+ while $polo =~ /\*/g;

while($polo =~ m/(.*?)\*.
@+这个用法是这样的啊，哈哈，明白了。

   

#!/usr/bin/perl--use s.
原来在比谁代码更短，一句完成，哈哈
#!/usr/bin/perl

$poto='ACGTHAGJCG*CGA*HAG*CT';
while ($poto=~/\*/g)
{
print "$` \n";
print "=>@+\n";
}

   

@+的用法到底是干什么的啊.
@+的用法到底是干什么的啊，以前都没有遇到过，，谢谢

**正则表达式特殊变量 **正则表达式特殊变量

下面的与模式匹配相关的特殊变量在整个发生模式匹配的动态范围内都可见（除了 $* 之外，它现在是废弃了的）。换句话说，它们的行为就好象它们是用 local 声明的一样，这样你就不用自己那样定义它们了。参阅第五章，模式匹配。

$* $digits @+ (@LAST_MATCH_END) @- (@LAST_MATCH_START) $+ ($LAST_PAREN_MATCH) $^R ($LAST_REGEXP_CODE_RESULT) $& ($MATCH) $' ($POSTMATCH) $` ($PREMATCH)

**每个文件句柄的相关变量

这些特殊变量从不需要在 local 里提到，因为它们总是指向一些属于当前选出的输出文件句柄的数值 ―― 每个文件句柄保存它自己的数值集。但你 select 另外一个文件句柄时，老文件句柄保存这些变量原来的数值，而这些变量现在反映的是这个新文件句柄的数值。又见第三十二章，标准模块，里的 FileHandle? 模块。

$| ($AUTOFLUSH, $OUTPUT_AUOTFLUSH) $- ($FORMAT_LINES_LEFT) $= ($FORMAT_LINES_PER_PAGE) $~ ($FORMAT_NAME) $% ($FORMAT_PAGE_NUMBER) $^ ($FORMAT_TOP_NAME)