作者yanganto (双剑‧日光灯)
看板Perl
标题[问题] 档案复制
时间Mon Apr 20 00:16:54 2009
因为要在很多个档案中挑出我需要的档案，并且复制到另外一个资料夹，然後须要挑的
档案在一个htm的档案里面有写。
我利用一个array去选择要挑的档案，结果复制的档案会一个有内容一个没内容这样交替
不知道错误在哪里，可以麻烦板上高手指证一下吗？谢谢
刚开始学perl，写的有点乱，不知道有没有比较简洁一点的方法^^"
後来code改成这样，但是还是会一个有抓到一个没抓到这样@@"，不知道有没有人能指导
一下，谢谢
use strict;
my @list;
my $txt;
open(L,'/Users/yanganto/Desktop/list.txt');
while(<L>){
$txt = $_;
chomp($txt);
@list = (@list,$txt);
}
my $i=0;
my $file;
for($i=0;$i<=413;$i++){
$file = glob("/Users/yanganto/Desktop/Minimization/$list[$i]/Output/*.msv");
system("cp $file /Users/yanganto/Desktop/5Cal/");
}
--
青春就像一只奋力飞翔的候鸟
在穿越黑夜与白天的那一刹那
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.218.62
※ 编辑: yanganto 来自: 140.112.55.126 (04/20 13:04)