hi problem in date

[savanm]

Hi all

my $temp;
$temp=20070106;
#####the first four digit is year next two digit is month nd the final two is day
print $temp;
$temp1=$temp;
$temp1=~s/(.{4})(.{2})(.{2})/$1$2$3/g;
print $temp1;
 

in the above code result of $temp1 also the same...I need the o/p like this

Format 2007jan06...
If the i/p is 200070406...
then i need the o/p 2007april06

i need the above o/p with out using the perl module...

Navas.M

[KevinADC]

Use a hash table or an array to define the months. An array works good because the months are numbers just like array indexes.

@months = qw(foo jan feb mar apr may jun jul aug sep oct nov dec);
my $temp;
$temp=20070106;
#####the first four digit is year next two digit is month nd the final two is day
$temp1=$temp;
$temp1=~s/(.{4})(.{2})(.{2})/$1$months[$2]$3/g;
print $temp1;
 

'foo' is used just to pad the array because the array index starts at zero, and there is no month zero.

[savanm]

Thanks Kevin... Code is working well...

Use a hash table or an array to define the months. An array works good because the months are numbers just like array indexes.

@months = qw(foo jan feb mar apr may jun jul aug sep oct nov dec);
my $temp;
$temp=20070106;
#####the first four digit is year next two digit is month nd the final two is day
$temp1=$temp;
$temp1=~s/(.{4})(.{2})(.{2})/$1$months[$2]$3/g;
print $temp1;
 

'foo' is used just to pad the array because the array index starts at zero, and there is no month zero.