Help for this page

Select Code to Download


  1. or download this
    $ perl -F, -lane '@F % 2 and push @D, [@F] or push @{$D[-1]}, pop @F; 
    +}{ $,=q{,}; print @{$_} for @D' input.txt
    
  2. or download this
    1/3/2007 12:20:01 AM,12.588309,9.432586,20:0.196329,7.418672,3.616305,
    +2.066482,6.873061,0.784989,1.859894,3.249620,0.450952,0.305768,0.8234
    +02
    1/3/2007 12:49:22 AM,10.958312,13.644527,41:0.483233,7.027840,4.222601
    +,0.305821,7.443877,1.552915,1.202711,5.285398,0.233119,0.425521,0.560
    +862
    
  3. or download this
    $ perl -MData::Dumper -F, -lane '@F % 2 and ($k)=@F or push @{$D{$k}},
    + @F; }{ $D{$_} = {@{$D{$_}}} for keys %D; print Dumper \%D' input.txt
    
  4. or download this
    $VAR1 = {
              '1/3/2007 12:49:22 AM' => {
    ...
                                          'SearchLoad' => '9.432586'
                                        }
            };