Leser: 3
|< 1 2 3 >| | 23 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
use strict;
use LWP::Simple;
my $url = 'https//top.secret.net';
unless (defined ($url = get $url))
{
die "Kann $url nicht finden\n";
}
...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use warnings;
use strict;
use LWP::Simple;
my $url = "https://...";
my $content = get($url);
unless (defined($content))
{
print "Kann $url nicht finden\n";
}
|< 1 2 3 >| | 23 Einträge, 3 Seiten |