回答編集履歴
2
index で回しているのに最終値が長さ。orz\.\.\. // 自己満の編集ですので、返信不用です。
answer
CHANGED
|
@@ -5,7 +5,7 @@
|
|
|
5
5
|
```
|
|
6
6
|
while (($name, $seq) = fasta_get($fh)) {
|
|
7
7
|
my @con ;
|
|
8
|
-
for ( 0 .. length $seq
|
|
8
|
+
for ( 0 .. length $seq - 1 ){
|
|
9
9
|
$s = substr $seq, $_, 80 ;
|
|
10
10
|
push @con, $s
|
|
11
11
|
}
|
|
@@ -24,3 +24,4 @@
|
|
|
24
24
|
|
|
25
25
|
- 本来では、 `push @con, $s` の前に長さ判定などを加えたい所ですが、元のコードで後程判定が入る為に割愛しました。
|
|
26
26
|
- 追記、連番が 0 からスタートになっていたので、後半にも、ちょっと手を加えました。
|
|
27
|
+
- さらに一応追記、index で回しているのに最終値が長さ。orz...
|
1
連番部分のささいな修正
answer
CHANGED
|
@@ -13,7 +13,8 @@
|
|
|
13
13
|
$name = $1;
|
|
14
14
|
for (0..$#con) {
|
|
15
15
|
if (length($con[$_]) >= $min_len) {
|
|
16
|
+
my $i = $_ + 1 ;
|
|
16
|
-
print ">$name-$
|
|
17
|
+
print ">$name-$i\n";
|
|
17
18
|
$con_name = $name;
|
|
18
19
|
print_seq($con[$_], 80);
|
|
19
20
|
}
|
|
@@ -21,4 +22,5 @@
|
|
|
21
22
|
}
|
|
22
23
|
```
|
|
23
24
|
|
|
24
|
-
本来では、 `push @con, $s` の前に長さ判定などを加えたい所ですが、元のコードで後程判定が入る為に割愛しました。
|
|
25
|
+
- 本来では、 `push @con, $s` の前に長さ判定などを加えたい所ですが、元のコードで後程判定が入る為に割愛しました。
|
|
26
|
+
- 追記、連番が 0 からスタートになっていたので、後半にも、ちょっと手を加えました。
|