#!/usr/local/bin/perl #checks to see if a chain is in the models.97 library #Usage: in-models97 1abcA ($chname) = @ARGV; $BASEDIR = "/projects/compbio/experiments/models.97/pdb"; $TWOLET = substr($chname, 0, 2); if (-e "$BASEDIR/$TWOLET/$chname/nostruct-align"){ print "$chname models found\n"; } else { print "$chname not in model library\n"; }