joining more than 1 array

Expand Post »

Helllo all,
well I am trying to split a file on the basis of space first and then trying to join it with "-" but i am not able to do it, can sumone please suggest what should I do in order to do it.
I am attaching the required part of the whole code where I think the changes are required. It is just that i have a list of dates like this 30 jun 2008 and i want to change it in this format 30-jun-2008.

Thanks
Aj

Perl Syntax (Toggle Plain Text)
if ($lines =~m/Date/)
          {
	   $lines=~s/\s+$//g;
           @aj2=split(/:/,$lines);
	   push(@date,$aj2[1]);
	   my($dd,$mm,$yy) =    (split(/\s/,$date[0]))[1,2,3];
	   push(@date1,"$dd");
           push(@month1, "$mm");
           push(@year1,"$yy");
         my($date2)= (join('-',@date1,@month1,@year1)); 
       print"$date2";
 }
if ($lines =~m/Date/)
          {
	   $lines=~s/\s+$//g;
           @aj2=split(/:/,$lines);
	   push(@date,$aj2[1]);
	   my($dd,$mm,$yy) =    (split(/\s/,$date[0]))[1,2,3];
	   push(@date1,"$dd");
           push(@month1, "$mm");
           push(@year1,"$yy");
         my($date2)= (join('-',@date1,@month1,@year1)); 
       print"$date2";
 }

Similar Threads

How can is see what button is pressed in a button array in VB.NET
troubleshoot char array; in C++
Dynamic array => dropdown issues... in PHP
passing a pointer/reference to array into a class in C#
joining array, but still read as number in ASP

ajay_p5

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

29 posts
since Apr 2009

Permalink

Oct 21st, 2009

Re: joining more than 1 array

1. if ($lines =~m/Date/) {
2 $lines=~s/\s+$//g;
3. @aj2=split(/:/,$lines);
4. push(@date,$aj2[1]);
5. my($dd,$mm,$yy) = (split(/\s/,$date[0]))[1,2,3];
6. my($date2)= (join('-',$dd,$mm,$yy));
7. print $date2;
try this....it will work

vbharathi

Reputation Points: 13

Solved Threads: 1

Newbie Poster

Offline

8 posts
since Oct 2009

Permalink

Oct 21st, 2009

Re: joining more than 1 array

Thanks..it works.

ajay_p5

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

29 posts
since Apr 2009

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: Basic parsing problem...Help plz

Next Thread in Perl Forum Timeline: Perl One Liner: Replace {(

DaniWeb Message

Cancel Changes

User Name
Password