Sponsored Content
Top Forums Shell Programming and Scripting Extract lines with unique value using a specific column Post 302860965 by MadeInGermany on Monday 7th of October 2013 05:59:09 PM
Old 10-07-2013
Then it becomes
Code:
 awk '{p=1; if ($8!=$9) p=0; for (species=6; species<=10; species++) if (species!=8 && species!=9 && $species==$8) p=0} p'  file

Note that p=1 means to be printed, and there are two conditions that deny printing.
A bit faster is the brutal next meaning "jump to next cycle" and 1 meaning "{print}" - as was suggested by Subbeh:
Code:
awk '{if ($8!=$9) next; for (species=6; species<=10; species++) if (species!=8 && species!=9 && $species==$8) next} 1'  file

This User Gave Thanks to MadeInGermany For This Post:
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How to extract first column with a specific character

Hi All, Below is the sample data of my files: O|A|571000689|D|S|PNH|S|SI sadm|ibscml1x| I|A|571000689|P|S|PNH|S|SI sadm|ibscml1x| O|A|571000689|V|S|PNH|S|SI sadm|ibscml1x| S|C|CAM|D|S|PNH|R|ZOA|2004 bscml1x| ... (3 Replies)
Discussion started by: selamba_warrior
3 Replies

2. UNIX for Dummies Questions & Answers

Delete rows with unique value for specific column

Hi all I have a file which looks like this 1234|1|Jon|some text|some text 1234|2|Jon|some text|some text 3453|5|Jon|some text|some text 6533|2|Kate|some text|some text 4567|3|Chris|some text|some text 4567|4|Maggie|some text|some text 8764|6|Maggie|some text|some text My third column is my... (9 Replies)
Discussion started by: A-V
9 Replies

3. UNIX for Dummies Questions & Answers

Extract lines with specific words with addition 2 lines before and after

Dear all, Greetings. I would like to ask for your help to extract lines with specific words in addition 2 lines before and after these lines by using awk or sed. For example, the input file is: 1 ak1 abc1.0 1 ak2 abc1.0 1 ak3 abc1.0 1 ak4 abc1.0 1 ak5 abc1.1 1 ak6 abc1.1 1 ak7... (7 Replies)
Discussion started by: Amanda Low
7 Replies

4. Shell Programming and Scripting

Print unique names in each row of a specific column using awk

Is it possible to remove redundant names in the 4th column? input cqWE 100 200 singapore;singapore AZO 300 400 brazil;america;germany;ireland;germany .... .... output cqWE 100 200 singapore AZO 300 400 brazil;america;germany;ireland (4 Replies)
Discussion started by: quincyjones
4 Replies

5. Shell Programming and Scripting

Print unique names in a specific column using awk

Is it possible to modify file like this. 1. Remove all the duplicate names in a define column i.e 4th col 2. Count the no.of unique names separated by ";" and print as a 5th col thanx in advance!! Q input c1 30 3 Eh2 c10 96 3 Frp c41 396 3 Ua5;Lop;Kol;Kol c62 2 30 Fmp;Fmp;Fmp ... (5 Replies)
Discussion started by: quincyjones
5 Replies

6. Shell Programming and Scripting

Extract values from a specific column to the end

Hello friends, I have a text file with many columns (no. columns vary from row to row) separated by space. I need to collect all the values from 18th column to the end from each line and group them as pairs and then numbering like below.. 1. 18th-col-value 19th-col-value 2. 20th-col-value ... (5 Replies)
Discussion started by: prvnrk
5 Replies

7. Shell Programming and Scripting

Count frequency of unique values in specific column

Hi, I have tab-deliminated data similar to the following: dot is-big 2 dot is-round 3 dot is-gray 4 cat is-big 3 hot in-summer 5 I want to count the frequency of each individual "unique" value in the 1st column. Thus, the desired output would be as follows: dot 3 cat 1 hot 1 is... (5 Replies)
Discussion started by: owwow14
5 Replies

8. Shell Programming and Scripting

ksh sed - Extract specific lines with mulitple occurance of interesting lines

Data file example I look for primary and * to isolate the interesting slot number. slot=`sed '/^primary$/,/\*/!d' filename | tail -1 | sed s'/*//' | awk '{print $1" "$2}'` Now I want to get the Touch line for only the associate slot number, in this case, because the asterisk... (2 Replies)
Discussion started by: popeye
2 Replies

9. Shell Programming and Scripting

Merging two tables including multiple ocurrence of column identifiers and unique lines

