[文件操作] [已解决]如何用bat获取信息，在文件名后面添加？

use Modern::Perl;
use Crypt::Checksum ':all';
for my $f ( grep { -f } glob "*" )
{
	my $crc = crc32_file_hex( $f );
	unless ( $f =~/$crc/ )
	{
		my $newname = $f;
		$newname =~s/(\.\w+)$/_$crc$1/;
		rename $f, $newname;
	}
}
复制代码

use Modern::Perl;
use Crypt::Checksum ':all';

for my $f ( grep { -f } glob "*" )
{
	# mp4 和 txt 以外的格式跳过
	next unless $f =~/\.(mp4|txt)$/i;

	# 获取校验码
	my $crc = crc32_file_hex( $f );
	
	# 除非文件名中包含校验值，否则执行替换（避免重复追加）
	unless ( $f =~/$crc/ )
	{
		my $newname = $f;
		$newname =~s/(\.\w+)$/_$crc$1/;
		rename $f, $newname;
	}
}
复制代码

use utf8;
use Encode;
use Modern::Perl;
use Crypt::Checksum ':all';

for my $f ( grep { -f } glob "*" )
{
    # mp4 和 txt 以外的格式跳过
    next unless $f =~/\.(mp4|txt)$/i;

    # 获取校验码
    my $crc = crc32_file_hex( $f );
    
    # 除非文件名中包含校验值，否则执行替换（避免重复追加）
    unless ( $f =~/$crc/ )
    {
        my $newname = $f;
        $newname =~s/(\.\w+)$/encode('gbk', "_【$crc】").$1/e;
        rename $f, $newname;
    }
}
复制代码

@echo off & cd /d "%~dp0"
for %%i in (*) do (
	if not "%~0" == "%%~fi" (
		for /f "tokens=1* delims=: " %%a in ('coder -s -a gh -f "%%i" ^| findstr /b /C:"CRC32"') do (
			echo %%~ni_【%%b】%%~xi
			rename "%%~i" "%%~ni_【%%b】%%~xi"
		)
	)
)
pause&exit
复制代码