hi problem in date

savanm

Hi all

Expand|Select|Wrap|Line Numbers

 
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.

Expand|Select|Wrap|Line Numbers

 @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...

Quote:

Originally Posted by 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.

Expand|Select|Wrap|Line Numbers

 @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.

hi problem in date

re: hi problem in date

re: hi problem in date

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about