I've updated quite a bit of stuff, and I'd be interested in any comments and suggestions you all have. Please email me. I guess japhy@perlmonk.org will do fine. The latest snapshot.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Replies are listed 'Best First'.
(crazyinsomniac) Re: Regex Book
by crazyinsomniac (Prior) on Nov 18, 2001 at 14:48 UTC
    Yer book is very very nice, and highly anticipated (I can't wait to get a hard copy). I'll keep on sending you comments. Since you mention the latest snapshot, I whipped up a little something useful (well to me anyway): 
    #!/usr/bin/perl -w
#
## Please save me in the dir where you wish to "mirror" japhys website

$^W = 1;

use strict;
use HTML::LinkExtor;
use LWP::Simple;
use URI;

my $root = 'http://japhy.perlmonk.org/book/';
my %mirrors = ();


require HTML::LinkExtor;

my $p = HTML::LinkExtor->new(
    sub { my($tag, %LNK) = @_;
         if(($tag eq "a") and ($LNK{href} =~m/^$root/i))
         {
            printf "added %s \n",
            $mirrors{$LNK{href}} = (URI->new($LNK{href})->path_segment
+s())[-1];
         }
        },
    $root);

printf " fetching index.pl %s\n", getstore($root,"index.html");

$p->parse_file("index.html");


while (my ($url, $localfile) = each(%mirrors))
{
    print "mirroring $url => $localfile\n";
    printf "%s\n", mirror($url, $localfile);
}

    [download]

     
    ___crazyinsomniac_______________________________________
    Disclaimer: Don't blame. It came from inside the void
    perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

[reply]
[d/l]

Back to Meditations