November 19, 2008 01:11am pst

1. Adam314 809,084
2. ozo 479,021
3. FishMonger 141,057
4. Tintin 118,861
5. hielo 74,770
6. mjcoyne 69,328
7. nedfine 45,740
8. clockwatc... 30,424
9. ahoffmann 29,519
10. teraplane 29,380
11. kawas 27,030
12. ravenpl 24,800
13. omarfarid 21,868
14. SmartIntel 21,140
15. oleber 18,950
16. marchent 17,990
17. suhasbha... 17,320
18. ddrudik 14,250
19. nognew 13,250
20. MadShiva 12,300
21. nixfreak 12,200
22. caterham... 11,000
23. hernst42 10,080
24. agriesser 10,000
25. sentner 9,648

1. ozo 3,750,786
2. Adam314 1,731,503
3. Tintin 767,155
4. kandura 579,965
5. mjcoyne 521,466
6. jmcg 517,810
7. FishMonger 493,691
8. maneshr 385,976
9. teraplane 373,588
10. manav_m... 338,348
11. clockwatc... 246,712
12. ahoffmann 215,082
13. rj2 211,481
14. davorg 153,165
15. Tim_Utsc... 113,107
16. shlomoy 109,110
17. gripe 98,559
18. suhasbha... 92,720
19. Perl_Diver 82,106
20. hielo 80,720
21. sstouk 74,470
22. nedfine 73,307
23. jhurst 72,319
24. rugdog 70,951
25. ZiaTioN 66,995

08.23.2008 at 05:15AM PDT, ID: 23672289

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.0

Any perl date module faster than Date::Manip for incrementing dates?

Asked by jrram in Perl Programming Language

Tags: Perl

Hello coders,

I posted an earlier question (http://www.experts-exchange.com/Programming/Languages/Scripting/Perl/Q_23661802.html) where I needed to increment a date. Ozo provided a solution that works perfectly. The problem I'm having now is with performance.

Take a look at my code below. I am performing two substitutions on a rows of data X times and writing the result to a file. If I run the script with just performing a 'string' substitution in order to create 10,000 records, the script finishes in 9 seconds. If I run the same script performing the 'date' substitution, the script completes in 51 seconds. This is a big difference especially since my ultimate goal is to create a much larger data set.

When reading the Date::Manip documentation it points out that its the slowest of the date modules. So I was wondering if there was another date manipulation module that would accomplish the same thing as the Date::Manip, increment date function but perform faster.

If there is, please provide an example.Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

           
           
             use Date::Manip;
 
my $inp_file="INPUT_TEST.xml";
 
$data_file="out_pl.txt";
open(DAT, ">$data_file") || die("Could not open file!");
 
 
$startAt = 1;
$stopAt = 10000;
 
for ($i = $startAt; $i < $stopAt + 1; $i++) {
 
	$final_line_output = $list_of_templates;
 
	$final_line_output =~ s/<variable>/$i/g;  #String substitution
 
	$final_line_output =~ s/<vdt>(\d{2}-[A-Z]{3}-\d{4})<\/vdt>/UnixDate(DateCalc($1, "+$i days"),"%d-%b-%Y")/eg;  #Date Substitution		 
 
	print "$final_line_output \n";
	#print DAT "$final_line_output\n";
}
 
close(DAT);
           
         

Keywords: Any perl date module faster than Date…

	Title
1	Date::Manip calculate business times
2	How to increment dates in perl?
3	How can I set the NYSE holidays into D…
4	How to substitute a date value in a stri…
5	DATE::Manip Date_PrevWorkDay
6	Perl localtime returns inconsistant time …

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Any perl date module faster than Date::Manip for incrementing dates?

Asked by jrram in Perl Programming Language

Tags: Perl

About this solution