[MacPerl] StandardGetFile problems

[Paul Chernoff <pchernoff@washingtonian.com>]

I keep on trying to learn MacPerl using the book MacPerl:Power and Ease but I am getting extremely frustrated in doing a very basic action, opening a text file.

Whenever I use StandardGetFile('', 'TEXT') and try do anything in the file, following MacPerl's tutorial, MacPerl insist on reading the file as a list of Perl instructions. Below is the latest code I have attempted to use, straight from the book

if ($#ARGV < 0)  {
  use Mac::StandardFile;
  $file = StandardGetFile('', 'TEXT')
  if ($file->sfGood()) {
 	push(@ARGV, $file->sfFile());
   } else {
   	exit (1);
   }
 }
 print ("you picked: $ARGV[0]\n);

When I run this script all I get is 40 gadzillion error messages telling me that every line of the text file I opened has an error in it. What is going on.

I also tried the method of using AppleScript but that didn't work at all (Maybe MacOS 8.5 incompatibility?) so I would really like to use the built in MacPerl command for creating a open dialog box and opening a text file for manipulation. Any clues on what I am doing wrong?

___________________________________________
 Paul Chernoff
 Systems Manager
 Washingtonian Magazine
 202-862-3504
 pchernoff@washingtonian.com
___________________________________________



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch