Trivia scripts to find all the required Perl modules list.

[nethome.git] / bin / perlrequires

diff --git a/bin/perlrequires b/bin/perlrequires
new file mode 100755 (executable)
index 0000000..99b2e1c
--- /dev/null
+++ b/bin/perlrequires
@@ -0,0 +1,11 @@
+#! /usr/bin/perl
+use strict;
+use warnings;
+
+my %use;
+while (<>) {
+       /^\s*(?:use|require)\s+([\w:.]+)\b/ or next;
+       $use{$1}=1;
+       }
+print "perl -MCPAN -e 'install qw()'\n";
+print "$_\n" for sort keys(%use);