in reply to RE: UserFriendly.org Full Size version forwarder :)
in thread UserFriendly.org Full Size version forwarder :)

#!/usr/global/bin/perl

use File::Basename;

my $search_url = 'http://www.userfriendly.org/cgi-bin/texhtml?form=uf/
+rdf\&action=search';
my $comics_dir = '/home/user/.comics/';
my $url;

open(IN, "wget -q -O - $search_url |") or die $!;

while (<IN>) {
    if (/Today\'s Strip/) {
    <IN> =~ m|<link>(.*)</link>|;
    $url = $1;
    break;
    }
}

my $gif = $comics_dir . basename($url);

system("wget -q -O $gif $url");
system("xv $gif");

[download]

Replies are listed 'Best First'.
Re: Re: RE: UserFriendly.org Full Size version forwarder :)
by Anonymous Monk on Jun 08, 2001 at 21:34 UTC 
    #!/usr/global/bin/perl -w

use File::Basename;

my $search_url = 'http://www.userfriendly.org/cgi-bin/texhtml?form=uf/
+rdf\&action=search';
my $comics_dir = '/home/user/.comics/';

open(IN, "wget -q -O - $search_url |") or die $!;
while (<IN>) { last if /Today\'s Strip/; }
<IN> =~ m|<link>(.*)</link>|;

my $gif = $comics_dir . basename($1);
system("wget -q -O $gif $1");
system("xv $gif");

    [download]
[reply]
[d/l]

In Section Code Catacombs