Re: [MacPerl] StandardGetFile problems

["Paul J. Schinder" <schinder@pobox.com>]

At 4:36 PM -0500 11/5/98, Paul Chernoff wrote:

} 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')
                                       ^^^ syntax error #1, missing ;
}   if ($file->sfGood()) {
}  	push(@ARGV, $file->sfFile());
}    } else {
}    	exit (1);
}    }
}  }
}  print ("you picked: $ARGV[0]\n);
                                 ^^^ syntax error #2, missing "

After you fix the syntax errors, your code works.

}
} 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
} ___________________________________________


-----
Paul J. Schinder
schinder@pobox.com

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