I think the below will capture lines 2-6, but not line 1 (looks like 018328) is being captured by the regex. Is the syntax correct or is there a better way? Thank you .
perl
Code:
if ($FuncrefGene !~ /exonic/i && $GeneDetailrefGene=~/\D(\d+)/) { # capture the digits into $1
if ($1 > 11) { #
$1 ||= 0; # Give it a value of zero if no numeric value was found.
$classification = 'Likely Benign'; # Reclassify intronic variants (with distance only) based on distance to exon > 10 to Likely Benign
}
}
else {
if ($FuncrefGene !~ /exonic/i && $GeneDetailrefGene=~/(\D\d+)/) { # capture the digits after any non-digit into $1
if ($1 > 11) { #
$1 ||= 0; # Give it a value of zero if no numeric value was found.
$classification = 'Likely Benign'; # Reclassify intronic variants (with distance only) based on distance to exon > 10 to Likely Benign
}
}
else {
if ($FuncrefGene !~ /exonic/i) {
my ($transcript) = ($GeneDetailrefGene) =~ /(?:\.\d+[+*-])/; # Get a numeric value if exists using (.) and (+/-) and capture digits into $transcript.
$transcript ||= 0; # Give it a value of zero if no numeric value was found.
$classification = 'Likely Benign' if $transcript > 11; # Reclassify intronic variants (following c. nomenclature) to Likely Benign if distance greater than 10
}
}
i am using perl in win2000advanced server...
---------------------------
perl -version:
---------------------------
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2001, Larry Wall
Binary build 638 provided by... (1 Reply)
Hi All
I have a Small Requiement
I wanted to replace all the Follwing lines as follows
Input:: file1
EVALUATE WS-TEMP-ATTR(15:1)
WHEN 'D'
MOVE DFHDARK TO WS-ATTR-COLOR
WHEN OTHER
MOVE DFHDFT ... (9 Replies)
Using Solaris 9 and 10.
What we want to do is set up global rules for our password files to restrict all users, not only new ones set up with the rules but also the ones that have been sitting on the system for years.
Is there a global way to force all users to change their password every 90... (1 Reply)
dears
i am using solaris 10
i am facing a problem when i make setup for solaris i choose the country egypt and i select the language north america
but i forget to do that the i found the date Jun written in arabic
i want to change character set to written in english
-rw-r--r-- 1 root ... (4 Replies)
Hi,
How to check if a string on file2 exactly matches with a part or complete string on file1, and return a match indicator based on some match rules.
1) only records on file1 with category A should be matched. for other category, the output match indicator should default to 'N'
2) on file2... (13 Replies)
Hy there!
Some time ago I encrypted the harddrive of my notebook.
Now, I can't remember it correctly.
I want to create a list with all possible combinations of the words I used (I still remember all the words....).
The password was created like this:
... (1 Reply)
Hi My requirement is very simple .
I juts need to delte some lines from a file.
here comes theactual scenario
I have some data in file like say
srinivasa prabhu kumar antony
srinivas king prabhu antony
srinivas prabhu king yar venkata
venkata kingson srinivas... (6 Replies)
please help solving the following. I have access to redhat linux cluster having 32gigs of ram.
I have duplicate ids for variable names, in the file 1,2 are duplicates;3,4 and 5 are duplicates;6 and 7 are duplicates. My objective is to use only the first occurrence of these duplicates.
Lookup... (4 Replies)
In the perl below, which does execute, I am having trouble with the else in Rule 3. The digit in f{8} is extracted and used to update f accordinly along with the value in f.
There can be either - * or + before the number that is extracted but the same logic applies, that is if the value is greater... (5 Replies)
Discussion started by: cmccabe
5 Replies
LEARN ABOUT DEBIAN
dico
DICO(1) User Commands DICO(1)NAME
dico - a DICT client
SYNOPSIS
dico [-mDSHIqatvh] [-p SERVICE] [-d NAME] [-s NAME] [-i DBNAME] [-u NAME] [-k STRING] [-c STRING] [--host=SERVER] [--port=SERVICE] [--data-
base=NAME] [--source=ADDR] [--match] [--strategy=NAME] [--levdist, --levenshtein-distance=N]fR [--dbs] [--strategies] [--serverhelp]
[--info=DBNAME] [--serverinfo] [--quiet] [--noauth] [--sasl] [--nosasl] [--user=NAME] [--key, --passwordfR=STRING]fR [--autologin=NAME]
[--client=STRING] [--transcript] [--verbose] [--time-stamp] [--source-info] [--help] [--usage] [--version]
DESCRIPTION
dico is an RFC 2229 compliant dictionary client.
OPTIONS
Server selection
--host=SERVER
Connect to this server.
-p, --port=SERVICE
Specify port to connect to.
-d, --database=NAME
Select a database to search.
--source=ADDR
Set a source address for TCP connections.
Operation modes
-m, --match
Match instead of define.
-s, --strategy=NAME
Select a strategy for matching. Implies --match.
--levdist, --levenshtein-distance=N
Set maximum Levenshtein distance to N.
-D, --dbs
Show available databases.
-S, --strategies
Show available search strategies.
-H, --serverhelp
show server help.
-i, --info=DBNAME
Show information about database DBNAME.
-I, --serverinfo
Show information about the server.
-q, --quiet
Do not print the normal dico welcome.
Authentication
-a, --noauth
Disable authentication.
--sasl Enable SASL authentication (default).
--nosasl
Disable SASL authentication.
-u, --user=NAME
Set user name for authentication.
-k, --key, --password=STRING
Set shared secret for authentication.
--autologin=NAME
Set the name of autologin file to use.
-c, --client=STRING
Additional text for client command.
Debugging
-t, --transcript
Enable session transcript.
-v, --verbose
Increase debugging verbosity level.
--time-stamp
Include time stamp in the debugging output.
--source-info
Include source line information in the debugging output.
Other options
-h, --help
Give this help list
--usage
Give a short usage message
--version
Print program version
Mandatory or optional arguments to long options are also mandatory or optional for any corresponding short options.
REPORTING BUGS
Report bugs to <bug-dico@gnu.org>.
COPYRIGHT
Copyright (C) 2005, 2006, 2007, 2008 Sergey Poznyakoff License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law.
SEE ALSO dicod(8),
The full documentation for dico is maintained as a Texinfo manual. If the info and dico-doc programs are properly installed at your site,
the command
info dico
should give you access to the complete manual.
AUTHOR
dico was written by Sergey Poznyakoff <gray@gnu.org.ua>.
This manual page was written by (Ahmed El-Mahmoudy) <aelmahmoudy@sabily.org>, for the Debian project (and may be used by others).
dico (GNU dico 2.0) April 2009 DICO(1)
09-11-2017
.