in reply to Scrolling Other Users

Couldn't resist. Forgive me for not using an XML parser. 
use strict;
use LWP::Simple;

my $xml = get('http://www.perlmonks.org/index.pl?node=Other%20Users%20
+XML%20Ticker');
my @user = $xml =~ /username="([^"]+)"/g;

for my $i (0..$#user - 1) {
   next unless int rand(4);
   my ($this,$that) = @user[$i,$i+1];
   printf "%30s %s\n", "$this + $that = ",
      substr($this,0,rand(length $this)+2) 
      . substr($that,rand(length $that));
}

[download]
Some insteresting ones: 
   particle + ChemBoy =  party
      P0w3rK!d + chhe =  P0e
         BazB + dorko =  Barko
crazyinsomniac + ybiC =  crazyinC
       hacker + sfink =  hackfink
    Pug + Abstraction =  Pugtraction

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re: (jeffa) Re: Scrolling Other Users
by mt2k (Hermit) on May 30, 2002 at 05:18 UTC
    Lol jeffa, that is great. Here's a couple I got with that:

    • FoxtrotUniform + ignatz = FoxtrotUnifoatz (UniGoats?)
    • tedrek + Abstraction = tedrekaction
    • mt2k + graff = mt2kaff (yay, it's me!)
    • ChemBoy + atcroft = ChemBoyroft
    • Abstraction + ngraham = Abstractaham (my favorite!)
    • ChemBoy + atcroft = Chroft
    • digiryde + Abstraction = digistraction
    • ChemBoy + atcroft = ChemBooft (hehe!)
    • Zaxo + dvergin = Zaxovergin (sorry, couldn't resist!)
    • ChemBoy + atcroft = ChemBoatcroft
    • ChemBoy + atcroft = ChemBatcroft
    • TheDamian + atcroft = TheDaroft
    • ChemBoy + TheDamian = ChemBoyian
    • ignatz + ChemBoy = ignatemBoy
    • mt2k + this post = -- to level One ;)

    Please note that jeffa programmed this - not my fault! lol

    Anyway, I believe ChemBoy provides the best names...

[reply]

In Section Perl Monks Discussion