srt字幕处理

mrkissinger

srt格式的字幕经常超出屏幕的宽度，找了半天，fold之类的工具不识别GBK。
于是自己写了一个，下面是源代码。

使用方法：
1. 保存到/usr/local/bin/srtwrap文件，并改为755
2. cat something.srt | srtwrap > new.srt

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my $linebuf;
   
6. 
   
7. my $col=34;
   
8. 
   
9. while ($linebuf=<>)
   
10. {
    
11.         if (length($linebuf)<$col)
    
12.         {
    
13.                 print $linebuf;
    
14.         }
    
15.         else
    
16.         {
    
17.                 &wrap($linebuf);
    
18.         }
    
19. }
    
20. 
    
21. sub wrap()
    
22. {
    
23.         my $buf=shift;
    
24.         my $len=length($buf);
    
25.         my $tmp;
    
26.         my $i=0;
    
27. 
    
28.         #print "==>$buf";
    
29. 
    
30.         if (length($buf)<$col)
    
31.         {
    
32.                 print $buf;
    
33.                 return;
    
34.         }
    
35. 
    
36.         do
    
37.         {
    
38.                 if (ord(substr($buf,$i,1))>0x7f)
    
39.                 {
    
40.                         if ($i==$col)
    
41.                         {
    
42.                                 last;
    
43.                         }
    
44.                         else
    
45.                         {
    
46.                                 $i++;
    
47.                         }
    
48.                 }
    
49. 
    
50.                 $i++;
    
51.         }
    
52.         while( ($i<$len) && ($i<$col) );
    
53. 
    
54.         #print "==>$i\n";
    
55. 
    
56.         print substr($buf,0,$i)."\n";
    
57. 
    
58.         &wrap(substr($buf,$i));
    
59. 
    
60. }

复制代码

macarthor

感受Linux的强大啵

xlwcat

准确的说是perl在字符处理方面的强大

bigcat00

介个………………有介个必要么？？？如果使用MPLAYER的话，它本身就可以调整字幕字体的大小。一般1024×768分辨率下，设成“3”就OK了。

mrkissinger

怎么设置？我还真没找到，请楼上指教。

bigcat00

在~/.mplayer/gui.conf中，
font_text_scale = "3.000000"──这个是字幕字体大小
font_osd_scale = "3.000000"──这个是OSD字体大小

^_^