| | 267 | |
|---|
| | 268 | # トラコンキューイング #2007/7/10 |
|---|
| | 269 | my $trcnprocesses = ""; |
|---|
| | 270 | my $cpucores = `ls /proc/acpi/processor | wc -l`; |
|---|
| | 271 | $cpucores =~ s/[^0-9]//gi; |
|---|
| | 272 | unless ($cpucores >= 1 ){ |
|---|
| | 273 | $cpucores = 1; |
|---|
| | 274 | } |
|---|
| | 275 | do { |
|---|
| | 276 | $trcnprocesses = `ps ax | grep ffmpeg | grep -v grep | wc -l `; |
|---|
| | 277 | $trcnprocesses =~ s/[^0-9]//gi; |
|---|
| | 278 | # 既にトラコンプロセスが走っているなら適当に待機 |
|---|
| | 279 | if ($trcnprocesses >= $cpucores){ |
|---|
| | 280 | &writelog("recwrap TRCN WAITING :$trcnprocesses / $cpucores :$outputfilename "); |
|---|
| | 281 | sleep 53; |
|---|
| | 282 | sleep $recch; |
|---|
| | 283 | } |
|---|
| | 284 | } until ($trcnprocesses < $cpucores); |
|---|
| | 285 | |
|---|
| | 286 | |
|---|
