luk
9742f6dab2
将 .sh/.bat 脚本与 .js/.plist/.Dockerfile 等文件中以 - 分隔的文件名 改为 _ 分隔，dcloud-renew 目录改为 dcloud、script_nuance 目录改为 nuance，并同步更新脚本内部引用与 README 路径。 Co-Authored-By: AtomCode (deepseek-v4-flash) <noreply@atomgit.com>
28 lines
432 B
Perl
28 lines
432 B
Perl
use File::Find;
|
|
use File::Copy;
|
|
|
|
if ($ARGV[0] =~ m|^\s*$|)
|
|
{
|
|
print "Traverse a directory recursively and list ulaw files.\n";
|
|
print "Usage: perl $0 TOP_DIR\n";
|
|
print "Example: perl $0 /bin\n";
|
|
exit 0;
|
|
}
|
|
|
|
@dirs = ($ARGV[0]);
|
|
|
|
open LIST, ">$ARGV[0].ulawlist" or die;
|
|
|
|
find ( {wanted => \&wanted},
|
|
@dirs );
|
|
|
|
sub wanted
|
|
{
|
|
if (m|^ulaw$|)
|
|
{
|
|
$file = $_;
|
|
# do something here.
|
|
print LIST "$file\n";
|
|
}
|
|
}
|