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 (file)
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";