Hi Stephen,
a few comments on your code:
On Tuesday 11 Jan 2011 17:44:32 Stephen Allen wrote:
> I have sucessfully created as Radio-group along the lines of
>
> @TiesArray = SSDArray($uniqueorgref);
Add:
{{{
use strict;
use warnings;
}}}
to the start of your script. Then declare all variable
Stephen Allen wrote:
I have sucessfully created as Radio-group along the lines of
@TiesArray = SSDArray($uniqueorgref);
if (@TiesArray[0] ne "") {
You are testing a list against a scalar value, but fortunately your list
has only one element. If you had warnings enabled then perl would have
Hi Shlomi
Thanks for your comments.
In fact, the problem was enirely my own fault and did not exihibit in
the code I published.
More specifically the hash I created in %TiesHash did not use the
correct Key - hence it didn't work.
Get that right and the rest falls into place nicely.
Stephen
On 2011-01-12 10:44, Shlomi Fish wrote:
Add:
{{{
use strict;
use warnings;
}}}
to the start of your script.
That adds 3 ENTERs and LEAVEs for no good reason. The code is not in a
tight loop, so that doesn't matter much, but there is more:
perl -MData::Dumper -wle '
$x = 1;
{{{
use
> "R" == Ruud writes:
R> On 2011-01-12 10:44, Shlomi Fish wrote:
>> Add:
>>
>> {{{
>> use strict;
>> use warnings;
>> }}}
>>
>> to the start of your script.
R> That adds 3 ENTERs and LEAVEs for no good reason. The code is not in a
R> tight loop, so that doesn't matte