luk
9742f6dab2
将 .sh/.bat 脚本与 .js/.plist/.Dockerfile 等文件中以 - 分隔的文件名 改为 _ 分隔，dcloud-renew 目录改为 dcloud、script_nuance 目录改为 nuance，并同步更新脚本内部引用与 README 路径。 Co-Authored-By: AtomCode (deepseek-v4-flash) <noreply@atomgit.com>
26 lines
308 B
Perl
26 lines
308 B
Perl
open UTD, "$ARGV[0]" or die;
|
|
|
|
$nr_utt = 0;
|
|
|
|
$nr_block = 0;
|
|
|
|
$head = "";
|
|
|
|
while (<UTD>)
|
|
{
|
|
if (not m|/datadigest/|)
|
|
{
|
|
$head = $head."$_";
|
|
}else
|
|
{
|
|
if ($nr_utt % 500 == 0)
|
|
{
|
|
$nr_block ++;
|
|
open FH, ">$ARGV[0].$nr_block" or die;
|
|
print FH $head;
|
|
}
|
|
print FH;
|
|
$nr_utt ++;
|
|
}
|
|
}
|