Add auto-core-calculation
Change-Id: Ia74663afee12eb7a650a36fc270e2f5644b7150f
diff --git a/lib/KorAP/XML/ForkPool.pm b/lib/KorAP/XML/ForkPool.pm
index e60135f..c42ea51 100644
--- a/lib/KorAP/XML/ForkPool.pm
+++ b/lib/KorAP/XML/ForkPool.pm
@@ -2,7 +2,9 @@
use strict;
use warnings;
use Parallel::ForkManager;
-
+use v5.10;
+use Sys::Info;
+use Sys::Info::Constants qw( :device_cpu );
# Construct a new fork pool
sub new {
@@ -31,7 +33,7 @@
my $data = pop;
print 'Convert [' . ($self->{jobs} > 0 ? "\$$pid:" : '') .
- ($self->{iter}++) . '/' . $self->{count} . ']';
+ ($self->{iter}++) . '/' . $self->{count} . ']';
print ($code ? " $code" : '') . " $$data\n";
}
);
@@ -66,14 +68,14 @@
unless ($self->{overwrite}) {
my $filename = catfile(
- $output,
- get_file_name($dirs[$i]) . '.json' . ($gzip ? '.gz' : '')
+ $output,
+ get_file_name($dirs[$i]) . '.json' . ($gzip ? '.gz' : '')
);
if (-e $filename) {
- $iter++;
- print "Skip $filename\n";
- next;
+ $iter++;
+ print "Skip $filename\n";
+ next;
};
};
@@ -121,17 +123,17 @@
unless ($self->{overwrite}) {
my $filename = catfile(
- $output,
- get_file_name(
- catfile($corpus, $doc, $text)
- . '.json' . ($gzip ? '.gz' : '')
- )
+ $output,
+ get_file_name(
+ catfile($corpus, $doc, $text)
+ . '.json' . ($gzip ? '.gz' : '')
+ )
);
if (-e $filename) {
- $iter++;
- print "Skip $filename\n";
- next;
+ $iter++;
+ print "Skip $filename\n";
+ next;
};
};