Experimental Physics and
Industrial Control System

Rozelle Wright <[email protected]> · Wed, 22 Mar 2000 12:17:34 -0700 (MST)

I have recently written two perl scripts which other people
might find useful.  

The first counts the number of records in a list of .db files and
prints out the number of records in each file and the total number of
records in the list of files.  
example usage: 
dbcount inj/db/*.db llrf/db/*.db > record.count

The second sorts a .db file alphabetically by record name and within each record
alphabetically by field name.
example usage:
dbsort inj.db > inj.db.sort
dbsort inj.db.old > inj.db.old.sort
diff inj.db.sort inj.db.old.sort > inj.new.old.diffs

We have found the sorting utility useful in comparing  the results of
changes made to databases that are built from capfast schematics.  Capfast
databases appear to be put out in distinctly different orders for quite minor
changes, so a straight "diff inj.db inj.db.old" usually produces a meaningless
result.

If anyone is interested in these I would be glad to share them.
Rozelle
[email protected]

Experimental Physics and Industrial Control System

Experimental Physics and
Industrial Control System