Thank you @Aia, your perl is much more complete than mine. Can the header be included with each sequence and if there is no repeat in that sequence Nothing Detected results? Thank you very much .
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)
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)
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)
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)
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)
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)
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)
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)
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
LEARN ABOUT DEBIAN
number::range
Number::Range(3pm) User Contributed Perl Documentation Number::Range(3pm)NAME
Number::Range - Perl extension defining ranges of numbers and testing if a number is found in the range. You can also add and delete from
this range.
SYNOPSIS
use Number::Range;
my $range = Number::Range->new("-10..10,12,100..120");
if ($range->inrange("13")) {
print "In range
";
} else {
print "Not in range
";
}
$range->addrange("200..300");
$range->delrange("250..255");
my $format = $range->range;
# $format will be '-10..10,12,100..120,200..249,256..300'
DESCRIPTION
Number::Range will take a description of a range, and then allow you to test on if a number falls within the range. You can also add and
delete from the range.
RANGE FORMAT
The format used for range is pretty straight forward. To separate sections of ranges it uses a "," or whitespace. To create the range, it
uses ".." to do this, much like Perl's own binary ".." range operator in list context.
METHODS
new
$range = Number::Range->new("10..20","25..30");
Creates the range object. It will accept any number of ranges as its input.
addrange
$range->addrange("22");
This will also take any number of ranges as input and add them to the existing range.
delrange
$range->delrange("10");
This will also take any number of ranges as input and delete them from the existing range.
inrange
$range->inrange("26"); my @results = $range->inrange("27","200");
This will take one or more numbers and check if each of them exists in the range. If passed a list, and in array context, it will
return a list of 0's or 1's, depending if that one was true or false in the list position. If in scalar context, it will return a
single 1 if all are true, or a single 0 if one of them failed.
range
$format = $range->range; @numbers = $range->range;
Depending on context this will return either an array of all the numbers found in the range, for list context. For scalar context it
will return a range string.
size
$size = $range->size;
This will return the total number of entries in the range.
EXPORT
None by default.
SEE ALSO
Number::Tolerant, Tie::RangeHash, and Array::IntSpan for similar modules.
AUTHOR
Larry Shatzer, Jr., <larrysh@cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2004-12 by Larry Shatzer, Jr.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-06-20 Number::Range(3pm)