Here are five lines using wget in perl ############################################ #how to use: perl a.pl [pdbfile 4 letter code] #perl a.pl 1dn2
$pdbn=$ARGV[0]; $pdbn=~ tr/a-z/A-Z/; $temp = sprintf "-q -O %s.pdb \"http:\/\/www.rcsb.org\/pdb\/files\/%s.pdb\?format=PDB&pdbId=%s&compression=None\"", $pdbn,$pdbn,$pdbn; `wget $temp`; ############################################# __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com
