#!/usr/bin/perl $path=shift @ARGV; foreach $file (@ARGV) { if($file =~ m|.rm$|) { $meta = $file; $meta =~ s|.rm$|.rmm|; open(M,">$meta"); print M "rtsp://################/$path/$file\n"; close(M); } elsif($file =~ m|.asf$|) { $meta = $file; $meta =~ s|.asf$|.asx|; open(M,">$meta"); print M "\n"; print M " \n"; print M " \n"; print M " \n"; print M "\n"; close(M); } elsif($file =~ m|.mov$|) { $meta = $file; $meta =~ s|.mov$|.html|; open(M,">$meta"); print M "\n"; print M " QuickTime Window\n"; print M " \n"; print M " \n"; print M " \n"; print M "\n"; close(M); } else { print "$file doesn't need a metafile.\n"; } }