in reply to Computer Assisted Gloating

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!'
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!!!

Replies are listed 'Best First'.
Re^2: Computer Assisted Gloating
by Tanktalus (Canon) on Apr 11, 2005 at 17:20 UTC