sathya83aa has asked for the wisdom of the Perl Monks concerning the following question:

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.

Replies are listed 'Best First'.
Re: number to date conversion
by Anonymous Monk on Jun 11, 2013 at 13:02 UTC
[reply]
Re: number to date conversion
by hippo (Archbishop) on Jun 11, 2013 at 13:30 UTC
    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.

[reply]
[d/l]
[select]
Re: number to date conversion
by thezip (Vicar) on Jun 11, 2013 at 21:21 UTC

    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";

    [download]

    What can be asserted without proof can be dismissed without proof. - Christopher Hitchens, 1949-2011
[reply]
[d/l]
Re: number to date conversion
by jnyman (Acolyte) on Jun 11, 2013 at 13:34 UTC
    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";

    [download]
[reply]
[d/l]
      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?
[reply]

Back to Seekers of Perl Wisdom