cannot track error in join command 1

[1DMF]

hello,

There is something causing the following line to error...

$xls.='"'.join('","',map{$$row{$_}}@head).'"'."\n";

only all I get is

Internet Explorer cannot display the webpage

How do i work out why the join is moaning?

I use

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use warnings;
use strict;

but no matter what i do I cannot get an actual error to display to give me a hint.

Any ideas?, what info do you wan't me to post to help?


"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!

 

[1DMF]

ok , don't know why but as soon as I added this..

local $| = 1;

I got

Use of uninitialized value in join or string

But why can't I join a null string?

How do I get round it?

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!

 

[1DMF]

I did some testing using

        for(@head){
            if(!$row->{$_}){
                $row->{$_} = " ";
                print "ID = $row->{'Rec_ID'} , missing = $_<br><br>";
            }
        }

and it resolved it, so basically because some of the hash keys have a NULL value (well they are a recordset of a SQL DB), the join command becomes useless.

How do you tell the join to initialise any non-initialised hass key value to ' ', or is it not possible?

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!

 

[1DMF]

i've tried

       $xls.='"'.join('","',map {[b]defined() ? $row->{$_}: ''[/b]}@head).'"'."\n";

but that doesn't work.



"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!

 

[1DMF]

woohoo I cracked it....

$xls.='"'.join('","',map {$row->{$_} ? $row->{$_} : ''}@head).'"'."\n";

man that gave me a headache!



"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!

 

[max1x]

A star for u for "crackin" it .

 

[1DMF]

Thank you kind sir!

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!

 

[stevexff]

Worth a star for the solo effort alone!

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]