t/06-Jhourcle.nott

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use feature ':5.10';
   5
   6 use DataExtract::FixedWidth;
   7
   8 my @lines = <DATA>;
   9
  10 my $de = DataExtract::FixedWidth->new({
  11         heuristic => \@lines
  12 });
  13
  14
  15 foreach my $lineidx ( 1 .. @lines ) {
  16         my $line = $lines[$lineidx];
  17         my $arr = $de->parse( $line );
  18
  19         given ( $lineidx ) {
  20
  21         }
  22
  23 }
  24
  25 1;
  26
  27 __DATA__
  28    4.8    5.2e+15    2.6e+30    306
  29   -3.5    2.4e+15    3.2e+30    245
  30  -18.2*   1.2e+15    2.2e+29     80
  31    3.4*   1.1e+15    4.4e+29     61
  32    2.6    -------    -------     47
  33    1.8*   1.6e+15    1.3e+30    333
  34    2.8*   2.4e+14    1.0e+29     73
  35    0.8    1.4e+15    2.8e+30    240
  36  -16.6*   1.8e+14    5.1e+28     81
  37   -9.3    8.3e+14    1.0e+30     73
  38   91.4*   1.6e+14*   7.6e+29*     8
  39   16.4*   7.4e+14    1.1e+30    173
  40    8.2*   8.1e+14*   9.2e+29*    99
  41    0.1*   8.5e+14    2.4e+29     67
  42  -10.2*   1.6e+14    1.9e+28    103
  43   12.3*   1.0e+15    1.2e+29    264
  44   -5.3*   5.4e+14    1.2e+29     96
  45    9.6*   2.0e+14    1.3e+29    179
  46   35.2*   1.1e+15    8.1e+29     94
  47   54.7*   -------    -------    339
  48   34.7    1.7e+15    2.4e+30    100
  49   -6.6*   3.0e+14    9.3e+29    279
  50   -2.0*   1.7e+14    4.5e+29    121
  51   -5.7*   5.3e+14    1.1e+29     90
  52    2.9*   1.6e+14    1.9e+28     92
  53    8.4*   -------    -------     92
  54