Help for this page

Select Code to Download


  1. or download this
    my @lines = map { /:\s*(.*)/ ? $1 : () } @array;
    
  2. or download this
    my @lines = map { /:\s*(.*)/ ? $1 : () } <$fh>;