In article <p05101401b888f79cab91@[203.47.34.3]>, [EMAIL PROTECTED] (Peter N Lewis) wrote:
> At 21:13 -0500 7/2/02, Brad Rice wrote: > >How do you call Applescript from Perl? I want to make a CGI that > >runs an applescript. > > In MacPerl, use: > > &MacPerl'DoAppleScript(<<"END_SCRIPT"); > tell application "Finder" > move alias "$folder" to trash > end tell > END_SCRIPT > > I believe MacPerl can also do raw AppleEvents. Yeah. MacPerl also has Mac::Glue, a sorta "AppleScript in Perl" framework: use Mac::Glue; my $finder = new Mac::Glue 'Finder'; $finder->move( $finder->obj(alias => $folder), to => $finder->prop('Trash') ); Or one of my favorites: :) $interarchy->edit( path => $rpath, host => $host, user => $user ); $bbedit->compare( $bbedit->obj(window => 1), $lpath ); When we get Carbon running on Mac OS X, I'll be porting Mac::Glue, too. > In Mac OS X Perl, use /usr/local/bin/osascript, man osascript for > info on how to use it and send the data to it from the Perl script. > > Is there any other ways? There's a "MacPerl" module for Mac OS X with a similar interface to the MacPerl module in MacPerl, whish uses osascript. http://news2.ils.uec.ac.jp/~herr/ http://news2.ils.uec.ac.jp/~herr/OSXMacPerl-0.1.gz -- Chris Nandor [EMAIL PROTECTED] http://pudge.net/ Open Source Development Network [EMAIL PROTECTED] http://osdn.com/