From: Aleš Křenek <ljocha@ics.muni.cz>
Date: Thu, 31 Aug 2006 14:23:45 +0000 (+0000)
Subject: util to extract fields from ULM
X-Git-Tag: merge_30_31_after2~3
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=343b087f3f18e6d0d545e45ba70376bebef02e7c;p=jra1mw.git

util to extract fields from ULM
---

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";