Shell Programming and Scripting

#!/usr/local/bin/perl
use strict;
use vars qw(%opt);
use vars qw(%logfiles);
use Data::Dumper;
use Carp;

my $foundmymessages;
my $errormymessages;

sub StartUp () {
   my $todaydate = `/location1/select.pl -0`; chomp $todaydate;
   my ($YYYY, $MM, $DD) = unpack("A4A2A2", $todaydate);
   my $yesterday = `/location1/seclect.pl -1`; chomp $yesterday;
   my ($YYYYY, $YMM, $YDD) = unpack("A4A2A2", $yesterday);
   $opt{TodayDate} = $todaydate;
   $opt{YYYY} = $YYYY;
   my ($foo,$YY) = unpack("A2A2", $YYYY);
   $opt{YY} = $YY;
   $opt{MM} = $MM;
   $opt{DD} = $DD;
   $opt{YYYYY} = $YYYYY;
   $opt{YMM} = $YMM;
   $opt{YDD} = $YDD;
   $opt{Error} = 0;
   $opt{EqualDelim}="========================================================================";
   $opt{DashDelim}="--------------------------------------------------------------------------";
} # end StartUp

sub Standby () {
   %logfiles = (
        'Location1' => "/loc/loc-01/logs/ser/Feed/TC`date '+%m%d%Y'`*.txt",
        'Location2' => "/loc/loc-02/logs/ser/Feed/TC`date '+%m%d%Y'`*.txt",
        'Location3' => "/loc/loc-03/logs/ser/Feed/TC`date '+%m%d%Y'`*.txt",
        'Location4' => "/loc/loc-04/logs/ser/Feed/TC`date '+%m%d%Y'`*.txt",        
    );

} # end Standby


sub scanLogs () {
   foreach my $logfileinstance (sort keys %logfiles) {
      my $lfile = "$logfiles{$logfileinstance}";
      

     

} # end scanLogs

#!/bin/ksh
# $1 == /path/to/files
 touch -t $(date +'%y%m%m0000') ./dummy
 find $1 -newer ./dummy -size +0 -name '*.txt'  > /dev/null
 exit $?

#!/usr/bin/perl -w 
sub checkfile{

      $today = time;
      $today -= $today % 86400;  # midnight in epoch seconds
      $return_value = 0;
                                    #  mtime in epoch seconds
      $mtime = (stat("$_[0]"))[9] || die "cannot stat file $!";  
      $size =  (stat("$_[0]"))[7];  # size in bytes
      $ok = "not ok";
      
      if( $size > 0 && $mtime >= $today )
      {
            $ok = "ok"; 
            $return_value = 1;           
      }
      print "$_[0] is $ok\n";
      return $return_value;
}

$found = 0;
opendir (DIRHNDL, "$ARGV[0]") ||  die "Cannot open directory $!";
@filelist = readdir (DIRHNDL);
closedir (DIRHNDL);

foreach $filename ( @filelist )
{
   if ($filename =~ /txt$/)
   {
     $found |= checkfile $filename;
   }
}
print "return status = $found\n";

exit 0;

opendir (DIRHNDL, '/location1/locat/*.txt' "$ARGV[0]") ||  die "Cannot open directory $!";

./myfile.pl /path/to/nowhere