利用批处理文件和 vbs 脚本实现网站视频自动录制(5)

考虑到 SCSI 硬盘惊人的价格，压码服务器的硬盘空间不必太大，最后一行的作用就是删除压码服务器中的视频文件，以节省空间。 Media.txt 是一个 ftp 参数文件，其中记录了 ftp 登陆服务器的名称、用户名、密码和相关的操作，具体形式如下： 

open / 服务器名称或 IP 地址 / 

/ 用户名 / 

/ 用户密码 / 

put / 要传输的文件名 / 

quit 

很明显，以上的各段代码中不乏需要更新的日期文字表达式。同样的道理，我们也需要使用一个类似的更新脚本，具体代码就不重复了。 

  

4 ：一些改进的意见 

1 ：使用 media player 也可实现压码的功能。 

2 ：在更新脚本中，用在声明和注销对象上的代码有好几行，如果使用 perl 可以大为简化。因为是 perl 提供了一系列操作符号来实现正则表达式的功能，而事实上 perl 就是为了处理文本而生的。
open(RPJF,"<c:/code/10161.rpjf") or die("can not open because of $!\n");
open(TEMP,">c:/code/temp.txt") or die("can not open because of $!\n");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$mday=sprintf("%.2d",$mday);
$mon=sprintf("%.2d",$mon+1);
$year+=1900;
$timerF="$year"."$mon"."$mday";
$timerS="$year"."-"."$mon"."-"."$mday";
while(<RPJF>){
chomp();
$_=~s/(.*)([0-9]{8})(.*)/$1$timerF$3/;
$_=~s/(.*)([0-9]{4}\-[0-9]{2}\-[0-9]{2})(.*)/$1$timerS$3/;
print TEMP "$_\n";
}
close(RPJF);
close(TEMP);
3 ：使用磁盘映射能够更加方便的实现文件的传输，不过需要考虑安全问题。