全球主机交流论坛

标题: 求代码 把一个文件夹下的5万txt文件每500个放入一个文件夹 [打印本页]

---

作者: suzizi    时间: 2012-5-14 18:02
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: hepac    时间: 2012-5-14 18:26
50 rmb

---

作者: ellrywych    时间: 2012-5-14 18:34
0.5rmb

---

作者: lixuguang.xy    时间: 2012-5-14 18:36
帮顶 来分··

---

作者: xen    时间: 2012-5-14 18:43
楼上的大牛们

---

作者: cisco    时间: 2012-5-14 18:43
不会.帮顶

---

作者: jeffpan    时间: 2012-5-14 19:08

1. use strict;
   
2. use File::Copy;
   
3. 
   
4. my @files = glob "*.txt";
   
5. my $dirname;
   
6. my $i=0;
   
7. my $count=500;
   
8. 
   
9. for my $f (@files) {
   
10.      unless ($i % $count) {
    
11.         $dirname = "dir$i";
    
12.         mkdir $dirname;
    
13.      }
    
14.      move $f, $dirname;
    
15.      $i++;
    
16. }

复制代码

---

作者: jeffpan    时间: 2012-5-14 19:09
perl代码

---

作者: vip1    时间: 2012-5-14 19:09
小说站吧？可以分享下么

---

作者: 母‪鸡    时间: 2012-5-14 19:14
ls -l都有困难。。。

---

作者: suzizi    时间: 2012-5-14 19:49
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 哥坏人    时间: 2012-5-15 10:24
牛。。。

---

作者: vaman    时间: 2012-5-15 10:32
既然解决了就说一下怎么解决的啊@@

---

欢迎光临 全球主机交流论坛 (https://loc.888543.xyz/)

Powered by Discuz! X3.4