Some insteresting ones: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)); }
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)
In reply to (jeffa) Re: Scrolling Other Users
by jeffa
in thread Scrolling Other Users
by VSarkiss
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |