Help for this page

Select Code to Download


  1. or download this
        @a = map{(split)[0]}@a;
  2. or download this
        perl -lane 'print $F[0] if @F' file
  3. or download this
        @a = grep!/^:/,map+(split)[0],@a;