Help for this page

Select Code to Download


  1. or download this
    my ( undef, @headings ) = split ' ', (grep /^\s*AUID/, @lines)[0];
  2. or download this
    my ( undef, @headings ) = split ' ', shift @{[grep /^\s*AUID/, @lines]
+};