Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

(crazyinsomniac) Re: Cheesy Webring

by crazyinsomniac (Prior)
on Aug 26, 2001 at 17:27 UTC ( #107927=note: print w/ replies, xml ) Need Help??

in reply to Cheesy Webring

You check to see which top level domain it is, but you forget the server. Here, you go fix: my $perlmonks = 'http://'.(($referer =~ m|www\.p|i)?'www.':'')."perlmonks.$tld";

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;"

Comment on (crazyinsomniac) Re: Cheesy Webring
Download Code
Replies are listed 'Best First'.
Re: (crazyinsomniac) Re: Cheesy Webring
by blakem (Monsignor) on Aug 26, 2001 at 17:35 UTC
    Here is how I did it in Random NonHome Nodes.
    my ($www,$tld) = $referer =~ /(www\.)?perlmonks\.(\w+)/i; [snip] my $redirurl = "http://${www}perlmonks.$tld/$node";


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://107927]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2015-10-13 08:20 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (296 votes), past polls