是這樣的
目前有500多個連續號碼的資料夾
每一個連續號碼的資料夾裡面要新增6個相同號碼但加個A-E之類的子資料夾名稱
每個子資料夾裡面要放2個相同的檔案
示意圖
1. 將每一個資料夾裡建6個子資料夾,名稱要跟主資料夾一樣加上dash後面的不同號碼
2. 將每個子資料夾裡面放進2個相同的檔案
請問這幾個步驟有什麼快速的方法嗎
分開操作也行
foreach(`ls`) ←把所有資料夾找出來
{
my $current_dir=$_;
cd $current_dir;
for($i=2;$i<=7;$i++)
{
system "mkdir $current_dir-MR00$i"; ←在資料夾中建立「資料夾名-MR00號碼」的資料夾
system "cp /the/file/you/want/to/copy $current_dir-MR00$i/"; ←拷貝檔案
}
cd ..;
}
PS:也可以用perl自己的系統操作呼叫而不是system