IMSLP Forums

Code: Select all

#!/usr/bin/perl
#
# I, Eric Jiang, hereby release this script into the public domain.
#
# This script requires the Parallel::ForkManager module to run.
#
use Parallel::ForkManager;

if(scalar(@ARGV) < 3) {
	print <<USAGE;
USAGE: perl parallelize.pl num cmd glob

"GLOB" is substituted with the name of each file

Example:
	parallelize.pl 4 "mogrify -negate GLOB" "lol*.pbm"
USAGE
exit;
}

my @globs = <$ARGV[2]>;
my $pm = new Parallel::ForkManager($ARGV[0]);

for (my $i = 0; $i < scalar(@globs); $i++) {
	$pm->start and next;

	my $command = $ARGV[1];
	my $currfile = $globs[$i];
	$command =~ s/GLOB/$currfile/;

	print($command . "\n");
	system($command);

	$pm->finish;
}
$pm->wait_all_children;
print "Finished ".scalar(@globs). " tasks.\n";

Code: Select all

pdfimages BestSongEver.pdf bse

Code: Select all

parallelize.pl 6 "cdsmrm GLOB" "bse-*.pbm"

Code: Select all

parallelize.pl 6 "mogrify -format tiff -compress Group4 GLOB" "bse-*.pbm"

Code: Select all

tiffcp bse-*.pbm BestSongEver_cleaned.tiff

Code: Select all

tiff2pdf BestSongEver_cleaned.tiff > BestSongEver_cleaned.pdf

Code: Select all

for %%i in (%*) do cdsmrm.exe %%i