一段小代码中的一个uninitialized value的问题，困扰已久，谢谢

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

11^# Lonki 发表于 2007-10-12 14:28

QUOTE:

原帖由 flw 于 2007-10-12 13:52 发表
这时候通常可以用 range operator

是说这样的形式?
..... if (/BEGIN/ .. /END/)

这里不太好用吧, 起始是>, 结束是下一个起始

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

12^# flw 发表于 2007-10-12 14:28

QUOTE:

原帖由 Lonki 于 2007-10-12 14:28 发表

是说这样的形式?
..... if (/BEGIN/ .. /END/)

这里不太好用吧, 起始是>, 结束是下一个起始

好用。你可以试一下。

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

13^# Lonki 发表于 2007-10-12 14:36

好象//里面是用的正则

额...我试的是这样能全部输出
foreach (@lines) {
print "$_\n\n" if (/>/ .. /ACGT/);
}

这样反而不行
foreach (@lines) {
if (/>/ .. /[ACGT]/) {
print "$_\n";
}
else {
print '-' x 50, "\n";
}
}

不知道如何分割组, 老大指导下

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

14^# flw 发表于 2007-10-12 15:16

while(<DATA>){
if ( /^>/ .. /^>(.*)/ ){
      my $header = $1;
      print '='x65, "\n";
      print "header: $header\n";
      print '-'x30, "\n";
}
else{
      print;
}
}

__DATA__
>11
hello
asflkajsl
>22
world
asdofasdlfkj

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

15^# Lonki 发表于 2007-10-12 16:41

额... 有点困惑了...