#!/usr/bin/perl -w

#program to print longest file name in a directory - resursive


if (! @ARGV)	  {
   print "Must have a directroy argument\n";
   exit;
}

open(FIND, "find . -print |") || die "Couldn't run find: $!\n";


$length = 0;


FILE:
while ($file = <FIND>)	{
	chop $file;
	if (! -d $file) {
	   print "$file\n";
	   $newlength = `echo $file | wc -c`;
	   if ($newlength > $length)	 {
	      $length = $newlength;
	      $name = $file;
	   }
	   next FILE;
	}
	
}

print "Longest File was $name\n";

use Cwd 'chdir';

# identify target directory
if ($#ARGV < 0 or $ARGV[0] eq ".") {
  # use current directory
  $targetDir = $ENV{PWD};
}
else {
  if (! -d $ARGV[0]) {
    # specified directory doesn't exist
    print "    $ARGV[0] is not a valid directory.\n\n";
    exit(1);
  }
  else {
    # capture target directory
    chdir $ARGV[0];
    $targetDir = $ENV{PWD};
  }
}

if (opendir (DIR, "$targetDir") == 0) {
  print "    Can't open directory $targetDir\n\n";
  exit(2);
}
else {
  # list everything in the directory
  @dir_items = readdir DIR;
  closedir DIR;

  $maxLen = 0;
  foreach $object(@dir_items) {
    # evaluate files only
    if (-f $object) {
      if (length($object) > $maxLen) {
        $maxLen = length($object);
        $maxFile = $object;
      }
    }
  }
}

if ($maxLen > 0) {
  print "Longest file is $maxFile, at $maxLen bytes\n";
}
else {
  print "No files were found in the specified directory.\n";
}

exit(0);