Changeset 24504

Timestamp:

11/20/08 20:23:55 (7 weeks ago)

Author:

daisuke

Message:

ps isn't the best choice, but what the heck.

Files:

• lang/perl/DateTime-Lite/trunk/tools/profile/simple_create.pl (modified) (1 diff)

lang/perl/DateTime-Lite/trunk/tools/profile/simple_create.pl

@@ -1 +1 @@
 use strict;
-use DateTime::Lite;
+
+my $class = $ENV{DATETIME_CLASS} || 'DateTime::Lite';
+
+my $before = get_memory();
+print "memory usage before using $class: $before\n";
+
+eval "require $class";
 
 for(1..100) {
-    DateTime::Lite->new(year => 2000, month => 1, day => 1);
+    $class->new(year => 2000, month => 1, day => 1);
 }
+
+my $after = get_memory();
+print "memory usage after using $class: $after\n";
+print "  memory used = ", $after - $before, "\n";
+
+sub get_memory {
+    my $output = `ps -opid,rss`;
+
+    foreach (split /\n/, $output) {
+        next unless /^\s(\d+)\s+(\d+)/;
+        next unless $1 eq $$;
+
+        return $2;
+    }
+}