Help for this page

Select Code to Download


  1. or download this
    my  @table =  ('a b c d e', 'f g h i j', 'k l m n o', 'p q r s t', 'u 
    +v w x y');
    my  @table2 =  map { [(split / /, $_)[1, 4]] } @table;
    
  2. or download this
    0  ARRAY(0x803cc6d8)
       0  ARRAY(0x8042f630)
    ...
       4  ARRAY(0x8042f870)
          0  'v'
          1  'y'
    
  3. or download this
    my  @table2 =  map { join " ", (split / /, $_)[1, 4] } @table;
    
  4. or download this
       0  'b e'
       1  'g j'
       2  'l o'
       3  'q t'
       4  'v y'