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

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]
[oiskuu]: Someone needs to re-read How do I use the power of consideration responsibly? carefully. Consideration is not intended for stamping out humor, AFAIK.
[oiskuu]: E.g. Re^3: Big thank you to the Perl community. is surely dry humor (not mine). Don't they teach humor in german schools!?

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (13)
As of 2017-04-27 19:49 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (512 votes). Check out past polls.