Help for this page

Select Code to Download


  1. or download this
    @foo = splice @bar, offset, length, LIST
  2. or download this
    @bar = 0..9;
@foo = splice(@bar, 3, 2);
...
# to @foo. the value '300' is inserted there.
# now @bar = (0,1,2,3,4,5,6,300,10)
# and @foo = (7,8,9)
  3. or download this
    $"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc