Shell Programming and Scripting

opendir (DIRHNDL, "$ARGV[0]")

opendir (DIRHNDL, "/my/dir/path")

-bash-3.2$ ./file_check.pl
./file_check.pl: line 3: sub: command not found
./file_check.pl: line 5: =: command not found
./file_check.pl: line 6: -=: command not found
./file_check.pl: line 7: =: command not found
./file_check.pl: line 9: syntax error near unexpected token `('
./file_check.pl: line 9: `      $mtime = (stat("$_[0]"))[9] || die "cannot stat file $!";  '

#!/usr/local/bin/perl -w
sub checkFile{

      $today = time;
      $today -= $today % 86400;
      $return_value = 0;
                                    #
      $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, "/loc1/partition4/server88") ||  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;

-bash-3.2$ ./file_check.pl
./file_check.pl: line 3: sub: command not found
./file_check.pl: line 5: =: command not found
./file_check.pl: line 6: -=: command not found
./file_check.pl: line 7: =: command not found
./file_check.pl: line 9: syntax error near unexpected token `('
./file_check.pl: line 9: `      $mtime = (stat("$_[0]"))[9] || die "cannot  file $!";  '

type perl
which perl

perl is hashed (/usr/local/bin/perl)

/usr/local/bin/perl