Use alter session in the code.
$dbh->do(q{Alter session set nls_date_format = 'YYYMMDD'});
..or whatever format you
want.
All the dates will be in that format.
On 09-Mar-01 Price, Pauline wrote:
> Hello,
>
> I am a recent returnee to the Perl fold. I last used perl 4 and sybperl.
> Now several years later I am using the latest perl and DBI. Obviously
> I am quite new to the current environment. I have the following code:
>
> while (my @fetchData = $stBankAccountH->fetchrow_array()) {
> if (!($stBankAccountH->err)) {
>
> my $output = join ("|",@fetchData);
> print OUT "$output\n";
>
> } else {
>
> return $flag;
>
> }
>
> My @fetchData array contains 110 columns of which 5 are dates. The string
> $output represents those dates in the format DD-MMM-YY. I need to have a
> 4 digit year. I tried neat_list - same problem, only worse, as all values
> were
> quoted as well as separated, which is not good.
>
> In reading the documentation I have seen that NAME and TYPE are available,
> and I think that that could help. I prefer to iterate though the results
> and just
> test the type. If the type is date, format it especially, otherwise just
> concatenate
> the results. However, I haven't seen any examples in the docs so far that
> show
> how to format a returned date. Or my only recourse to format the date in my
> SQL
> code? Not Ideal, I'm doing "select *" - and then the solution wouldn't be
> general.
>
> Of course if the format that I am getting currently, DD-MMM-YY, is
> controlled by
> some Perl default, please point me at the setting - I'd be so happy.
>
> Thank you,
>
> Pauli
----------------------------------
E-Mail: Scott T. Hildreth <[EMAIL PROTECTED]>
Date: 09-Mar-01
Time: 11:11:49
----------------------------------
