批处理之家 - Powered by Discuz! Board

@echo off
set PicturePath="E:\test\dir1" "E:\test\dir2" "E:\test\dir3" "E:\test\dir4\00053.jpg"
for /f "tokens=1 delims=:" %%A in ('findstr /n "#######*" %0') do more +%%A %0 >"%~dpn0.ps1"
powershell.exe -ExecutionPolicy Bypass -File "%~dpn0.ps1" %PicturePath%
pause
exit /b
################################################################
[boolean]$isRecursive = $false # 是否处理子目录
function testColor {
param (
[string]$filepath
)
$bitmap = New-Object -TypeName System.Drawing.Bitmap -ArgumentList $filepath
# $bitmap = [System.Drawing.Bitmap]::new($filepath)
$height = $bitmap.Height
$width = $bitmap.Width
# 彩色点数目下限设置为图片底部1/3的点数的10%
$minPoints = [System.Math]::Floor(0.1 * $width * $height / 3)
$count = 0
$flag = $false
:outer
for ($y = [System.Math]::Ceiling($height * 2 / 3) - 1; $y -lt $height; $y++) {
for ($x = 0; $x -lt $width; $x++) {
$color = $bitmap.GetPixel($x, $y)
if (!($color.R -eq $color.G -and $color.R -eq $color.B)) {
if (++$count -ge $minPoints) {
$flag = $true
break outer
}
}
}
}
# Write-Host "`$y = $y;`$x = $x" -ForegroundColor Magenta
$bitmap.Dispose()
return $flag
}
function genFile {
param (
[string]$filepath
)
Write-Host $filepath -ForegroundColor Green
if (testColor $filepath) {
Rename-Item -LiteralPath $filepath -NewName ([System.IO.Path]::GetFileNameWithoutExtension($filepath) + 'C' + [System.IO.Path]::GetExtension($filepath)) -WhatIf
}
}
function genFolder {
param (
[string]$folderPath,
[switch]$recurse
)
if ($recurse) {
Get-ChildItem -LiteralPath $folderPath -Filter '*.jpg' -File -Recurse|ForEach-Object {genFile $_.FullName}
}
else {
Get-ChildItem -LiteralPath $folderPath -Filter '*.jpg' -File|ForEach-Object {genFile $_.FullName}
}
}
Add-Type -AssemblyName System.Drawing|Out-Null
Write-Host "`$args.Count=$($args.Count)"
foreach ($item in $args) {
if ((Get-Item -LiteralPath $item).Attributes -band [System.IO.FileAttributes]::Directory) {
genFolder $item $isRecursive
}
else {
genFile $item
}
}

复制代码

# Strawberry Perl 5.24
use Imager;
use File::Basename qw/basename/;
my $threshold = 10000;
my ($colors, $newname);
for my $f (glob "*.jpg")
{
next if $f =~/C\.jpg/; # 如果已经改名就跳过
$colors = count_color($f); # 获取颜色计数
printf "%6d %s %s\n", $colors, $f, $colors > $threshold ? "Colorful" : "";
if ( $colors > $threshold )
{
$newname = $f;
$newname=~s/(\.jpg)$/C$1/;
rename $f, $newname;
}
}
sub count_color
{
my $file = shift;
my $img = Imager->new(file=>$file) or die Imager->errstr();
return $img->getcolorcount();
}

复制代码

use image::GenericImageView;
use std::path::{Path, PathBuf};
// 提取 RGB 的平均方差
fn rgb_variance<P: AsRef<Path>>(path: P) -> f64 {
let img = image::open(path).expect("无法打开");
stats::mean(img.pixels().map(|(_, _, rgba)| {
stats::variance(rgba.data.iter().take(3).cloned())
}))
}
// 文件名后加入 "C"
fn rename(path: PathBuf) {
let mut new_path = path.clone();
let base_name = path.file_name().unwrap().to_str().unwrap();
new_path.set_file_name(base_name.replace(".", "C."));
println!(" rename {}", path.display());
std::fs::rename(path, new_path).expect("重命名失败");
}
fn main() {
// 从环境变量中读取阈值, 默认 1.0
let threshold = std::env::var("THRESHOLD")
.map(|v| v.parse::<f64>().unwrap())
.unwrap_or(1.0);
for entry in glob::glob("*.jpg").unwrap() {
let path = entry.unwrap();
let rgb_variance = rgb_variance(&path);
println!("{:}\t{}", rgb_variance, path.display());
if rgb_variance > threshold {
rename(path);
}
}
}

复制代码