Shuery
42f02d0eca
16 个没有前缀的公共函数补上 BakNRet（Write-Log → Write-BakNRetLog、Resolve-BackupEntry → Resolve-BakNRetBackupEntry、Find-ChildDirectoryByName → Find-BakNRetChildDirectoryByName 等）， 另外把全仓的 Baknret 统一成 BakNRet（47 个文件、940 处、65 个定义文件重命名）。 这不是审美问题：静态分析直接拓出一条实据 —— Write-Log 与本机某个已装模块导出的命令 **重名**（PSAvoidOverwritingBuiltInCmdlets），而重名的后果是导入两个模块时有一方的命令被 静默遮蔽。补前缀正是这条规则的解法，改名后它归零。 为什么敢做这个规模：PowerShell 的函数名解析大小写不敏感，所以 Baknret → BakNRet 在功能 上是零风险；真正要验证的是 16 个补前缀的调用点，而 276 个断言几乎覆盖了每个函数。另外 "名字与文件名一致"这条不变式有断言盯着（加载器点源的文件集合 vs 磁盘）。 踩到并记下的坑：Windows 文件系统大小写不敏感，所以**只改大小写**的重命名会被 Move-Item 当成同一个文件而静默跳过 —— 同一批里同时改了名字的那 16 个文件却成功了，于是"看起来能跑"。 最后用"先移到临时名、再移到目标名"的两步走解决，判断与替换全部改用显式大小写敏感的形式 （-creplace / -cmatch）。 顺带把名录指纹缓存从 MD5 换成 SHA256（PSAvoidUsingBrokenHashAlgorithms）：它只是缓存键， 没有兼容负担。 验收：test.ps1 9/9 全绿（7 与 5.1）、100 个文件两版解析零错、276 个断言全过、 构建工具仍能合回单文件（3300 行）。
45 lines
1.5 KiB
PowerShell
45 lines
1.5 KiB
PowerShell
function Get-BakNRetBackupBaseName {
|
|
<#
|
|
.SYNOPSIS
|
|
由清单中的原始路径生成归档基础名。
|
|
|
|
.DESCRIPTION
|
|
算法与历史版本保持一致（否则已存在的 20 个归档会全部失联）：
|
|
<末级名>_from_<去掉末级后的各级用 + 连接>
|
|
并保留 & % + 三个字符（环境变量写法依赖 %），其余非法字符换 _。
|
|
|
|
额外做一件事：把 `:` 归一化为 `_`，因此 C:\Foo 与 "C:\Foo" 结果相同。
|
|
#>
|
|
param([Parameter(Mandatory = $true)][string]$RawPath)
|
|
|
|
$normalized = $RawPath.Trim() -replace '[/\\]+', '\'
|
|
$parts = @($normalized -split '\\' | Where-Object { -not [string]::IsNullOrWhiteSpace($_) })
|
|
|
|
if ($parts.Count -eq 0) {
|
|
Write-BakNRetLog "无法解析路径：$RawPath" -Level ERROR
|
|
return $null
|
|
}
|
|
|
|
$folderName = $parts[-1].Trim()
|
|
$pathParts = if ($parts.Count -gt 1) { $parts[0..($parts.Count - 2)] } else { @() }
|
|
|
|
$pathPart = ($pathParts | ForEach-Object { $_.Trim() }) -join '+'
|
|
$baseName = if ([string]::IsNullOrEmpty($pathPart)) {
|
|
$folderName
|
|
}
|
|
else {
|
|
"${folderName}_from_${pathPart}"
|
|
}
|
|
|
|
$invalidChars = [System.IO.Path]::GetInvalidFileNameChars() |
|
|
Where-Object { $_ -notin @('&', '%', '+') }
|
|
|
|
$baseName = -join ($baseName.ToCharArray() | ForEach-Object {
|
|
if ($_ -in $invalidChars) { '_' } else { $_ }
|
|
})
|
|
$baseName = $baseName -replace ':', '_'
|
|
|
|
Write-BakNRetLog "生成文件基础名：$baseName" -Level DEBUG
|
|
return $baseName
|
|
}
|