-
Notifications
You must be signed in to change notification settings - Fork 0
/
plantdb.pl
37 lines (32 loc) · 937 Bytes
/
plantdb.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
use LWP::UserAgent;
#my ($seq,@seq);
foreach my $file(glob "*.txt"){
#open FL,"$file";
my $outfile=$file;
$outfile=~s/txt/out/g;
my $browser = LWP::UserAgent->new;
my $url ='http://planttfdb.cbi.pku.edu.cn/prediction_result.php';
my $response = $browser ->post($url,['input_file' => ["$file"]],'Content_Type' => 'form-data');my $content;
while(1){
if ($response -> is_success){
$content = $response ->content;
print $file."\n";
last;
}else{
last;
}
}
my @lines= split/\n/,$content;
for (@lines){
if (/href="(TF_prediction\/tmp\/.*?\/TF.list)"/){
$url2 = "http://planttfdb.cbi.pku.edu.cn/" . "$1";
my $response2 = $browser ->get($url2,);
if ($response -> is_success){
$response2 = $browser->get($url2,':content_file'=>"$outfile");
}else{
print $file;
}
}
}
sleep(1);
}