From 343b087f3f18e6d0d545e45ba70376bebef02e7c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= <ljocha@ics.muni.cz>
Date: Thu, 31 Aug 2006 14:23:45 +0000
Subject: [PATCH] util to extract fields from ULM

---
 org.glite.lb.client/examples/ulmfields.pl | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 org.glite.lb.client/examples/ulmfields.pl

diff --git a/org.glite.lb.client/examples/ulmfields.pl b/org.glite.lb.client/examples/ulmfields.pl
new file mode 100644
index 0000000..fcf7f83
--- /dev/null
+++ b/org.glite.lb.client/examples/ulmfields.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -n
+
+BEGIN{
+	@pf = split /,/,shift;
+};
+
+next if /^\s*$/;
+
+@F = split / /;
+
+undef $prev;
+undef %f;
+
+for $f (@F) {
+	if ($f =~ /^[.A-Z_]+="/) {
+#		print $prev,"\n" if $prev;
+		@P = split /=/,$prev,2;
+		$f{$P[0]} = $P[1];
+		$prev = $f;
+	}
+	else { $prev .= $f; }
+}
+
+# print $prev,"\n";
+@P = split /=/,$prev,2;
+$f{$P[0]} = $P[1];
+
+for $f (@pf) {
+	print "$f=$f{$f}\n";
+}
+print "\n";
-- 
1.8.2.3