Re^6: Date format

Hi,

Yes, I have already tried this(FMdd/FMmm/FMyyyy), it was not coming. I tried using the regex which was mentioned in the above chat, now it is coming but the issue is/ :, the leading zero in the time is also need to be removed.

Expected Output: 1/8/2018 5:58

Getting Output:1/8/2018 05:58

My code

 while(my @field=$sth1->fetchrow_array){
                my $col1=0;
                $field[19]=~ s!^0!!g;
                print"\t $field[19]";
                $field[8]=$priority{$field[8]};
                $field[7]=$priority{$field[7]};
                $field[33]=$statusyn{$field[33]};
                $field[17]=$status{$field[17]};
                $field[14]=$statusyn{$field[14]};
                $field[44]=$tkttype{$field[44]};
                $field[32]=$statusyn{$field[32]};
               my $arr_ref=\@field;
              # my $date = $arr_ref->[$datecol];
               # $date =~ s/ //;
                $worksheet1->write_row($row1,0,$arr_ref);
                $row1++;
        }
[download]

Thanks,

2018-09-08 Athanasius added code tags

Comment on Re^6: Date format
Download Code

Replies are listed 'Best First'.
Re^7: Date format by hippo (Archbishop) on Sep 07, 2018 at 12:44 UTC
the issue is/ :, the leading zero in the time is also need to be removed. So why not account for that? You could use a negative lookbehind as in this SSCCE: `use strict; use warnings; use Test::More tests => 1; my $datetime = '01/08/2018 05:58'; my $want = '1/8/2018 5:58'; my $have = $datetime; $have =~ s/(?<![:\d])0//g; is ($have, $want);` [download] If you use `<code>` tags in your post your code will render better too.	[reply] [d/l] [select]
Re^7: Date format by marto (Cardinal) on Sep 06, 2018 at 12:03 UTC
"Yes, I have already tried this(FMdd/FMmm/FMyyyy), it was not coming." Had you copied and paste the code I gave you I'm pretty sure it'd work on any Oracle database. You still don't show what SQL you are actually running, or how it fails, and FM doesn't work the way you assume it does. Think of it as a toggle, and read the documentation to understand what you're trying to use. `select to_char(sysdate - interval '4' hour, 'fmdd/mm/yyyy HHfm:mm') fr +om dual 6/9/2018 8:09` [download] I set the system date back a few hours to illustrate the format you say you want because of my timezone. Please read and understand How do I post a question effectively? & PerlMonks for the Absolute Beginner.	[reply] [d/l]