App-ruler
view release on metacpan or search on metacpan
Result:
".........|10.......|20.......|30.......|40.......|50.......|60.......|70.......|80.......|90.......|100......|110......|120......|130......|140......|150......|160......|170......|180......|19"
* White ruler with red marks and numbers:
ruler(
background_color => "black on_white",
major_tick_color => "red on_white",
minor_tick_character => "",
number_color => "bold red on_white"
);
Result:
"\e[30;47m---------\e[0m\e[31;47m|\e[0m\e[1;31;47m10\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m20\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m30\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m40\e[0m\e[30;47m-------\e[0m\...
This function is not exported by default, but exportable.
Arguments ('*' denotes required arguments):
lib/App/ruler.pm view on Meta::CPAN
{
summary => 'Default ruler (dash + number every 10 characters)',
args => {},
},
{
summary => 'White ruler with red marks and numbers',
args => {
background_color => "black on_white",
minor_tick_character => '',
major_tick_color => "red on_white",
number_color => "bold red on_white",
},
},
],
};
sub ruler {
my %args = @_;
my $ruler_len = $args{length} // $term_width;
my $use_color;
lib/App/ruler.pm view on Meta::CPAN
Result:
".........|10.......|20.......|30.......|40.......|50.......|60.......|70.......|80.......|90.......|100......|110......|120......|130......|140......|150......|160......|170......|180......|19"
=item * White ruler with red marks and numbers:
ruler(
background_color => "black on_white",
major_tick_color => "red on_white",
minor_tick_character => "",
number_color => "bold red on_white"
);
Result:
"\e[30;47m---------\e[0m\e[31;47m|\e[0m\e[1;31;47m10\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m20\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m30\e[0m\e[30;47m-------\e[0m\e[31;47m|\e[0m\e[1;31;47m40\e[0m\e[30;47m-------\e[0m\e[31;47m...
=back
This function is not exported by default, but exportable.
script/ruler view on Meta::CPAN
Examples:
Default ruler (dash + number every 10 characters):
% ruler
.........|10.......|20.......|30.......|40.......|50.......|60.......|70.......|80.......|90.......|100......|110......|120......|130......|140......|150......|160......|170......|180......|19
White ruler with red marks and numbers:
% ruler --background-color 'black on_white' --major-tick-color 'red on_white' --minor-tick-character '' --number-color 'bold red on_white'
[30;47m---------[0m[31;47m|[0m[1;31;47m10[0m[30;47m-------[0m[31;47m|[0m[1;31;47m20[0m[30;47m-------[0m[31;47m|[0m[1;31;47m30[0m[30;47m-------[0m[31;47m|[0m[1;31;47m40[0m[30;47m-------[0m[31;47m|[0m[1;31;47m50[0m[30;47...
=head1 OPTIONS
C<*> marks required options.
=head2 Main options
=over
( run in 2.152 seconds using v1.01-cache-2.11-cpan-d8267643d1d )