批量修改文件名主要用于让字幕文件名与影片文件名保持一致

最新推荐文章于 2021-04-05 00:15:37 发布

「已注销」

最新推荐文章于 2021-04-05 00:15:37 发布

阅读量3.2k

点赞数

CC 4.0 BY-SA版权

分类专栏：技术

本文链接：https://blog.youkuaiyun.com/barrypp/article/details/8511048

技术专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一个Perl脚本，用于根据视频文件名批量重命名字幕文件名，包括正则表达式匹配、文件路径操作及编码转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<pre name="code" class="plain">#!/usr/bin/perl

=pod

=encoding utf8

=head1 NAME

correct_subtitle_filename.pl

=head1 SYNOPSIS

根据视频文件的名字来修改字幕文件的名字。

=head1 REVISION

beta by barrypp at 201212311006
v1.0  by barrypp at 20121231143850

=head1 TODO



=head1 AUTHOR

barrypp <barry-hp@163.com>

=cut

use 5.010;
#use strict;
use warnings;
use diagnostics;
use utf8;
use Cwd;

use Encode qw\decode\;
use Win32::Codepage::Simple qw\get_codepage\;


my $in_filename_extension = "mkv";
my $out_filename_extension = "ass";
my $in_filename_re = '-([0-9]{2})-';
my $out_filename_re = '\[([0-9]{2})\]';
my $in_dir = ".";
my $out_dir = "subs";

my $code_page = "cp" . get_codepage();
my %Names = ();


opendir (my $IN_DIR,$in_dir);
while (defined (my $file = readdir $IN_DIR)){
	if (-f $file and $file =~ m/\.$in_filename_extension\z/ and (decode $code_page,$file) =~ m/$in_filename_re/){
		if(exists $Names{$1}){
			die "error:two files have the same serial number. Correct the regular exp";
		}else{
			my $tmp = $1;
			$file =~ m/\.$in_filename_extension\z/p;
			$Names{$tmp} = ${^PREMATCH};
		}
	}
}
closedir $IN_DIR;

{#for debug only
	my($a,$b);
	say "$a => $b" while(($a,$b) = each %Names);
}

opendir (my $OUT_DIR,$out_dir);chdir $out_dir;
while (defined (my $file = readdir $OUT_DIR)){
	if (-f $file and $file =~ m/\.$out_filename_extension\z/ and (decode $code_page,$file) =~ m/$out_filename_re/){
		if(exists $Names{$1}){
			say "rename $file => ",$Names{$1},".$out_filename_extension";
			rename $file => $Names{$1} . ".$out_filename_extension";
		}else{
			say "warning:substitles is out of control ($file)";
		}
	}
}
closedir $OUT_DIR;