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(); 利用批处理文件和 vbs 脚本实现网站视频自动录制_网学