The easy way to rub it in.

I WIN!!!! I WIN!!!! I WIN!! I WIN!! I WIN!!!! I WIN!!! I WIN!!! I WIN!!!! I WIN!!! I WIN!! I WIN!! I WIN!! I WIN!!! I WIN! I WIN!! I WIN! 

perl -MText::Autoformat -e '$_=join" ",(@ARGV)x50;s/!/"!"x[1..5]->[ran
+d(5)]/eg;print autoformat $_' 'I WIN!' 'YOU LOSE!'

[download]

Replies are listed 'Best First'.
Re: Computer Assisted Gloating
by songahji (Friar) on Apr 11, 2005 at 15:46 UTC
    For some reason, on my XP it does not work well. 
    C:\pro3>perl -MText::Autoformat -e '$_=join" ",(@ARGVx50;s/!/"!"x[1..5
+]->[rand(5)]/eg;print autoformat $_' 'I WIN!' 'YOU LOSE!'

    [download]
    The system cannot find the path specified.

    Is it because of the single quote? It is! 

    C:\pro3>perl -MText::Autoformat -e "$_=join\" \",(@ARGV)x50;s/!/\"!\"x
+[1..5]->[rand(5)]/eg
;print autoformat $_" "I WIN!" "YOU LOSE!"
I WIN!!!! YOU LOSE! I WIN!!!! YOU LOSE!!!! I WIN!!!!! YOU LOSE!!! I WI
+N!
YOU LOSE!!! I WIN!!! YOU LOSE!!! I WIN!!!!! YOU LOSE!!! I WIN! YOU
LOSE!! I WIN!!!! YOU LOSE!! I WIN! YOU LOSE!!! I WIN!!! YOU LOSE!!!! I
WIN! YOU LOSE!!!! I WIN! YOU LOSE! I WIN!!! YOU LOSE! I WIN!! YOU
LOSE!!! I WIN! YOU LOSE! I WIN! YOU LOSE!!!!! I WIN!!!!! YOU LOSE!!!! 
+I
WIN!!!!! YOU LOSE!!! I WIN!!! YOU LOSE!!!!! I WIN!!!!! YOU LOSE!!!!! I
WIN!!!! YOU LOSE! I WIN! YOU LOSE!!! I WIN!!!! YOU LOSE! I WIN!!!! YOU
LOSE! I WIN!!!! YOU LOSE! I WIN!!! YOU LOSE!!!!! I WIN!! YOU LOSE! I
WIN! YOU LOSE! I WIN!! YOU LOSE!!!!! I WIN!! YOU LOSE!!! I WIN!!! YOU
LOSE!! I WIN!!!!! YOU LOSE!!! I WIN!!!! YOU LOSE! I WIN!!!!! YOU LOSE!
+!!
I WIN!!!!! YOU LOSE!! I WIN!!! YOU LOSE! I WIN!!!! YOU LOSE!!! I WIN!!
YOU LOSE!! I WIN!!!!! YOU LOSE!!! I WIN!!! YOU LOSE! I WIN!!!! YOU
LOSE!!!! I WIN! YOU LOSE! I WIN!!! YOU LOSE!!!! I WIN!! YOU LOSE!!!!! 
+I
WIN!!! YOU LOSE! I WIN! YOU LOSE! I WIN!! YOU LOSE! I WIN! YOU LOSE!!!
+ I
WIN!!!!! YOU LOSE!!!!! I WIN!! YOU LOSE!!!

    [download]
[reply]
[d/l]
[select]
[reply]

Back to Cool Uses for Perl