I am trying to add a static value to a field in perl. Basically, what happens is a file is created and "null" results in the fields then after some manipulation a field (AB) is split and the text from that is parsed into the desired fields. All that works great what doesn't is the line in bold where I am trying to add a static value of "VUS" to field 46. As of now it is still "Null". Thank you .
How does perl know that VUS goes in [45]? Thank you .
You are doing correctly: $out[45] = "VUS";
if you want to guarantee that the 46th element of @out has the string "VUS". push will only add to the end of the array, whatever that might be next as element is concerned.
$out[45] = "VUS"; pretty much assigns it and there is not way you have "NULL" after that unless it gets changed or your understanding of what you are looking at is not correct.
Do, you want to test it?
Anything I might say now, it is not a criticism of your posted code, but rather trying to understand why you do it.
I think you are trying to create two arrays of certain size with some empty value. But what you are creating is two arrays with each element holding the string "null" which it has no meaning in Perl as empty. In Perl, the equivalent would be undef
Nevertheless, you do not need to worry about that. If you create an array and manually add two elements but not in order, the remaining elements are created with the undef value assigned to it.
Example:
I am going to create an array named @a and populate only the third element $a[2] and the eleventh element $a[10]
Take a look at the representation of that array courtesy of the Data::Dumper module:
Let me point to a few issues with your posted code.
I do not know how may times the for loop is being executed because it depends of the size of @mutations set previously by my @mutations=split/,/,$vals[9], however I know that the work it does is in vain, since $gene,$transcript,$exon,$coding,$aa will only keep the last iteration of it. The rest of them are overwritten through the loop.
Is not producing much since the result is not saved anywhere.
Remember, many of these will only contain the last iteration from the for loop.
Hopefully, I have given you something to consider.
Last edited by Aia; 02-04-2016 at 01:43 AM..
Reason: correct wrong word.
@Aia, please feel free to make any improvements/suggestions to any code posted by me. I am a scientist learning programming and so this is still new to me. I learn from each post and try to improve each time. Thank you very much . I will try again tomorrow and post back.
Below code extracts multiple field values from XML into array and prints all in one line.
perl -nle '@r=/(?: jndiName| authDataAlias| value| minConnections| maxConnections| connectionTimeout| name)="(+)/g and print join ",",$ENV{tIPnSCOPE},$ENV{pr
ovider},$ENV{impClassName},@r' server.xml
... (4 Replies)
I am trying to use awk skip each line with a ## or # and check each line after for STB= and if that value in greater than or = to 0.8, then at the end of line the text "STRAND BIAS" is written in else "GOOD".
So in the file of 4 entries attached.
awk tried:
awk NR > "##"' "#" -F"STB="... (6 Replies)
Hi All
I need to add a line to a file but after a certain block of text is found
The block of text looks like this
<RDF:Description RDF:about="urn:mimetype:video/quicktime"
NC:value="video/quicktime"
and i need to add this in the next line down ( note there is... (4 Replies)
I'm writing a program which uses curl to be run on Linux PCs which will be used by a number of different users. I cannot make the users all install curl on their individual machines, so I have tried to link curl in statically, rather than using libcurl.so. I downloaded the source and created a... (8 Replies)
As an addition to our ongoing investigation into static code analysis tools for a Perl programming we are maintaining, can anyone recommend a certain tool that he/she is experienced with?
We are already actively using perl::critic (Perl::Critic) and rats... (2 Replies)
Hi everyone,
I need to replace the text between two strings (html tags) and I'm having trouble figuring out how to do so. I can display the text with sed but I'm not having any luck deleting the text between the two strings.
My file looks like this:
<oths>test</oths><div class="text">1928... (2 Replies)
hello, i need help on setting my coyote linux, i've working on this for last 5 days, can't get it to work. I've been posting this message to coyote forum, and other linux forum, but haven't get any answer yet. Hope someone here can help me...... please see my attached picture first.
... (0 Replies)
I've got a simple log file that looks something like this:
And I need to append it to look like this:
So I just want to add a timestamp and a static (non-variable) word to each line in the file. Is there an easy scripted way to cat the file and append that data to each line....?? (4 Replies)
I have a machine with an interface that has two different addresses on CentOS 5
eth0: 10.20.21.77
eth0:1 141.218.1.221
If I issue this command I get the result I'm looking for.
/sbin/route add -net 141.218.1.0 netmask 255.255.255.0 gw 10.20.21.77
ip route show dev eth0
141.218.1.0/24... (1 Reply)