Help for this page

Select Code to Download


  1. or download this
    % perl -wle '@aoa = ([(1) x 3]) x 3; $aoa[1][2] = 3; print "@$_" for @
+aoa'
1 1 3
1 1 3
1 1 3
  2. or download this
    % perl -wle '@aoa = map [(1) x 3], 1..3; $aoa[1][2] = 3; print "@$_" f
+or @aoa'
1 1 1
1 1 3
1 1 1