19/07/01 11:16:08.41 yqKShpFv0.net
>>503
色付きの囲みソースの最初の部分しかないようですね。
その下の三つ、すなわち色付き囲み4つすべてが必要です。
my $ts = &ts(\@buf, $pos);
tsは4 つ目の囲みの中にあります。
ついでながら、PTS以外のprintfと &pcr_write/&ts_write/syswriteを
削除すれば、PTSだけの出力が得られます。
perl tsrenum.pl -v < 123.ts 2> 789.txt
出力例
0000243 PTS 15:20:00.777 4968069963
0006c01 PTS 15:20:00.344 4968031045
0011371 PTS 15:20:00.366 4968032965
001b969 PTS 15:20:00.387 4968034885
00260d9 PTS 15:20:00.408 4968036805