Shell Programming and Scripting

$ 
$ # show file sizes and names
$ ls -l file* | awk '{printf("%8d %s\n", $5, $8)}'
   10100 file1_dat
      60 file1_load
      62 file1_unload
   24930 file2_dat
      61 file2_load
      62 file2_unload
$ 
$ # display contents of the files - "file1_load" and "file1_unload"
$ cat file1_load
Started at 23:09:01
Loaded records 345298
Ended at 00:12:25
$ 
$ cat file1_unload
Started at 22:24:32
593456 records unloaded
Ended at 23:08:40
$ 
$ # display contents of the files - "file2_load" and "file2_unload"
$ cat file2_load
Started at 23:47:55
Loaded records 6748392
Ended at 01:23:49
$ 
$ cat file2_unload
Started at 21:56:38
475839 records unloaded
Ended at 23:00:59
$ 
$ 
$ # show the Perl script
$ cat -n report.pl
     1  #!/usr/bin/perl
     2  use Date::Calc qw(This_Year Delta_DHMS);
     3
     4  foreach $i (glob "*_dat") {
     5    ($f = $i) =~ s/_dat$//;
     6    @s = stat($i);
     7
     8    ## Unload
     9    $unload_file = $f."_unload";
    10    open(F,$unload_file) or die "Can't open $unload_file: $!";
    11    chomp(@unload = <F>);
    12    close(F) or die "Can't close $unload_file: $!";
    13    ($unloadcount = $unload[1]) =~ s/^(\d+) records unloaded$/$1/;
    14    ($usttime = $unload[0]) =~ s/^Started at (.*?)$/$1/;
    15    @x = split(/:/, $usttime);
    16    ($uedtime = $unload[2]) =~ s/^Ended at (.*?)$/$1/;
    17    @y = split(/:/, $uedtime);
    18    ($Dd,$Dh,$Dm,$Ds) = Delta_DHMS(This_Year(),1,1, @x, This_Year(),1,2, @y);
    19    $uelapsed = sprintf("%02d:%02d:%02d",$Dh,$Dm,$Ds);
    20
    21    ## Load
    22    $load_file = $f."_load";
    23    open(F,$load_file) or die "Can't open $load_file: $!";
    24    chomp(@load = <F>);
    25    close(F) or die "Can't close $load_file: $!";
    26    ($loadcount = $load[1]) =~ s/^Loaded records (\d+)$/$1/;
    27    ($lsttime = $load[0]) =~ s/^Started at (.*?)$/$1/;
    28    @x = split(/:/, $lsttime);
    29    ($ledtime = $load[2]) =~ s/^Ended at (.*?)$/$1/;
    30    @y = split(/:/, $ledtime);
    31    ($Dd,$Dh,$Dm,$Ds) = Delta_DHMS(This_Year(),1,1, @x, This_Year(),1,2, @y);
    32    $lelapsed = sprintf("%02d:%02d:%02d",$Dh,$Dm,$Ds);
    33
    34    ## print report line
    35    printf("%-8s %10s %10s %10s %10s %10s %10s %10s %10s %10s\n",
    36            $f, $s[7], $unloadcount, $usttime, $uedtime, $uelapsed, $loadcount, $lsttime, $ledtime, $lelapsed);
    37  }
    38
$ 
$ 
$ # run the Perl script
$ perl report.pl
file1         10100     593456   22:24:32   23:08:40   00:44:08     345298   23:09:01   00:12:25   01:03:24
file2         24930     475839   21:56:38   23:00:59   01:04:21    6748392   23:47:55   01:23:49   01:35:54
$ 
$