摘要：
由于工作需要，写了个小脚本，用于把所有文件夹下的文件，每个都放入以他们自己名字命名的文件夹中，并且文件夹名字不能有空格。包括子目录。#!perl(my $thisfile)=$0=~/.*\\(.*)/;my @curfile=grep { $_ ne $thisfile } glob('*');&action(\@curfile);sub action { my $test=shift; for my $file(@$test) { if (-d $file){ chdir $file; my @subfile = gl... 阅读全文
