File::LsColor - Colorize input filenames just like ls does
use File::LsColor qw(:all);
# Is equal to:
use File::LsColor qw(
ls_color
ls_color_custom
ls_color_default
ls_color_internal
);
my @files = glob("$ENV{HOME}/*");
print ls_color($_), "\n" for(@files);
# or specify own pattern
@files = ls_color_custom('*.pl=38;5;196;1:*.pm=38;5;220', @files);
# or use the internal mappings
@files = ls_color_internal(@files);
# or use the defaults (only ANSI colors)
@files = ls_color_default(@files);
...
# returns a hashref with all defined filetypes and their attributes
my $ls_colors = get_ls_colors();
# what's the defined attributes for directories?
my $dir_color = lookup_ls_color('di');
This module provides functionality for using the LS_COLORS variable for colorizing output in a way that's immediately recognized.
Say that you have a list of filenames that's the result of some complex operation, and you wish to present the result to the user.
If said files have an extension and that extension is present in the users LS_COLORS variable, they will be colored just like they would have been if the filenames were output from ls(1) or tree(1).
None by default.
Arguments: @files | \@files
Returns: $files | @files
Returns a list of filenames colored as specified by the environment LS_COLORS
variable. If the LS_COLORS variable is not set, throws an exception.
In this case, ls_color_internal() can be used.
In scalar context a string joined by '' is returned.
The same thing as ls_color(), but uses the default LS_COLORS values from GNU
ls. Those are only ANSI colors.
The same as ls_color(), with one minor difference; Instead of using the
LS_COLORS variable from the environment, an internal specification is used.
This specification contains about 250 extensions as of this writing.
The first argument to ls_color_custom() should be a valid LS_COLORS
definition, like so:
ls_color_custom("*.pl=38;5;196:*.pm=38;5;197;1", @perl_files);
Returns a hash reference where a key is the extension and its value is the attributes attached to it.
Given a valid name, returns the defined attributes associated with it. Else, returns undef.
Magnus Woldrich
CPAN ID: WOLDRICH
[email protected]
http://japh.se
https://github.com/trapd00r
Report bugs on https://github.com/trapd00r/File-LsColor or to [email protected]
Copyright 2011, 2018, 2019- the File::LsColor "AUTHOR" and "CONTRIBUTORS" as listed above.
This library is free software; you may redistribute it and/or modify it under the same terms as Perl itself.