[MacPerl] Droplet Helper

[Richard Rathe <rrathe@dean.med.ufl.edu>]

Here is a bit of code that saves drag and drop file names so you can rerun
the program with the same files just by double-clicking on the droplet
icon. Enjoy...

if (@ARGV) {
  open(OUTFILE,">droplet.arg") || die "Can't open droplet.arg!\n";
  print "   saving: filenames to droplet.arg\n";
  foreach $item (@ARGV) {
    print OUTFILE "$item\n";
  }
  close(OUTFILE);
} else {
  open(INFILE,"droplet.arg") || die "Can't open droplet.arg!\n";
  print "restoring: filenames from droplet.arg\n";
  while (<INFILE>) {
    chop($_);
    unshift (@ARGV, $_);
  }
  close(INFILE);
}

__________________________________________________________________________
  Richard Rathe, MD                       mailto:rrathe@dean.med.ufl.edu
  University of Florida                  http://www.med.ufl.edu/medinfo/