« 写了个 perl 递归函数 FTP do_lslR | Main | 一个并发的算法 子进程数与任务数 »
December 2, 2006
处理 FTP 站点不是在 FtpRoot 目录为基准生成的 ls-lR.gz 的 perl 正则替换代码
|
版权声明：可以任意转载，转载时请务必以超链接形式标明文章原始出处和作者信息及本声明。 https://windtear.net/archives/2006/12/02/001152.html http://windtear.net/archives/2006/12/02/001152.html 处理 FTP 站点不是在 FtpRoot 目录为基准生成的 ls-lR.gz 的 perl 正则替换代码 my ($a, $b); $a=`head -1 "$site"`; $a =~ s#\n$|\r$##g; if ($a =~ /(.*?):$/) { if ($1 ne ".") { $b=$1; $b =~ s#\\#\\\\#g; `perl -pi -e 's#^$b(.*:)#\\.\\1#g' "$site"`; } } |
Posted by windtear at December 2, 2006 9:55 PM
