使用File::Find和File::copy 把一个文件夹及子文件夹里的.pl文件复制到另外一个文件夹,路径体现在目标文件的文件名中。使用下边的程序,只把当前目录里的.pl文件复制过去了,文件夹里的文件都没有复制过去,这个是啥问题?感觉copy的参数没有问题。[code]#!perl.exe use File::Find; use File::copy; my $dest_dir = "D:/new/"; find(\&wanted, '.'); sub wanted{ unless (-d){ my $name = $File::Find::name; my $origi...
我们有一台fedora做为一个视频文件的服务器。上面什么都没有,所以我想最好是用SHELL做一个脚本。 现在在根目录下有两个文件夹,一个为source,一个为play. souce里有1000个左右的文件夹,等于仓库了。都是一起拷起来的。 play里面只放10个文件夾,都是从souce里来的。 老板要我做一个功能。 1.要能每天 2:00 AM 运行,然后从playe里删除掉最早copy进来的,然后再从source里选第11个下一个文件夹,copy到play里面。使play里面...
我们有一台fedora做为一个视频文件的存放服务器。上面什么数据库都没有,开发环境也没有。 根目录下有两个文件夹,一个为source,一个为play. souce里有1000个左右的文件夹,等于仓库了。 play里面只放10个文件夾,都是从souce里来的。 老板要我做一个功能。 1.要能每天 2:00 AM 运行,然后从playe里删除掉最早copy进来的,然后再从source里选选下一个文件夹,copy到play里面。使play里面每天都有更新。 2. 还有要有一个计数...