#!/usr/bin/perl
use strict;
use Getopt::Long;
use Data::Dumper;
use IO::File;

&GetOptions( 'd|date=s' => \(my $DATE),
             'p|path=s' => \(my $PATH),
             'h|help'   => \(my $HELP) );

usage() if defined $HELP or ! (defined $DATE || defined $PATH);

$PATH = "/Ack/$DATE" unless defined $PATH;
my $ftpoutbound = "/homes/ftpoutbound.db";

my @FileList;
opendir (DIR, $PATH) or die "Can't open dir $PATH $!";
while (my $f = readdir(DIR))
{
    next if -d $f;
    push @FileList, $f;
}
closedir DIR;

# print Dumper(\@FileList);

my %data;
foreach my $file (@FileList)
{
    my $f = new IO::File "$PATH/$file", "r"
                or die ("can't open $PATH/$file :$!");
    while (<$f>) {
        my @rec = split /[\|\*~]/;
        if ($rec[5] eq "ZZ") {
           my $id = $rec[6];
           $id =~ s/\s+//;
           $data{$id}{COUNT}++;
        }
    }
}

# print Dumper(\%data);

# merge data into %data structure with values from FTP file
my $f = new IO::File "$ftpoutbound", "r"
            or die "can't open $ftpoutbound :$!";
while (<$f>)
{
    chomp;
    my @ftp_fields = split /;/;
    if (exists $data{$ftp_fields[0]}) {
        $data{$ftp_fields[0]}{TRANSPORT} = $ftp_fields[7];
    }
}
undef $f;

# display the results
foreach (sort keys %data)
{
    printf "%s|%s|%s\n", $_, $data{$_}{COUNT}, $data{$_}{TRANSPORT};
}

sub usage
{
    print <<EOL
Usage:
This program requires one argument, w/ an optional help argument.
Options should be specified as follows:
-d|date       OPTIONAL    Takes in the mmddyyyy format only.
-p|path       OPTIONAL    Specifies a particular path.
-h|help       OPTIONAL    Prints this message.
example: ./TransactionsPerDay.pl --date 09152003
EOL
;
    exit(1);
}
[download]

Hi QM,

I did those changes as you told me .. but the output didn't come as wanted ..it was totally different, If you don't mind can u do the changes and paste me the script.. I might be changing something which i should not be.
Thanks alot

Edit BazB: removed code tags.

...can u do the changes and paste me the script...

As I noted in my update, there are some things I can't track down in your original, such as what id has to do with transport.

It would be better for you to paste the updates you've made, so we can better advise you.

-QM
--
Quantum Mechanics: The dreams stuff is made of

This may not work without some tweaking, but hopefully it will at least get you started.

#!/usr/bin/perl
use Getopt::Long;
&GetOptions('date=s'    => \$date,
            'dir=s'     => \$directory,
            'help'      => \$help);
&usage if ( defined $help || !defined $date );

my $PATH = "/Ack/$date/";
my $ftpoutbound = "/homes/ftpoutbound.db";
my %hash = ();

opendir (DIR, $PATH) || die print "can't open dir $PATH at line 62 : $
+!\n";
my @FileList = readdir(DIR);
close (DIR);
foreach $FileList(@FileList)   {
   next if $FileList =~ /^\.\.?$/;
   chomp $FileList;
   open (FILE, "$PATH$FileList") or die ("can't open $PATH$FileList :$
+!\n");
   while(<FILE>)   {
      @Fields = split /[\|\*~]/; # EDI data?
      $hash{$Fields[6]}{count}++ if ( $Fields[5] eq 'ZZ' ); # EDI?
   }
}

open (File, "$ftpoutbound") or die ("can't open $ftpoutbound at line *
+* : $!\n");
while (<File>)   {
  chomp;
  my @fields = split /\;/;
  $fields[0] =~ s/\s+//;
  $hash{$fields[0]}{transport} = $FTP_fields[7] if defined $hash{$FTP_
+fields[0]};
}
print "$_ - $hash{$_}{count} - $hash{$_}{transport}\n" for keys %hash;

sub usage { print "blah blah blah\n"; exit 1; }
[download]