精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>电脑技术>>● UNIX>>◆网络知识◆>>[perl] util for ftp site(转寄) (转载)

主题:[perl] util for ftp site(转寄) (转载)
发信人: ding()
整理人: wwwyyyxxx(1999-08-23 21:34:25), 站内信件

ftp://freebsd.ee.ntu.edu.tw/freebsd/woju/perl/

xferlog-nonftp.pl: 列出 real(or guest) users (un-anonymous) transfer log
xferlog-upload.pl: 列出 upload log

funiq.pl & flink.pl & funiq_true.pl: 这些 script 需要在同一个 mount point
下的目录跑,请自行修改档案□头最前面的:
open FH, "find randy jerome mirror -type f |";
把 randy jerome mirror 代换成要分析的目录名称。
这些 script 目前用於 ftp://freebsd.ntu.edu.tw/mswin/
因为 mswin 的档案又多又大又重覆,所以写了些 perl5 script 帮忙分析整理。

funiq.pl: 跑完後会产生两个档
          1. 00fpath.txt: MS-DOS ascii,依档名排列的位置列表
          2. dup.lst,当同一个档名出现在两个位置时,列出其它位置与档案大小,
             档头会顺便统计重复档案所用掉的空间

flink.pl: 用 hard-link 把重覆的档案精简成一分,通常可以清出不少空间(几G!?:p)
          「重覆档案」判定的原则是,副档名为 exe|zip|cab|jar|[0-9],1 link,
          且档案大小相同。

funiq_true.pl: 和 funiq.pl 功能类似,但能辨认出 flink.pl 处理过的档,若 link
count 大於 1 的就不列入重覆档案,执行完後会产生 dup_true.lst,可以和 dup.lst
比较一下,就知道 flink.pl 大概清了多少空间出来 ;-)

With regards,
--
吴 庆 鸿,[email protected] | 台大电机,http://freebsd.ee.ntu.edu.tw
--
Origin: 从零开始 freebsd.ee.ntu.edu.tw (140.112.19.123)

[关闭][返回]