In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Peter N Lewis) wrote:
> At 19:01 -0500 8/12/07, Dan Neville wrote: > >Does anyone know how to make a Mac OS alias in Perl? So, I wish to > >have Perl create aliases in multiple directories rather than copy > >the original file. > > There actually is no API call to create an alias file. > > You can do it in Perl as described at > > <http://use.perl.org/~pudge/journal/10437> > > Alternatively, you can make a new alias via AppleScripting the Finder as: > > set thaAlias to "Harddisk:Users:peter:thefile.cpp" as alias > > tell application "Finder" > set f to make new alias file at desktop to thaAlias > end tell > f > > Which will return the alias file created. Also, you can do: use Mac::Glue ':all'; my $finder = new Mac::Glue 'Finder'; print $finder->make( new => 'alias', at => $finder->prop('desktop'), to => $finder->obj(file => "/Users/peter/thefile.cpp") # or: # to => $finder->obj(alias => "Harddisk:Users:peter:thefile.cpp") ); -- Chris Nandor [EMAIL PROTECTED] http://pudge.net/ Open Source Technology Group [EMAIL PROTECTED] http://ostg.com/
