perl正则表达式，文件读取常用方法

最新推荐文章于 2024-08-08 14:14:45 发布

webdoes

最新推荐文章于 2024-08-08 14:14:45 发布

阅读量2.1k

点赞数

分类专栏： Perl 文章标签：正则表达式 perl file 脚本 list

本文链接：https://blog.csdn.net/jallin2001/article/details/7192425

版权

Perl 专栏收录该内容

19 篇文章 1 订阅

订阅专栏

好久没有写perl脚本了，最近电脑上面有《prison break》的音频，也有srt的歌词，不过歌词不对，最后进行下面的脚本处理后，可以变听变看字幕了。

主要是用来复习下perl脚本，正则表达式，文件读取，循环，条件等

#! /usr/bin/perl 
#print 'done';
# my $file = '<E:\Prison Break1\Prison Break - 1x02 - Allen [eng-subtitle].srt';
# my $out  = '>E:\Prison Break1\P02.srt';

# open(FILE, $file) or die "$!\n";
# open(RESULT, $out) or die $!;

my $dirMp3AndLrc = 'E:\Prison Break1';	#MP3，lrc文件都在此文件夹中，
my $dirLrcTarget = 'E:\PB';

opendir(MP3_AND_LRC, $dirMp3AndLrc) or die $!;
my @mp3;	#mp3格式
my @lrc;	#lrc格式
my $hashMp3;
my $hashLrc;


while($file = readdir(MP3_AND_LRC)) {
	# $i = 0;
	if ($file =~ /\.srt$/) {
		# push @lrc, $file;
		# print $file . "\n";
		my $lyric = "<$dirMp3AndLrc\\$file";
		open(SRT, $lyric) or die "$!\n";
		open(RESULT, ">$dirLrcTarget\\$file") or die "$!\n";
		# print ">$dirMp3\\$file\n";
		my $li;
		my @final;
		my @lines = <SRT>;
		for(my $i=0; $i<@lines; $i++) {
			$line = $lines[$i];
			# # print 'before: i=' . $i . '; v=' . $line;#. "\n";
			# $li .= $li2;
				# # print 'after: i=' . $i . '; v=' . $line;#. "\n";
			# $line =~ s/[\r\n]//;
			if ($line =~ /(^\d)/ or $line =~ /(^$)/s){
				# @final[] = $line;
				# print "tag\n";
				push @final, $line;
			} else {
				# print "real=\n";
				my $realWords = '';
				my $tmp;
				for ($tmp = 0; $tmp<@lines; $tmp++) {
					# print 't=' . $tmp . "\n";
					# print 'v=' .$lines[$i+$tmp] . "\n";
					if ($lines[$i+$tmp] =~ /(^\d)/ or $lines[$i+$tmp] =~ /(^$)/s){
						last;
					} else {
						$realWords .= $lines[$i+$tmp];
					}
				}
				$i += $tmp;
				$realWords =~ s/\n/ /g;
				push @final, $realWords . "\n\n";
				print 'realWords=' . $realWords . "\n";
			}
		}
		# print 'line=' . $li;

		print RESULT @final;
		close(SRT);
		close(RESULT);
	}
}

# foreach(@lrc) {
	# $name = $_;
	# $list = substr($name, 17, 2);
	# $list =~ s/^0//;
	# $name =~ s/\.srt$//;
	# rename "$dir\\$list.mp3", "$dir\\$name.mp3";  
	# print "before modify: $dir\\$list.mp3, \n\nafter modify: $dir\\$name.mp3\n";
# } 

closedir PB;

exit;