Sponsored Content
Top Forums Shell Programming and Scripting Perl to adjust coordinates based on repeat string Post 303021888 by Aia on Monday 20th of August 2018 12:18:52 AM
Old 08-20-2018
In case that it is useful.

Code:
#!/usr/bin/perl
use strict;
use warnings;

my @fasta = ();
while(<>) {
    chomp;
    if(/^>/){
        range_match(\@fasta) if @fasta;
        @fasta = ();
        push @fasta, $_;
        next;
    }
    $fasta[1] .= $_;
}
range_match(\@fasta);

sub range_match {
    my $fref = shift;
    my ($header, $seq) = @{$fref};
    my ($mark, $beginning, $end) = split /[:-]/, (split/\s+/, $header)[1];

    while($seq =~ /[tT]{4}/g) {
        my $first = "@-" + 1;
        my $last = "@+";
        printf "%s %s:%s-%s\n", $&, $mark, ($beginning + $first), ($beginning + $last);
    }
}

Code:
$ ./read_fasta.pl fasta.file
tttt range=chr2:166911127-166911130
tttt range=chr2:166911142-166911145
TTTT range=chr2:166911173-166911176
TTTT range=chr2:166911221-166911224
tttt range=chr2:166911287-166911290

This User Gave Thanks to Aia For This Post:
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

appending string to text file based on search string

Hi, I need to append string "Hi" to the beginning of the lines containing some specific string. How can I achieve that? Please help. Malay (1 Reply)
Discussion started by: malaymaru
1 Replies

2. Shell Programming and Scripting

Matching 2 chars of a string that repeat

Hello Unix gurus, I have a gzipped file where each line contains 2 street addresses in the US. What I want to do is get a count for each state that does not match. What I have so far is: $ gzcat matched_10_09.txt.gz |cut -c 106-107,184-185 | head -5 CTCT CTNY CTCT CTFL CTMA This cuts... (5 Replies)
Discussion started by: sitney
5 Replies

3. Shell Programming and Scripting

sed or awk command to replace a string pattern with another string based on position of this string

here is what i want to achieve... consider a file contains below contents. the file size is large about 60mb cat dump.sql INSERT INTO `table1` (`id`, `action`, `date`, `descrip`, `lastModified`) VALUES (1,'Change','2011-05-05 00:00:00','Account Updated','2012-02-10... (10 Replies)
Discussion started by: vivek d r
10 Replies

4. Shell Programming and Scripting

perl script to find, write, repeat...

I am a novice writing perl scripts so I'd appreciate any help you guys can offer. I have a list of 100 words in a file (words.txt) and I need to find them in a second file (data.txt). Whenever one of these words is found I need to write that line to a third file (out.txt) and then continue... (1 Reply)
Discussion started by: tgamble
1 Replies

5. UNIX for Dummies Questions & Answers

Length of a segment based on coordinates

Hi, I would like to have the length of a segment based on coordinates of its parts. Example input file: chr11 genes_good3.gtf aggregate_gene 1 100 gene1 chr11 genes_good3.gtf exonic_part 1 60 chr11 genes_good3.gtf exonic_part 70 100 chr11 genes_good3.gtf aggregate_gene 200 1000 gene2... (2 Replies)
Discussion started by: fadista
2 Replies

6. Homework & Coursework Questions

How to use xargs to repeat as a loop to grab date string?

Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted! 1. The problem statement, all variables and given/known data: My goal to find how many requests in 14 days from weblog server. I know to cat a weblog file to wc -l to find the... (8 Replies)
Discussion started by: scopiop
8 Replies

7. Shell Programming and Scripting

Add specific string to last field of each line in perl based on value

I am trying to add a condition to the below perl that will capture the GTtag and place a specific string in the last field of each line. The problem is that the GT value used is not right after the tag rather it is a few fields away. The values should always be 0/1 or 1/2 and are in bold in the... (12 Replies)
Discussion started by: cmccabe
12 Replies

8. Shell Programming and Scripting

awk to combine matches and use a field to adjust coordinates in other fields

Trying to output a result that uses the data from file to combine and subtract specific lines. If $4 matches in each line then the last $6 value is added to $2 and that becomes the new$3. Each matching line in combined into one with $1 then the original $2 then the new$3 then $5. For the cases... (4 Replies)
Discussion started by: cmccabe
4 Replies

9. Shell Programming and Scripting

awk to adjust coordinates in field based on sequential numbers in another field

I am trying to output a tab-delimited result that uses the data from a tab-delimited file to combine and subtract specific lines. If $4 matches in each line then the first matching sequential $6 value is added to $2, unless the value is 1, then the original $2 is used (like in the case of line... (3 Replies)
Discussion started by: cmccabe
3 Replies

10. Shell Programming and Scripting

awk to adjust text and count based on value in field

The below awk executes as is and produces the current output. It isvery close but what Ican not seem to do is add the -exon..., the ... portion comes from $1 and the _exon is static and will never change. If there is + sign in $4 then the ... is in acending order or sequential. If there is a - in... (2 Replies)
Discussion started by: cmccabe
2 Replies
BP_FLANKS(1p)						User Contributed Perl Documentation					     BP_FLANKS(1p)

NAME
flanks - finding flanking sequences for a variant in a sequence position SYNOPSIS
flanks --position POS [-p POS ...] [--flanklen INT] accession | filename DESCRIPTION
This script allows you to extract a subsequence around a region of interest from an existing sequence. The output if fasta formatted sequence entry where the header line contains additional information about the location. OPTIONS
The script takes one unnamed argument which be either a file name in the local file system or a nucleotide sequence accession number. -p Position uses simple nucleotide sequence feature table --position notation to define the region of interest, typically a SNP or microsatellite repeat around which the flanks are defined. There can be more than one position option or you can give a comma separated list to one position option. The format of a position is: [id:] int | range | in-between [-] The optional id is the name you want to call the new sequence. If it not given in joins running number to the entry name with an underscore. The position is either a point (e.g. 234), a range (e.g 250..300) or insertion point between nucleotides (e.g. 234^235) If the position is not completely within the source sequence the output sequence will be truncated and it will print a warning. The optional hyphen [-] at the end of the position indicates that that you want the retrieved sequence to be in the opposite strand. -f Defaults to 100. This is the length of the nucleotides --flanklen sequence retrieved on both sides of the given position. If the source file does not contain OUTPUT FORMAT
The output is a fasta formatted entry where the description file contains tag=value pairs for information about where in the original sequence the subsequence was taken. The ID of the fasta entry is the name given at the command line joined by hyphen to the filename or accesion of the source sequence. If no id is given a series of consequtive integers is used. The tag=value pairs are: oripos=int position in the source file strand=1|-1 strand of the sequence compared to the source sequence allelepos=int position of the region of interest in the current entry. The tag is the same as used by dbSNP@NCBI The sequence highlights the allele variant position by showing it in upper case and rest of the sequence in lower case characters. EXAMPLE
% flanks ~/seq/ar.embl >1_/HOME/HEIKKI/SEQ/AR.EMBL oripos=100 strand=1 allelepos=100 taataactcagttcttatttgcacctacttcagtggacactgaatttggaaggtggagga ttttgtttttttcttttaagatctgggcatcttttgaatCtacccttcaagtattaagag acagactgtgagcctagcagggcagatcttgtccaccgtgtgtcttcttctgcacgagac tttgaggctgtcagagcgct TODO
The input files are assumed to be in EMBL format and the sequences are retrieved only from the EMB database. Make this more generic and use the registry. head1 FEEDBACK Mailing Lists User feedback is an integral part of the evolution of this and other Bioperl modules. Send your comments and suggestions preferably to the Bioperl mailing lists Your participation is much appreciated. bioperl-l@bioperl.org - General discussion http://bioperl.org/wiki/Mailing_lists - About the mailing lists Reporting Bugs Report bugs to the Bioperl bug tracking system to help us keep track the bugs and their resolution. Bug reports can be submitted via the web: https://redmine.open-bio.org/projects/bioperl/ AUTHOR - Heikki Lehvaslaiho Email: <heikki-at-bioperl-dot-org> perl v5.14.2 2012-03-02 BP_FLANKS(1p)
All times are GMT -4. The time now is 09:10 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy