sub consolidate_logs ($$$) {
    my ($destination_file, $dir, $filename_str) = @_;

    my @files = get_matching_filenames($dir, $filename_str);

    open(OUT,"> $destination_file") or die "Could not open file \"$destination_file\" for writing";

    foreach my $source_file (@files) {
        print "Processing of log \"$source_file\" started at " . localtime() . "\n";

        system("cat $dir/$source_file >> $destination_file");

        print "Processing of log \"$source_file\" ended at " . localtime() . ".\n";
    }

    close(OUT);
}

##</code><code>##

sub consolidate_logs ($$$) {
    my ($destination_file, $dir, $filename_str) = @_;

    system("ls $dir | grep $filename_str | xargs -iX cat $dir/X >> $destination_file");
}

##</code><code>##

sub split_logs ($$$) {
    my ($source_file, $business_list, $filename_prefix) = @_;

    foreach my $business (@$business_list) {
        my ($name, $file) = @$business;

        my $outfile = "/inside29/urchin/test/newfeed/$filename_prefix-$file";

        print  "Creating of log for $name started at " . localtime() . "\n";

        system("grep \"$name\" $source_file >> $outfile");

        print "Log for $name created at " . localtime() . "\n";
    }
}