fork download
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. my @parts = ();
  7. while (<>)
  8. {
  9. my $lno = $. % 15;
  10.  
  11. if (($lno >= 6) && ($lno <= 8))
  12. {
  13. /^.+?\:\s+(.+)/;
  14. push @parts, $1;
  15. }
  16. elsif ($lno == 13)
  17. {
  18. push @parts, $_;
  19.  
  20. print join("\t", @parts) . "\n";
  21. @parts = ();
  22. }
  23. }
  24.  
Success #stdin #stdout 0s 6132KB
stdin
REPORT ID    : XZ-12                     ABC SERVICES COMPANY                     RUN DATE: 08/05/2014
PROGRAM      : XYZ                            SYSTEM                              PAGE: 0001
BUSINESS DAY : 08/04/14                 MONTHLY  REPORT                           TIME: 06:28:35

NAME          : FUND11
SRC NUMBER  : 3978
JOB CODE      : 80

    ABC                   DEF               RISK                AZ FUND             ASZ            ADS
    FEE                  FEE                FEE                 FEE                 FEE             FEE
================== ================== ================== ================== ================== ==================
              0.00               0.00               0.00               0.00               0.00               141.00

DATE: 08/05/2014                              

REPORT ID    : XZ-12                    ABC SERVICES COMPANY                      RUN DATE: 08/05/2014
PROGRAM      : XYZ                          SYSTEM                                PAGE: 0002
BUSINESS DAY : 08/04/14                 MONTHLY  REPORT                           TIME: 06:28:35

NAME          : FUND12
SRC NUMBER  : 4027
JOB CODE       : 82

    ABC                   DEF               RISK                AZ FUND             ASZ            ADS
    FEE                  FEE                FEE                 FEE                 FEE             FEE
================== ================== ================== ================== ================== ==================
              0.00               0.00               0.00               0.00               0.00       136.64

DATE: 08/05/2014                              

REPORT ID    : XZ-12                      ABC SERVICES COMPANY                    RUN DATE: 08/05/2014
PROGRAM      : XYZ                           SYSTEM                               PAGE: 0003
BUSINESS DAY : 08/04/14                 MONTHLY  REPORT                           TIME: 06:28:35

NAME          : FUND13
SRC NUMBER  : 4193
JOB CODE       : 90

    ABC                   DEF               RISK                AZ FUND             ASZ            ADS
    FEE                  FEE                FEE                 FEE                 FEE             FEE
================== ================== ================== ================== ================== ==================
              0.00               0.00               0.00               0.00               0.00       116.64

DATE: 08/05/2014       
stdout
FUND11	3978	80	              0.00               0.00               0.00               0.00               0.00               141.00
FUND12	4027	82	              0.00               0.00               0.00               0.00               0.00       136.64
FUND13	4193	90	              0.00               0.00               0.00               0.00               0.00       116.64