mirror of
https://gitlab.com/mbunkus/mkvtoolnix.git
synced 2024-10-22 07:21:21 +00:00
14 lines
294 B
Perl
Executable File
14 lines
294 B
Perl
Executable File
#!/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;
|