create test cases from I02 beamline

2010-05-27 14:03:17 +01:00
parent ba42c501df
commit 5ad3391be2
1 changed files with 11 additions and 0 deletions
@@ -0,0 +1,11 @@
+grep record BL02I-MO-IOC-02.db |\
+grep -v '^#' |\
+perl -e '
+%h = (); 
+while(<>){ 
+   @a = split /,/; 
+   $a[0] =~ s/record\(//; 
+   $h{$a[0]}=$a[1]; 
+} 
+print %h;'
+