Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...

print 'Common prefix for first sample [' . getleastcommonprefix(@array
+_of_test_names) . "]\n";
print 'Common prefix for second sample [' . getleastcommonprefix(@seco
+nd_sample_array) . "]\n";

Select or download this

Common prefix for first sample [History - Family History - Suite with 
+Patient - Clinic - ]
Common prefix for second sample [WorkCenter - List Patients - ]