[MacPerl-Modules] quicktime glue help

[Julian Zgoda <jzgoda@pacbell.net>]

I'm trying to do an export from quicktime using macperl and glue and I'm
not sure how to create a reference a new file (or if I even have to in
this case).

Here's the code snippet:

#!perl -wl
use Mac::Glue ':all';
use strict;

my $finder = new Mac::Glue 'Finder';
my $qt = new Mac::Glue 'Quicktime_Player';

my $f;
foreach $f (@ARGV) {
 my $movie_obj = $finder->obj(file => $f);

 $qt->activate;
 my $open_movie = $qt->open($movie_obj);

 my $new_file = 'Yo Eddie:Desktop Folder:test.pict';
 $qt->export($open_movie , as => 'pict', to => $new_file);
}


This returns:

# Can't create alias for 'Yo Eddie:Desktop Folder:test.pict': File not
found (OS error -43)
File 'Dev:Pseudo'; Line 16

Is there something I need to do before I can export to the file system?
I've looked through the docs and the mailing list archive, but I must be
missing something.

Here's the pod desc. for export:

 $obj->export(obj , as => expk, to => alis, [using => exps,
using_settings_preset => TEXT])

  Export a movie to a file (MVWR/expo)

  Parameters:

      direct object (----): the movie to export
      as (expk): the desired file type
      to (expd): the destination file
      using (exps): the export settings to use
      using_settings_preset (pset): the name of the export settings
preset to use


The applescript I'm trying to reproduce is

set fileName to 'Yo Eddie:Desktop Folder:test.pict'
export as picture to file fileName

Thanks,
- Julian Zgoda
jzgoda@pacbell.net




==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-modules-request@macperl.org