perl问题
发布网友
发布时间：2022-04-14 23:01
共3个回答
热心网友
时间：2022-04-15 00:30
正则表达式是你的好朋友
Perl的正则表达式句法能够有助于让你的代码看起来是非门外汉的作品，这就导致有的时候Perl编程的入门者避免使用regexen。这真的是一个大错误。正则表达式为 Perl编程语言增添了很大的能力，常常能够让程序用十行代码就完成其他用五十行完成的任务。正则表达式是由一些缩写组成的表达式，用于匹配字符串的模式，这些字符串可以被用寻找和操控大字符串里的小字符串。所以Perl黑客有必要学习和熟练掌握regex句法。
#!/usr/bin/perl
#ans.pl
my $file;
while (<>){s/^\s+$//;$file.=$_};
my @data=split/\./,$file;
for (@data){
/.*(^\d.*>.*\d$)/sm; #取得最后时间行
my $time=$1;
s/^\d+:.*\d$//gm; #删除时间行
s/^\d+\n//gm; #删除数目行
s/$/./; #加上点号
s/\n+/\n/g; #删除空行
print ++$num,"\n",$time,$_,"\n";
}
=====================
perl ans.pl yourfile.txt
正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在设计中就更能得心应手了。
热心网友
时间：2022-04-15 01:48
# keys #取哈希数组名称 ..........................@array=keys(%array)
# values #取哈希数组的值 ..........................@array=values(%array)
# split #将字符串分割成数组 ......................@array=split(/ /,$str)
# reverse #让数组逆序输出,元素里的字符也会逆序 .....@array=reverse(@array)
# sort #让数组从小到大排序 ......................@array=sort(@array)
# length #取字符串长度 ............................$len=length($str)
# substr #取字符串里的字符 ........................$string=($str,2,5)
# index #查找字符在字符串中的位子 ................$num=index($str,"abc")
# push #在数组最后添加一个新元素 ...............@array=push(@array,$str)
# pop #删除数组最后一个元素,并输出 .............$str=pop(@array)
# unshift #在数组第一个元素前添加元素 ..............@array=(@array,$str)
# shift #删除数组第一个元素,并输出 ...............$str=shift(@array)
# join #在一个数组元素之间加上字符,输出到字符串 .$string=join(@array,";")
# grep #将符合模式的元素输出 ....................$str/@array=grep(@array,/abc/)
# hex #将十六进制数转换成十进制 ................$str=hex('abc')
# rand #产生随即数字 ............................$num=int(rand(10))
#localtime #产生时间 ................................@array=localtime(time)
# die #结束程序并输出后跟的字符串 ..............die "发生错误"
同是菜鸟,给你点函数吧,
再给你点建议,先全组合到一起,然后根据句号分割
# join #在一个数组元素之间加上字符,输出到字符串 .$string=join(@array,"")
# split #将字符串分割成数组 ......................@array=split(/. /,$str)
用到的这两个函数
热心网友
时间：2022-04-15 03:23
$ perl hebing.pl
1
00:00:09,855 --> 00:00:14,724
Britain was an object of desire.
2
00:00:26,295 --> 00:00:35,803
Tacitus declared it worth the conquest,
the best compliment
that could occur to a Roman.
我实现了，但是bug都没判，最好只在每段字幕最后有一个句号。
字幕文件命名为 zimu.txt，会生成zimu_new.txt，放在一个目录下。
#!/usr/bin/perl -w
use strict;
use warnings;
main(@ARGV);
sub main
{
open(ZIMU,'<zimu.txt'); #读进来
my @zimutxt=<ZIMU>; #数组获取行
my $current_content; #暂存内容
my @zimu_new; #最终内容
my ($first_time,$last_time); #获取时间
my ($current_first_time,$current_last_time); #暂存时间
my $newline=1; #序号
foreach(@zimutxt){
if(/^(\d)$/){#不干啥，抛弃原序号
}
elsif(/(-->)/){ #找时间行
chomp $_;
my $tmp=$_;
($current_first_time,$current_last_time)=split(" --> ",$tmp); 时间行时间拆分
if(!defined($first_time)){
$first_time = $current_first_time;
} #获取开始时间，为首次暂存开始时间
$last_time = $current_last_time; #获取结束时间，为最后暂存结束时间
$tmp=''; #临时值清空
($current_first_time,$current_last_time)=();#临时值清空
}
elsif(/^$/){#空行忽略
}
elsif(!/[.]/){
$current_content.=$_;没句号，字符串拼接
}
elsif(/[.]/){
$current_content.=$_;有句号，字符串拼接
print $newline."\n".$first_time." --> ".$last_time."\n".$current_content."\n";#打印看看
push @zimu_new,$newline."\n".$first_time." --> ".$last_time."\n".$current_content."\n";
$newline++;#新序号
($first_time,$last_time)=();
$current_content="";
}else{
#不干啥
}
}
open(NEWZIMU,">zimu_new.txt");
foreach(@zimu_new){
print NEWZIMU $_;#存文件
}
close(NEWZIMU);
close(ZIMU);
}
