Anyone good with Applescript and Perl?

Discussion in 'Mac Programming' started by PuNkErX, Oct 13, 2006.

  1. PuNkErX macrumors member

    Joined:
    Nov 16, 2004
    #1
    Hey,

    I am having a few issues with a script I'm making. This script will eventually, look into a folder on the server, grab one *.mov file, move it to the local harddrive, open up quicktime, encode the movie with settings from a file, then move the encoded *.mov back into a new folder on the server.

    Sounds easy right? lol

    I've been getting little bits and pieces down, I don't know perl and applescript well enough to do a decent job, but here is my perl script.

    Code:
    #!/usr/bin/perl -w
    
    use Mac::AppleScript 'RunAppleScript';
    
    my $source = $ARGV[0];
    my @cmd = ("open", "$source");
    
    system(@cmd) == 0
        or die "System @cmd failed: $?";
    
    # The Applescript that opens Quicktime to encode the movie in $ARGV[0]
    # Throw it all into the $script variable
    
    my $script =<<END;
    		
    	tell application "QuickTime Player"
    		with timeout of (86400 * 2) seconds
    			if not (exists movie 1) then error "No movie file open."
    			if not (can export movie 1 as QuickTime movie) then error "Can't export movie."
    			export movie 1 to "movie.mov" as QuickTime movie using settings "VODSettings" with replacing
    			
    			close movie 1
    			quit saving no
    			
    		end timeout
    	end tell
    	
    END
    
    RunAppleScript($script) or die "Did not work";
    exit(0);
    
    If you can read through the junk, basically the perl script runs, then opens a *.mov file that you specify. Once that is open, perl launches an applescript with RunAppleScript.

    It runs now and encodes, but I was wondering if anyone knew how to take an argument from perl and put it into the applescript.

    For example: I type: "./VODDuex.pl mymovie.mov
    Then it runs, and instead of applescript creating the "movie.mov" file in the /, I can pass another argument like "./VODDuex.pl mymovie.mov finished.mov" and the script will run and create finished.mov as the final encoded movie.

    I have been workin on and off of this problem for a while now, I must not know the right keywords to tell google, lol.

    Any questions, ask away.

    Thanks,
     
  2. Eraserhead macrumors G4

    Eraserhead

    Joined:
    Nov 3, 2005
    Location:
    UK
    #2
    First why not do the whole thing in Applescript? It might be slower but it seems like Applescript can do what you want.

    Assuming Perl can access the command line then you can pass variables to Applescript by putting an on run{param1,param2} at the top of the applescript (and an end run at the end) whether that will allow you to access the applescript direct from perl I'm not sure, as I don't know perl at all.
     
  3. PuNkErX thread starter macrumors member

    Joined:
    Nov 16, 2004
    #3
    Hey,

    Thanks for the reply. I thought about using Applescript for the whole thing, which I may end up doing anyway. I was just dinking around playing with using both.

    How would I put in the part in the Applescript about automatically searching a folder and it's subfolders for any .mov file, then copying it to the local machine, then copying it back into a different folder?
     
  4. Eraserhead macrumors G4

    Eraserhead

    Joined:
    Nov 3, 2005
    Location:
    UK
    #4
    The automatic bit, I'm not sure about, you can search a folder with code similar to what is below, the file action code will need some editing to get it to do what you want.
    Code:
    set theFolder to "Macintosh HD:Applications:" --the starting folder
    my searchTheFolder(theFolder)
    
    on searchTheFolder(theFolder)
    	tell application "Finder"
    		set theFolderList to every folder of folder theFolder
    		set theFileList to every file of folder theFolder whose name ends with ".mov"
    	end tell
    	set i to 1
    	repeat the count of theFileList times
    		--do what you want with the files
    		my fileAction(item i of theFileList as string)
    		set i to i + 1
    	end repeat
    	set theFileList to null --so it doesn't use to much memory and run slowly
    	set i to 1
    	repeat the count of theFolderList times --so it repeats the subfolders
    		my searchTheFolder(item i of theFolderList as string) --converting the folder to a string for processing.
    		set i to i + 1
    	end repeat
    	set theFolderList to null --to reduce memory usage
    	set theFolder to null
    end searchTheFolder
    on fileAction(fileLocation)
    	tell application "Finder"
    		set theName to the name of fileLocation
    		copy fileLocation to folder "Local Machine"
    		--process file
    		copy file ("Local Machine:" & theName) to folder "remote location:"
    	end tell
    	set theName to null --to reduce memory usage
    	set fileLocation to null
    end fileAction
    
     

Share This Page