1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#! perl use warnings; use strict; my $perl6bin = shift @ARGV; my $pandabin = shift @ARGV; my $exit = 0; while (<>) { next if /^\s*(#|$)/; my ($module) = /(\S+)/; $exit ||= system $perl6bin, $pandabin, '--force', "install", "modules/$module"; } exit $exit;