Another option would be:
($StartMonth, $StartDay, $StartYear) = UnixDate($lclStartDate,"%m", "%d",
"%Y");
This requires that you use Date::Manip.
In this case my $lclStartDate is a variable that I allow to hold dates in
any valid format.
-----Original Message-----
From: Price, Pauline [mailto:[EMAIL PROTECTED]]
Sent: Friday, March 09, 2001 11:09 AM
To: '[EMAIL PROTECTED]'
Subject: problem with format of returned oracle dates for text file
outpu t
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
