From 0728c4a8f726081a38a44fcc23f4ac5328950ae1 Mon Sep 17 00:00:00 2001
From: Michael Rodriguez <michael@newdream.net>
Date: Mon, 25 Feb 2008 11:27:49 -0800
Subject: [PATCH] crushmap generator in testing phase

---
 src/crush/crushmap.pl | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 src/crush/crushmap.pl

diff --git a/src/crush/crushmap.pl b/src/crush/crushmap.pl
new file mode 100755
index 0000000000000..c1f4be3364936
--- /dev/null
+++ b/src/crush/crushmap.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use CrushWrapper;
+use Config::General;
+use Tie::DxHash;
+tie my %conf, "Tie::DxHash";
+
+my $wrap = new CrushWrapper::CrushWrapper;
+
+$wrap->create();
+
+%conf = Config::General::ParseConfig( -ConfigFile => "sample.txt", -Tie => "Tie::DxHash" );
+
+my $arr = \%conf;
+
+use Data::Dumper;
+
+print Dumper $arr;
+
+
+=item
+@nums = (
+    1, -4, 11, 17, 1, -92, -15, 48
+    );
+
+print "length: " . scalar(@nums) ."\n";
+($result, $min, $max, $avg) = $wrap->add_bucket('1','1','1',scalar(@nums),\@nums,\@nums);
+
+print join(" : ", ($result, $min, $max, $avg) );
+print "\n";
+=cut
+
+
-- 
2.39.5