plcgi1

#!/usr/bin/perl
# ffmpeg -i input.dv -r 25 -f image2 images%05d.png
# переименовать все файлы
#       i=0 ; for f in *.jpg ; do mv "$f" $(printf "frame%04d.jpg" $i) ; i=$((i+1)) ; done
# разложить на кадры
`ffmpeg.exe -i 00001.MTS -r 25 -qscale 0 -f image2 images%05d.png`;
#  i=0 ; for f in *.jpg ; do rm "$f"  ; i=$((i+1)) ; done
my $format = $ARGV[0];
opendir D,".";
my @dir = readdir D;

plcgi1

var WebSocketServer = require('ws').Server
    , http = require('http')
    , express = require('express')
    , path = require('path')
    , net = require('net')
    , app = express()
    , adb = require('adbkit')
    , childProcess = require('child_process')
    , json = require('JSON')
    , fs = require('fs')

plcgi1

my $limit = 200;
my $pages = int( $count / $limit );
my $diff  = int( $bots_count % $limit );
if ( $diff > 0 ) {
	$pages = $pages + 1;
}
		
for ( my $i = 0; $i < $pages; $i++ ) {
	my $offset = int($i * $limit);
	# make call with params $offset $limit - as in mysql