ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/pdbHighlight/wget_domain_data.plx
Revision: 1.3
Committed: Tue Apr 10 09:16:48 2007 UTC (9 years, 4 months ago) by dmb
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +4 -1 lines
Log Message:
Slug fix.

Don't forget to visit http://www.bioinformatics.org/pdbHighlight/

Line File contents
1 #! /usr/bin/perl
2
3 # Released under the terms of the BiO Licence.
4 # http://biolicence.org/
5
6 use strict;
7
8 #my $SCOP_VERSION = "1.63";
9 #my $SCOP_VERSION = "1.65";
10 #my $SCOP_VERSION = "1.69";
11 my $SCOP_VERSION = "1.71";
12 #my $DALI_VERSION = "3.1beta";
13
14 my $DATA_DIR = "./Data";
15
16 my $WGET_LOG = "$DATA_DIR/$0.log";
17
18 my %FILES = (
19 "http://scop.mrc-lmb.cam.ac.uk/scop/parse" => [
20 "dir.des.scop.txt_$SCOP_VERSION",
21 ],
22 # "http://www.ebi.ac.uk/dali/domain/$DALI_VERSION" => [
23 # "DaliDomainDefinitions",
24 # ],
25 );
26
27 my $OPTIONS =
28 " --tries=3".
29 " --verbose".
30 " --timestamping".
31 " --append-output=$WGET_LOG".
32 " --directory-prefix=$DATA_DIR";
33
34 print "Logging to $WGET_LOG\n";
35
36 foreach my $url ( keys %FILES ) {
37 foreach my $file ( @{$FILES{$url}} ) {
38
39 print "Doing $url/$file -> $DATA_DIR\n";
40
41 system("wget $OPTIONS $url/$file") && die "Killed by $?\n";
42
43
44 # Check log file for updated download...
45
46 open ( LOG, "<$WGET_LOG" );
47
48 my $last_line = (<LOG>)[-2];
49
50 print "$last_line\n";
51
52 # NEED SOME PARSING!
53 }
54 }
55
56 print "OK\n";
57
58 __END__
59
60 References
61
62 SCOP DATA
63 Lo Conte L, Brenner SE, Hubbard TJP, Chothia C, Murzin A. (2002).
64 SCOP database in 2002: refinements accommodate structural genomics.
65 Nucl. Acid Res. 30, 264-267
66 http://scop.mrc-lmb.cam.ac.uk/scop/ref/nar2002.pdf
67
68 DALI DATA
69 http://www.ebi.ac.uk/dali/