diff options
Diffstat (limited to 'modules/perlconverters')
| -rw-r--r-- | modules/perlconverters/unb2osis.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/modules/perlconverters/unb2osis.pl b/modules/perlconverters/unb2osis.pl index c77bdb3..d21d4f4 100644 --- a/modules/perlconverters/unb2osis.pl +++ b/modules/perlconverters/unb2osis.pl @@ -90,13 +90,13 @@ foreach $line (@data) { if ($line =~ /^\#/) {
$line = "";
}
- elsif ($line =~ /\d+[ONA]\t\d+\t\d+\t(\d+)[ONA]\t(\d+)\t(\d+)\t(.*\t)(\d+)\t(.+)/) {
+ elsif ($line =~ /\d+[ONAona]\t\d+\t\d+\t(\d+)[ONAona]\t(\d+)\t(\d+)\t(.*\t)(\d+)\t(.+)/) {
$line = sprintf("%08d\t$1\t$2\t$3\t$4$6", $5);
}
- elsif ($line =~ /(\d+)[ONA]\t(\d+)\t(\d+)\t(.*\t)(\d+)\t(.+)/) {
+ elsif ($line =~ /(\d+)[ONAona]\t(\d+)\t(\d+)\t(.*\t)(\d+)\t(.+)/) {
$line = sprintf("%08d\t$1\t$2\t$3\t$4$6", $5);
}
- elsif ($line =~ /(\d+)[ONA]\t(\d+)\t(\d+)\t(.+)/) {
+ elsif ($line =~ /(\d+)[ONAona]\t(\d+)\t(\d+)\t(.+)/) {
$line = sprintf("%08d\t$1\t$2\t$3\t\t$4", $i+10);
}
else {
|