number to date conversion

[sathya83aa]

Hi all..

I have a variable like MMDDYY. I would like to convert it into MM/DD/YY format.

Also I have a variable like 1234567890. I would like to convert it amount format with decimal values. ie 12,345,678.90

Please help me with this.

Thanks,

Sathya V.

[Anonymous Monk]

Sure, help yourself :) commify, split, join, perlfaq5#How can I manipulate fixed record length files?

[hippo]

I have a variable like MMDDYY. I would like to convert it into MM/DD/YY format.

join('/',$i=~/../g);

which assumes $i is your variable.

[thezip]

Yet another WTDI:




#!/perl/bin/perl

use strict;
use warnings;

my $YYMMDD = '130510';
my @D      = unpack('(A2)*', $YYMMDD);
my $date   = join('/', @D);

print $date, "\n";

[jnyman]

Suggestion:

use 5.014;

my $str = "123456";
say join '/' => $str =~ /../g;

my $val = "213450";
my ( $whole, $dec ) = $val =~ /(.*?)(..?)$/;
$dec = "0$dec" if length $dec == 1;
$whole =~ s/(.{1,3}?)(?=(...)+$)/$1,/g;
$whole //= 0;
say "$whole.$dec";

[sathya83aa]

Thanks for your reply jnyman..I have the perl version v5.8.8 only, so unable to run your command. Can you please help me with someother suggestions?