1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
Author: Nelson A. de Oliveira <naoliv@debian.org>
Date: 2005-03-21 22:46:49 -0300
--- gff2aplot-2.0.orig/src/blat2gff.pl
+++ gff2aplot-2.0/src/blat2gff.pl
@@ -82,7 +82,7 @@
my @f = ();
next unless /^\d/o;
chomp;
- @f = split /\s+/og, $_;
+ @f = split /\s+/o, $_;
do { # ensure that there are 21 fields
print STDERR "### NOT enough fields for this record:\n##### @f \n";
next;
@@ -111,9 +111,9 @@
$gff{T_FRAME} =
&get_frame( $gff{T_STRAND}, $gff{T_LEN}, $gff{T_ORI}, $gff{T_END} );
$gff{B_NUM} = $f[ $blat{B_NUM} ];
- @{ $gff{B_LEN} } = split /,/og, $f[ $blat{B_LEN} ];
- @{ $gff{B_QPOS} } = split /,/og, $f[ $blat{B_QPOS} ];
- @{ $gff{B_TPOS} } = split /,/og, $f[ $blat{B_TPOS} ];
+ @{ $gff{B_LEN} } = split /,/o, $f[ $blat{B_LEN} ];
+ @{ $gff{B_QPOS} } = split /,/o, $f[ $blat{B_QPOS} ];
+ @{ $gff{B_TPOS} } = split /,/o, $f[ $blat{B_TPOS} ];
printf STDOUT "# " . $GFFstring, $gff{Q_NAME}, "BLAT",
"$gff{Q_LEN}:$gff{T_LEN}", $gff{Q_ORI}, $gff{Q_END}, 0, $gff{Q_STRAND},
$gff{Q_FRAME}, "$gff{T_NAME}.$gff{GROUP}.$rec_cnt", $gff{T_ORI},
|
