回答編集履歴
2
index で回しているのに最終値が長さ。orz\.\.\. // 自己満の編集ですので、返信不用です。
test
CHANGED
|
@@ -12,7 +12,7 @@
|
|
|
12
12
|
|
|
13
13
|
my @con ;
|
|
14
14
|
|
|
15
|
-
for ( 0 .. length $seq ){
|
|
15
|
+
for ( 0 .. length $seq - 1 ){
|
|
16
16
|
|
|
17
17
|
$s = substr $seq, $_, 80 ;
|
|
18
18
|
|
|
@@ -50,4 +50,6 @@
|
|
|
50
50
|
|
|
51
51
|
- 追記、連番が 0 からスタートになっていたので、後半にも、ちょっと手を加えました。
|
|
52
52
|
|
|
53
|
+
- さらに一応追記、index で回しているのに最終値が長さ。orz...
|
|
53
54
|
|
|
55
|
+
|
1
連番部分のささいな修正
test
CHANGED
|
@@ -28,7 +28,9 @@
|
|
|
28
28
|
|
|
29
29
|
if (length($con[$_]) >= $min_len) {
|
|
30
30
|
|
|
31
|
+
my $i = $_ + 1 ;
|
|
32
|
+
|
|
31
|
-
print ">$name-$
|
|
33
|
+
print ">$name-$i\n";
|
|
32
34
|
|
|
33
35
|
$con_name = $name;
|
|
34
36
|
|
|
@@ -44,4 +46,8 @@
|
|
|
44
46
|
|
|
45
47
|
|
|
46
48
|
|
|
47
|
-
本来では、 `push @con, $s` の前に長さ判定などを加えたい所ですが、元のコードで後程判定が入る為に割愛しました。
|
|
49
|
+
- 本来では、 `push @con, $s` の前に長さ判定などを加えたい所ですが、元のコードで後程判定が入る為に割愛しました。
|
|
50
|
+
|
|
51
|
+
- 追記、連番が 0 からスタートになっていたので、後半にも、ちょっと手を加えました。
|
|
52
|
+
|
|
53
|
+
|