Commits

Anonymous committed 2acf512

Added Pod::Usage support.

Comments (0)

Files changed (1)

du-output-analyser/analyse-du.pl

 use warnings;
 
 use Getopt::Long;
+use Pod::Usage;
 
 my $prefix = "";
 my $depth = 1;
 my $sort = 1;
+my $man = 0;
+my $help = 0;
 
 GetOptions(
     "prefix|p=s" => \$prefix,
     "depth|d=n" => \$depth,
     "sort" => \$sort,
-);
+    "help|h" => \$help, 
+    "man" => \$man,
+) or pod2usage(2);
+
+if ($help)
+{
+    pod2usage(1)
+}
+
+if ($man)
+{
+    pod2usage(-verbose => 2);
+}
+
 my @results=();
 while(my $line = <>)
 {
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.