Old-school teachers tend to recommend something like this (I prefer this for it's simple enough and practically works quite well):
and replace all your floating-point == with equal(). This is one method.
Perl Cookbook gives you another method, using sprintf() to convert both operands to compare to fixed number of decimal places before comparing them, stringwise (using eq instead of ==).
Hi,
I have thousands of files in a directory that have the following 2 formats:
289620178.aln
289620179.aln
289620180.aln
289620183.aln
289620184.aln
289620185.aln
289620186.aln
289620187.aln
289620188.aln
289620189.aln
289620190.aln
289620192.aln....
and:
alnCDS_1.fasta (1 Reply)
Hi,
The task i have to do is to
1- create a database contains the Names .run the query and store results in hash make the Name field is the hash key
2- in the same time i have a txt which i will loop through it word by word and check for each word if a hash key ( compare it with the Names in... (0 Replies)
Hi Perl Gurus , need URGENT HELP PLEASE !!!!!
I have one recursive Perl function which takes path of any directory as argument and returns array containing all the sub folders inside it recursively.
Now the problem is that it works well if i use it with one time but the problem is that when... (0 Replies)
I am facing a problem in replacing the file contents by iterating through the list.
My present code:
Code:
#!/bin/bash#
TFILE="/tmp/vinay/testb_1.txt"
while read linedo
aline="$line"
echo $aline
code=`echo $aline|cut -d ',' -f1`
country=`echo $aline|cut -d... (5 Replies)
Hello All,
Im a Hardware engineer, I have written this script to automate my job. I got stuck in the following location.
CODE:
..
..
...
foreach $key(keys %arr_hash) {
my ($loc,$ind,$add) = split /,/, $arr_hash{$key};
&create_verilog($key, $loc, $ind ,$add);
}
sub create_verilog{... (2 Replies)
hi all,
i am writing a ksh script, i am logging into an oracle db via sqlplus and running a select statement but i dont know how i can store the results from the sql so i can iterate over it and do more operations over it. I dont want to write a stored procedure with a cursor since i need to... (2 Replies)
Hi,
I have an hashes of hash, where hash is dynamic, it can be n number of hash. i need to compare data_count values of all .
my %result (
$abc => {
'data_count' => '10',
'ID' => 'ABC122',
}
$def => {
'data_count' => '20',
'ID' => 'defASe',
... (1 Reply)
I am trying to speed up creating a line by line hash file from a huge file using Perl.
Here is my current (working but too slow) Bash code:
(while read line; do hash=$(echo -n $line | md5sum); echo ${hash:0:32}; done)And here is my Perl code:
perl -MDigest::MD5 -le 'foreach $line ( <STDIN> )... (3 Replies)
Experts - Any advice on how to get a hash value in a foreach loop?
Values print correctly on standalone print statements, but I can't access value
in foreach loop.
See sample code below and thanks in advance.
foreach my $z (sort keys %hash) {
for $y (@{$hash{$z}}) {
print "$z... (6 Replies)
Discussion started by: timj123
6 Replies
LEARN ABOUT DEBIAN
continue
continue(3tcl) Tcl Built-In Commands continue(3tcl)__________________________________________________________________________________________________________________________________________________NAME
continue - Skip to the next iteration of a loop
SYNOPSIS
continue
_________________________________________________________________DESCRIPTION
This command is typically invoked inside the body of a looping command such as for or foreach or while. It returns a TCL_CONTINUE code,
which causes a continue exception to occur. The exception causes the current script to be aborted out to the innermost containing loop
command, which then continues with the next iteration of the loop. Catch exceptions are also handled in a few other situations, such as
the catch command and the outermost scripts of procedure bodies.
EXAMPLE
Print a line for each of the integers from 0 to 10 except 5:
for {set x 0} {$x<10} {incr x} {
if {$x == 5} {
continue
}
puts "x is $x"
}
SEE ALSO break(3tcl), for(3tcl), foreach(3tcl), return(3tcl), while(3tcl)KEYWORDS
continue, iteration, loop
Tclcontinue(3tcl)