Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

nl: Pod::Usage #291

Merged
merged 1 commit into from
Oct 16, 2023
Merged

nl: Pod::Usage #291

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
35 changes: 5 additions & 30 deletions bin/nl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -25,43 +25,18 @@ use utf8;

use Getopt::Std qw(getopts);
use File::Basename qw(basename);
use Pod::Usage qw(pod2usage);

use constant EX_SUCCESS => 0;
use constant EX_FAILURE => 1;

our $VERSION = '1.2';
my $program = basename($0);
my $usage = <<EOF;

Usage: $program [-V] [-p] [-b type] [-d delim] [-f type] [-h type] [-i incr] [-l num]
[-n format] [-s sep] [-v startnum] [-w width] [file ...]

-V version
-b type 'a' all lines
't' only non-empty lines (default)
'n' no numbering
'pexpr' only lines matching pattern specified by expr
'eexpr' exclude lines matching pattern specified by expr
-d delim characters (max 2) indicating new section (default : '\\:')
-f type same as -b but for footer lines (default : 'n')
-h type same as -b but for header lines (default : 'n')
-i incr increment value (default : 1)
-n format 'ln' left justified
'rn' right justified without leading zeros (default)
'rz' right justified with leading zeros
-p single page (don't restart numbering at pages delimiters)
-s sep characters between number and text line (default : TAB)
-v startnum initial value to number pages (default : 1)
-w width line number width (default : 6)
EOF

# options
$Getopt::Std::STANDARD_HELP_VERSION = 1;
my %options = ();
unless (getopts("Vb:d:f:h:i:n:ps:v:w:", \%options)) {
warn $usage;
exit EX_FAILURE;
}
getopts('Vb:d:f:h:i:n:ps:v:w:', \%options) or pod2usage(EX_FAILURE);

my $version = $options{V};
my $type_b = $options{b} || "t";
Expand Down Expand Up @@ -192,8 +167,8 @@ sub print_line {
}
else
{
warn $usage;
exit EX_FAILURE;
warn "$program: invalid type '$type'\n";
pod2usage(EX_FAILURE);
}

print $line;
Expand Down Expand Up @@ -289,7 +264,7 @@ The following options are supported.
-d delim characters (max 2) indicating new section (default : '\\:')
-f type same as -b but for footer lines (default : 'n')
-h type same as -b but for header lines (default : 'n')
-i incr increment value (dafault : 1)
-i incr increment value (default : 1)
-n format 'ln' left justified
'rn' right justified without leading zeros (default)
'rz' right justified with leading zeros
Expand Down