There is no strict rule for indention.
Its purpose is to quickly realize the structure. But people are different.
I usually put for/do/done on one indention level, and increase indention of the code block in between
Same for if/then/else/fi (and further indention of the code blocks in between).
--
If you really use the $gene array (and consequent use of ${gene[ ]} index) then your original IFS="," read -a makes sense, and you don't need the extra IFS stuff that SEA suggested.
Last edited by MadeInGermany; 02-23-2016 at 05:20 PM..
Reason: Code suggestion
This User Gave Thanks to MadeInGermany For This Post:
Using the following I'm trying to print the user's response to the prompt Y / N but I get nothing other than the contents of $1?
awk '{
printf($1 " ? (Y/N)")
getline myresponse < "-"
system("read myresponse")
if (myresponse == "Y")
{ print $1... (17 Replies)
I am trying to write a awk script that prompts user for input to set the FILENAME varable. I can get it set, but I think awk is not doing anything with it.
this is what I have so far
#!/usr/bin/nawk -f
BEGIN {
FILENAME = ""
printf "Enter name of file to check in : "
... (2 Replies)
Hi guys,
I am new to AWK and unix scripting. Please see below my problem and let me know if anyone you can help.
I have 2 input files (example given below)
Input file 2 is a standard file (it will not change) and we have to get the name (second column after comma) from it and append it... (5 Replies)
Hi Jim,
I have following script,i which i need to take dynamic value .
script,
nawk -v v1=grep"INT_EUR" $propertifilename | cut -d"=" -F2` -F'~' '{if (NF-1 !=v1)
{print "Error in " $0 " at line number "NR" tilde count " N-1}}' $filename
In the above script i want to use INT_EUR as a variable... (2 Replies)
Hi,
echo "Enter file name of input file list along with absolute path : "
read inputFileList
if
then
for string in `cat inputFileList`
do
echo $string
done
else
echo " file does not exist"
fi
From the above code, if the user enters a invalid file... (1 Reply)
this section of the awk code i have here takes file to work with from the user.
the user specifies the file name from the command line and the file name is assigned to the variable $FLIST
awk 'BEGIN {
while((getline < "'${FLIST}'")>0)
S
FS="\n"; RS="}\n"
}
now, i dont want... (5 Replies)
Hello,
I'm trying to figure out how best to approach this script, and I have very little experience, so I could use all the help I can get. :wall:
I regularly need to delete files from many directories.
A file with the same name may exist any number of times in different subdirectories.... (3 Replies)
Dear Friends,
I am looking for a shell script to merge input files into one file .. here is my idea:
1st paramter would be outfile file (all input files content)
read all input files and merge them to input param 1
ex: if I pass 6 file names to the script then 1st file name as output file... (4 Replies)
Bio::Tools::tRNAscanSE(3pm) User Contributed Perl Documentation Bio::Tools::tRNAscanSE(3pm)NAME
Bio::Tools::tRNAscanSE - A parser for tRNAscan-SE output
SYNOPSIS
use Bio::Tools::tRNAscanSE;
my $parser = Bio::Tools::tRNAscanSE->new(-file => 'result.tRNAscanSE');
# parse the results
while( my $gene = $parser->next_prediction ) {
@exon_arr = $gene->get_SeqFeatures();
}
DESCRIPTION
This script will parse tRNAscan-SE output. Just the tabular output of the tRNA locations in the genome for now.
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 - Jason Stajich
Email jason-at-bioperl.org
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::Tools::tRNAscanSE->new();
Function: Builds a new Bio::Tools::tRNAscanSE object
Returns : an instance of Bio::Tools::tRNAscanSE
Args : -fh/-file for input filename
-genetag => primary tag used in gene features (default 'tRNA_gene')
-exontag => primary tag used in exon features (default 'tRNA_exon')
-srctag => source tag used in all features (default 'tRNAscan-SE')
gene_tag
Title : gene_tag
Usage : $obj->gene_tag($newval)
Function: Get/Set the value used for the 'gene_tag' of genes
Default is 'tRNA_gene' as set by the global $GeneTag
Returns : value of gene_tag (a scalar)
Args : on set, new value (a scalar or undef, optional)
source_tag
Title : source_tag
Usage : $obj->source_tag($newval)
Function: Get/Set the value used for the 'source_tag' of exons and genes
Default is 'tRNAscan-SE' as set by the global $SrcTag
Returns : value of source_tag (a scalar)
Args : on set, new value (a scalar or undef, optional)
exon_tag
Title : exon_tag
Usage : $obj->exon_tag($newval)
Function: Get/Set the value used for the 'primary_tag' of exons
Default is 'tRNA_exon' as set by the global $ExonTag
Returns : value of exon_tag (a scalar)
Args : on set, new value (a scalar or undef, optional)
analysis_method
Usage : $genscan->analysis_method();
Purpose : Inherited method. Overridden to ensure that the name matches
/tRNAscan-SE/i.
Returns : String
Argument : n/a
next_feature
Title : next_feature
Usage : while($gene = $genscan->next_feature()) {
# do something
}
Function: Returns the next gene structure prediction of the Genscan result
file. Call this method repeatedly until FALSE is returned.
The returned object is actually a SeqFeatureI implementing object.
This method is required for classes implementing the
SeqAnalysisParserI interface, and is merely an alias for
next_prediction() at present.
Example :
Returns : A Bio::SeqFeature::Generic object.
Args :
See also : L<Bio::SeqFeature::Generic>
next_prediction
Title : next_prediction
Usage : while($gene = $genscan->next_prediction()) {
# do something
}
Function: Returns the next gene structure prediction of the Genscan result
file. Call this method repeatedly until FALSE is returned.
Example :
Returns : A Bio::SeqFeature::Generic object.
Args :
See also : L<Bio::SeqFeature::Generic>
perl v5.14.2 2012-03-02 Bio::Tools::tRNAscanSE(3pm)