mirror of
https://gitlab.com/mbunkus/mkvtoolnix.git
synced 2024-12-29 06:15:24 +00:00
14 lines
294 B
Perl
14 lines
294 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my $timestamp = shift(@ARGV);
|
||
|
|
$timestamp *= shift(@ARGV) if @ARGV;
|
||
|
|
|
||
|
|
printf "%02d:%02d:%02d.%09d\n",
|
||
|
|
int($timestamp / 60 / 60 / 1000000000),
|
||
|
|
int($timestamp / 60 / 1000000000) % 60,
|
||
|
|
int($timestamp / 1000000000) % 60,
|
||
|
|
$timestamp % 1000000000;
|