Help for this page

Select Code to Download


  1. or download this
    [me@host]$ perl -le 'print join(",", map { splice (@{$x ||= [1..10]},i
+nt rand @$x,1) } (1..3))'
5,1,8
[me@host]$
  2. or download this
    ------------
:Wq
Not an editor command: Wq