srt2lrc.pl

lrccut—— 我自己做的。挺不错的。 把电影字模变成mp3字模。

#!/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;