I would like to merge two tables based on column 1: File 1: 1 today 1 green 2 tomorrow 3 red File 2: 1 a lot 1 sometimes 2 at work 2 at home 2 sometimes 3 new 4 a lot 5 sometimes 6 at work (4 Replies)
Discussion started by: BSP
4 Replies

10. Shell Programming and Scripting

awk to filter out lines containing unique values in a specified column

Hi, I have multiple files that each contain four columns of strings: File1: Code: 123 abc gfh 273 456 ddff jfh 837 789 ghi u4u 395 File2: Code: 123 abc dd fu 456 def 457 nd 891 384 djh 783 I want to compare the strings in Column 1 of File 1 with each other file and Print in... (3 Replies)
Discussion started by: owwow14
3 Replies
Bio::Map::GeneMap(3pm)					User Contributed Perl Documentation				    Bio::Map::GeneMap(3pm)

NAME
Bio::Map::GeneMap - A MapI implementation to represent the area around a gene SYNOPSIS
use Bio::Map::GeneMap; use Bio::Map::Gene; use Bio::Map::TranscriptionFactor; use Bio::Map::GeneRelative; # make some maps that will represent an area around a particular gene in # particular species (by default, the map represents the area in the genome # 1000bp upstream of the gene) my $map1 = Bio::Map::GeneMap->get(-gene => 'BRCA2', -species => 'human', -description => 'breast cancer 2, early onset'); my $map2 = Bio::Map::GeneMap->get(-gene => 'BRCA2', -species => 'mouse'); # model a TF that binds 500bp upstream of the BRCA2 gene in humans and # 250bp upstream of BRCA2 in mice my $rel = Bio::Map::GeneRelative->new(-description => "gene start"); my $tf = Bio::Map::TranscriptionFactor->get(-universal_name => 'tf1'); Bio::Map::Position->new(-map => $map1, -element => $tf, -start => -500, -length => 10, -relative => $rel); Bio::Map::Position->new(-map => $map2, -element => $tf, -start => -250, -length => 10, -relative => $rel); # find out all the things that map near BRCA2 in all species foreach my $map ($gene->known_maps) { foreach my $thing ($map->get_elements) { next if $thing eq $gene; foreach my $pos ($thing->get_positions($map)) { print "In species ", $map->species, ", ", $thing->universal_name, " maps at ", $pos->value, " relative to ", $pos->relative->description, " of gene ", $gene->universal_name, " "; } } } # a GeneMap isa PrimarySeq and so can have sequence associated with it $map1->seq('ATGC'); my $subseq = $map1->subseq(2,3); # TG DESCRIPTION
Model the abstract notion of the area around a gene - you don't care exactly where this area is in the genome, you just want to be able to say "something binds upstream of gene X" and "something else binds 20bp upstream of the first something" etc. It's useful for modelling transcription factor bindings sites, letting you find out which transcription factors bind near a gene of interest, or which genes are bound by a transcription factor of interest. See t/Map/Map.t for more example usage. 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 list. Your participation is much appreciated. bioperl-l@bioperl.org - General discussion http://bioperl.org/wiki/Mailing_lists - About the mailing lists Support Please direct usage questions or support issues to the mailing list: bioperl-l@bioperl.org rather than to the module maintainer directly. Many experienced and reponsive experts will be able look at the problem and quickly address it. Please include a thorough description of the problem with code and data examples if at all possible. Reporting Bugs Report bugs to the Bioperl bug tracking system to help us keep track of the bugs and their resolution. Bug reports can be submitted via the web: https://redmine.open-bio.org/projects/bioperl/ AUTHOR - Sendu Bala Email bix@sendu.me.uk APPENDIX
The rest of the documentation details each of the object methods. Internal methods are usually preceded with a _ new Title : new Usage : my $obj = Bio::Map::GeneMap->new(); Function: Builds a new Bio::Map::GeneMap object (that has placed on it a mappable element (Bio::Map::Gene) representing a gene). Returns : Bio::Map::GeneMap Args : -gene => string name of the gene this map will be for (in a form common to all species that have the gene, but unique amongst non-orthologous genes) or a Bio::Map::Gene object, REQUIRED -species => Bio::Taxon or string representing species, REQUIRED -uid => string, unique identifier for this map (must be unique amongst all gene/species combinations) -description => string, free text description of the gene -upstream => int, the number of bases the map extends before the start of the gene element (default 1000). -downstream => int, the number of bases the map extends beyond the end of the gene element (default 0). -seq => string, the sequence of the map, presumably the genomic sequence -upstream bases of the gene, including the gene, and -downstream bases of the gene get Title : get Usage : my $map = Bio::Map::GeneMap->get(); Function: Builds a new Bio::Map::GeneMap object (like new()), or gets a pre-existing one that corresponds to your arguments. Returns : Bio::Map::GeneMap Args : -gene => string name of the gene this map will be for (in a form common to all species that have the gene, but unique amongst non-orthologous genes) or a Bio::Map::Gene object, REQUIRED -species => Bio::Taxon or string representing species, REQUIRED -uid => string, unique identifier for this map (must be unique amongst all gene/species combinations) -description => string, free text description of the gene -upstream => int, the number of bases the map extends before the start of the gene element (default 1000). -downstream => int, the number of bases the map extends beyond the end of the gene element (default 0). -seq => string, the sequence of the map, presumably the genomic sequence -upstream bases of the gene, including the gene, and -downstream bases of the gene If you supply a -uid, and a map had previously been created and given that uid, that same map object will be returned. Otherwise, the combination of -gene and -species will be used to determine if the same map had previously been made. If a corresponding map hadn't previously been made, a new map object will be created and returned. unique_id Title : unique_id Usage : my $id = $map->unique_id; Function: Get/set the unique ID for this map Returns : string Args : none to get, OR string to set species Title : species Usage : my $species = $map->species; Function: Get/set Species for a map. It is not recommended to change this once set. Returns : Bio::Taxon object or string Args : none to get, OR Bio::Taxon or string to set type Title : type Usage : my $type = $map->type Function: Get Map type Returns : string 'gene' Args : none gene Title : gene Usage : my $gene = $map->gene; $map->gene(-gene => $gene); Function: Get/set the mappable element on this map that represents the gene this map is for. Once set, it is not recommended to re-set the gene to something else. Behaviour in that case is undefined. Returns : Bio::Map::Gene Args : none to get, OR to set: -gene => Bio::Map::Gene or string of the universal name (see Bio::Map::Gene docs), REQUIRED -description => string, applied to the Bio::Map::Gene -upstream => int, the number of bases the map extends before the start of the gene element (default 1000). -downstream => int, the number of bases the map extends beyond the end of the gene element (default 0). universal_name Title : universal_name Usage : my $name = $map->universal_name Function: Get/set the name of Bio::Map::Gene object associated with this map. It is not recommended to change this once set. Returns : string Args : none to get, OR string to set upstream Title : upstream Usage : my $distance = $map->upstream; $map->upstream($distance); Function: Get/set how long the map is before the start of the Bio::Map::Gene object on this map. Returns : int Args : none to get, OR int to set (the number of bases the map extends before the start of the gene) downstream Title : downstream Usage : my $distance = $map->downstream; $map->downstream($distance); Function: Get/set the nominal end of the map relative to the end of the Bio::Map::Gene object on this map. Returns : int Args : none to get, OR int to set (the number of bases the map extends beyond the end of the gene) length Title : length Usage : my $length = $map->length(); Function: Retrieves the length of the map. This is normally the length of the upstream region + length of the gene + length of the downstream region, but may be longer if positions have been placed on the map beyond the end of the nominal downstream region. Returns : int Args : none seq Title : seq Usage : $string = $obj->seq() Function: Get/set the sequence as a string of letters. When getting, If the GeneMap object didn't have sequence attached directly to it for the region requested, the map's gene's database will be asked for the sequence, and failing that, the map's gene's positions will be asked for their sequences. Areas for which no sequence could be found will be filled with Ns, unless no sequence was found anywhere, in which case undef is returned. Returns : string Args : Optionally on set the new value (a string). An optional second argument presets the alphabet (otherwise it will be guessed). subseq Title : subseq Usage : $substring = $obj->subseq(10, 40); Function: Returns the subseq from start to end, where the first base is 1 and the number is inclusive, ie 1-2 are the first two bases of the sequence. If the GeneMap object didn't have sequence attached directly to it for the region requested, the map's gene's database will be asked for the sequence, and failing that, the map's gene's positions will be asked for their sequences. Areas for which no sequence could be found will be filled with Ns, unless no sequence was found anywhere, in which case undef is returned. subseq requests that extend beyond the end of the map will throw. Returns : string Args : integer for start position AND integer for end position OR Bio::LocationI location for subseq (strand honored) OR Bio::RangeI (eg. a Bio::Map::PositionI) perl v5.14.2 2012-03-02 Bio::Map::GeneMap(3pm)
All times are GMT -4. The time now is 01:01 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy