going through an array

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: going through an array by jeffa (Bishop) on Nov 21, 2004 at 00:26 UTC
You need tell us what you are trying to do instead of just posting your code. If you can't explain what you are trying to do, then you shouldn't expect to be able to write successful code. You also need to show exactly what `@value` contains, and a few lines from the file you opened. jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply]
Re^2: going through an array by Anonymous Monk on Nov 21, 2004 at 00:31 UTC
so initially read the first colum from here into @value `112 104.35 141.94 115 22.34 29.13 while (<IN>) { ($rub,$res) = split (/\s+/,$_); push @value, "$res\n"; }` [download] where this first column value agrees with the third colum in the next file, replace 100.0 with 3.0 `1 59 49 0.0 0 100.0 0.0 1 60 50 0.0 0 100.0 0.0 using code supplied in first post` [download]	[reply] [d/l] [select]
Re^3: going through an array by NetWallah (Canon) on Nov 21, 2004 at 01:50 UTC
Your description of column counting seems to be a bit off. In your case, the SECOND column values (104.35, 22.34) get populated into @value. If you had wanted the first column, you would need to "push @value,$rub" . (And why are you adding the trailing "\n" ?) Also, in your original post, taking the index `[3]` from the result of the "split" gets you the FOURTH column (zero based). Most likely, a better understanding of perl's zero-based indexing would help fix this program. Earth first! (We'll rob the other planets later)	[reply] [d/l]
Re^4: going through an array by steves (Curate) on Nov 21, 2004 at 03:10 UTC
Re^5: going through an array by chromatic (Archbishop) on Nov 21, 2004 at 04:08 UTC
Re^3: going through an array by Anonymous Monk on Nov 21, 2004 at 00:34 UTC
btw these are only segments from complete files	[reply]
Re: going through an array by steves (Curate) on Nov 21, 2004 at 00:25 UTC
Maybe you could show us the code that puts data in @value. If the data is not numeric your == comparison could be the problem -- try eq instead.	[reply]
Re: going through an array by Zaxo (Archbishop) on Nov 21, 2004 at 07:37 UTC
I have no idea if this will fix your problem, but your substitution probably needs to have the dot backwhacked, `if ($pdb_res == $value[$i]) {s/100\.0/3.0/};` Otherwise it matches any character after '100' and before a zero. Also, `($pdb_res) = (split /\s+/,$_) [3];` is written as well by `$pdb_res = (split)[3];` but that does not reflect any error and does not change the correctness of the code. After Compline, Zaxo	[reply] [d/l] [select]
Re^2: going through an array by Anonymous Monk on Nov 21, 2004 at 09:38 UTC
thanks, it seems that the problem was with the trailing \n added to the @value	[reply]