?? srt2lrc.pl
字號:
#!/usr/bin/perl -w
my $subtitle_line;
my $line;
my $hour;
my $min;
my $sec;
my $msec;
$srt_filename = shift @ARGV;
defined $srt_filename or die "No srt filename\n";
open FD,$srt_filename;
while (defined(<FD>))
{
$line=<FD>;
($hour,$min,$sec,$msec) = split /[:, -]/,$line;
$line=<FD>;
chomp $line; chop $line;
$subtitle_line = $line;
while (defined($line=<FD>))
{
last if ($line =~ /^\s$/);
chomp $line;chop $line;
$subtitle_line = "$subtitle_line,$line";
}
if ($hour != "00")
{
$min = $hour * "60" + $min;
}
chop $msec;
print "[$min:$sec.$msec]$subtitle_line\r\n";
}
close FD;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -