my $date = $ARGV[0];
$date or $date = `date --date='1 hour ago' +%Y-%m-%d`;
chomp $date;

[download]

In this code if the "$date" is NULL then its taking the system date.

But in this code if the hash element is NULL I need to write '0'. For that I tried this way 

foreach my $sub_user_error (@db_user_errors)
{
       $worksheet->write( $row, $col, $db_error_data{$hour}{'Submissio
+n_user_error'}{$sub_user_error} or 0, $number);
       $col++;
}
$row++;

[download]

But its not working. Later I tried like 

 
foreach my $sub_user_error (@db_user_errors)
{
     if ($db_error_data{$hour}{'Submission_user_error'}{$sub_user_erro
+r} eq "")
     {
         $worksheet->write( $row, $col, 0, $number);
         $col++;
     }
     else
     {
         $worksheet->write( $row, $col, $db_error_data{$hour}{'Submiss
+ion_user_error'}{$sub_user_error}, $number);
         $col++;
     }
}
$row++;

[download]

Its working but seems too ugly. Is there any better way for doing this.

Thanks in Advance for helping

In reply to Need help with Excel::Writer::XLSX in using 'or' by ravi45722

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.