Thread: How do I save a quicktime .mov file?
View Single Post
  #7   Spotlight this post!  
Unread 04-05-2004, 14:30
mtrawls's Avatar
mtrawls mtrawls is offline
I am JVN! (John von Neumann)
#0122 (NASA Knights)
Team Role: Programmer
  
Join Date: Mar 2003
Location: Hampton, VA
Posts: 295
mtrawls is a splendid one to beholdmtrawls is a splendid one to beholdmtrawls is a splendid one to beholdmtrawls is a splendid one to beholdmtrawls is a splendid one to beholdmtrawls is a splendid one to beholdmtrawls is a splendid one to behold
Send a message via AIM to mtrawls
Re: How do I save a quicktime .mov file?
Bah! Make a web-page and then use that to download the file. Sure, it'll work, but there's a more elegant way ... I just can't resist:

Code:
# get_movie.pl
use LWP::Simple;
$movie_file = $ARGV[0] || "http://some.site/foo.mov";
$download_name = $ARGV[1] || "mov01.mov";
$movie_content = get($movie_file);

open(MOVIE,">//path//to//your//favored//download//directory//" . $download_name);
binmode MOVIE;
print MOVIE $movie_content;
# note that code is untested
# and you should always use warnings/strict!
Now you have a solution that'll work as many times as need be. Just type in movie.pl movie_url_address foo.mov and voila. No need for a two-step process once the script is done. Overkill? ... I think not!