Net::OBS::Client simple OBS API calls
Net::OBS::Client aims to simplify usage of OBS (https://openbuildservice.org) API calls in perl.
BookBot Collates text files into a single file
Asking for wisdom on whether or not an application should go on CPAN. I write science fiction, and keep each scene in a text file. BookBot collates the files into one larger file, and inserts section break markers that can be replaced with page breaks in LibreOffice. Future state includes LaTeX output, grade level reporting, and repeated word counts.
Is that something anyone besides me finds useful?
Finance::IG Module gor using IG Markets REST API.
The sample code lists your positions and prints them out in a 1 line per position format.
Transactions and accounts can be listed in a similar way.
This code is at an early stage and should serve as a framework for further additions.
I invite anyone who has an IG account and uses the REST API with an api key to try it and advise how you get on.
Promise::Syntax async/await comprehension syntax in pure perl
This is a 'bicycle' i use for some time in my system tests.
Log::CJournald C-Style Journald access
Journald access c-style. Provides structured logging via sendv, log opening, seeking + retrieval.
Text::Transform transform and recover interface for text processing
This module is currently included in Text::VisualPrintf distribution as Text::VisualPrintf::Transform, and I'm planning to release it as an individual module.
Library using Text::VisualPrintf::Transform
Application using Text::VisualPrintf::Transform
Application using Text::ANSI::Printf intensively
DESCRIPTION
This is a general interface to transform text data into desirable form, and recover the result after the process.
For example, Text::Tabs does not take care of Asian wide characters to calculate string width. So the next program does not work as we wish.
use Text::Tabs;
print expand <>;
In this case, make transform object with length function which understand wide-character width, and the pattern of string to be replaced.
use Text::VisualPrintf::Transform;
use Text::VisualWidth::PP;
my $xform = Text::VisualPrintf::Transform->new(
length => \&Text::VisualWidth::PP::width,
match => qr/\P{ASCII}+/,
);
Then next program encode data, call expand() function, and recover the result into the original text.
my @lines = <>;
$xform->encode(@lines);
my @expanded = expand @lines;
$xform->decode(@expanded);
print @expanded;
Fancy::Open Fancy::Open opens a file and creates an array with several options.
(The module has been renamed, url updated.)
NAME
Fancy::Open opens a file and creates an array with an optional prefix string, suffix string, or both to the lines in the file. You can also add an optional string to join the prefix, line, and suffix. You can specify how to handle empty lines. The array is returned in your preferred encoding.
VERSION
This document describes Fancy::Open version 1.0.
DESCRIPTION
fancy_open
can be exported and returns a list of values. These values can be modified if the optional parameters prefix
, suffix
, or both are used. You can also add a joiner
string to join the prefix, line, and suffix. If your file could have empty lines, the empty
option can be used to specify how to handle them. There is the additional option to choose your encoding
, the default is utf-8
.
If the open fails, fancy_open will die.
perl
my @fancy_array = fancy_open(
'file_path',
{
'prefix' => 'prefix_string',
'suffix' => 'suffix_string',
'joiner' => 'joiner_string',
'empty' => 'empty_option', # fill, blank, or undefined
'encoding' => 'encoding_option' # any valid encoding
}
);
The file is also closed by fancy_open
.
Fancy::Open
requires Perl version 5.6 or better.
Parameters
fancy_open
has two parameters.
Note: all sample returned arrays are the results from Data::Dump.
Sample file contents.
red
orange
yellow
spring
green
teal
cyan
azure
blue
violet
magenta
pink
white
black
gray
file
perl
my @plain_array = fancy_open('file_path');
The first parameter is the file to be opened. If this is the only parameter specified, the file will be opened, encoded to utf-8
, and returned as a list.
Options
The second parameter are the options: prefix
, suffix
, joiner
, empty
, and encoding
.
prefix
perl
my @prefix_array = fancy_open('file_path', { 'prefix' => 'solid' });
The prefix
option is the string you want prepended to each item in the list. Using the example, all items on the list will be returned with solid
prepended to them.
perl
(
"solidred",
"solidorange",
"solidyellow",
"solidspring",
"solidgreen",
"solidteal",
"solidcyan",
"solidazure",
"solidblue",
"solidviolet",
"solidmagenta",
"solidpink",
"solidwhite",
"solidblack",
"solidgray",
)
suffix
perl
my @suffix_array = fancy_open('file_path', { 'suffix' => 'bead; });
The suffix
option is the string you want to appear appended to each item in the list. Using the example, all items on the list will be returned with bead
appended to them.
perl
(
"redbead",
"orangebead",
"yellowbead",
"springbead",
"greenbead",
"tealbead",
"cyanbead",
"azurebead",
"bluebead",
"violetbead",
"magentabead",
"pinkbead",
"whitebead",
"blackbead",
"graybead",
)
prefix and suffix
perl
my @both_array = fancy_open('file_path', { 'prefix' => 'solid', 'suffix' => 'bead' });
Using both the prefix
and suffix
options together will prepend and append the associated strings to the items in the list.
perl
(
"solidredbead",
"solidorangebead",
"solidyellowbead",
"solidspringbead",
"solidgreenbead",
"solidtealbead",
"solidcyanbead",
"solidazurebead",
"solidbluebead",
"solidvioletbead",
"solidmagentabead",
"solidpinkbead",
"solidwhitebead",
"solidblackbead",
"solidgraybead",
)
joiner
perl
my @joiner_array = fancy_open('file_path', { 'prefix' => 'solid', 'suffix' => 'bead', 'joiner' => ' ' });
The joiner
option will add a string between the prefix, the line from the file, and the suffix. In this case, a single space.
perl
(
"solid red bead",
"solid orange bead",
"solid yellow bead",
"solid spring bead",
"solid green bead",
"solid teal bead",
"solid cyan bead",
"solid azure bead",
"solid blue bead",
"solid violet bead",
"solid magenta bead",
"solid pink bead",
"solid white bead",
"solid black bead",
"solid gray bead",
)
empty
perl
my @empty_line = fancy_open('file_path', { 'empty' => 'fill' });
The empty
option has three possible values for what to do with empty lines in the file: fill
, blank
, or undefined
. If empty
is not used or is any value than the three listed, the empty line will be ignored.
Sample file contents with an empty line.
``` red orange yellow spring green teal cyan azure
blue violet magenta pink white black gray ```
fill
will prefix and suffix the value as it does with all other lines.perl my @empty_line = fancy_open('file_path', { 'prefix' => 'solid', 'empty' => 'fill' });
The array returned will be:
perl ( "solidred", "solidorange", "solidyellow", "solidspring", "solidgreen", "solidteal", "solidcyan", "solidazure", "solid", "solidblue", "solidviolet", "solidmagenta", "solidpink", "solidwhite", "solidblack", "solidgray", )
blank
will return a zero length but defined value.perl my @empty_line = fancy_open('file_path', { 'prefix' => 'solid', 'empty' => 'blank' });
The array returned will be:perl ( "solidred", "solidorange", "solidyellow", "solidspring", "solidgreen", "solidteal", "solidcyan", "solidazure", "", "solidblue", "solidviolet", "solidmagenta", "solidpink", "solidwhite", "solidblack", "solidgray", )
undefined
will return an undefined value.perl @empty_line = fancy_open('file_path', { 'prefix' => 'solid', 'empty' => 'undefined' });
The array returned will be:
perl ( "solidred", "solidorange", "solidyellow", "solidspring", "solidgreen", "solidteal", "solidcyan", "solidazure", undef, "solidblue", "solidviolet", "solidmagenta", "solidpink", "solidwhite", "solidblack", "solidgray", )
encoding
perl
my @encoded_array = fancy_open('file_path', { 'encoding' => 'ascii' });
The encoding
option is the encoding you want to use to open the file. The above file will be opened ascii
encoded.
App::ansicolumn ANSI sequence aware column command
I made this command to demonstrate Text::ANSI::Printf module, but it is getting to be more interesting tool.
IMAGES
https://github.com/kaz-utashiro/App-ansicolumn/tree/master/images
EXAMPLE
column(1) compatible usage
$ ls -1 --color=always /usr/bin | ansicolumn
$ (printf "PERM LINKS OWNER GROUP SIZE MONTH DAY HH:MM/YEAR NAME\n" ; ls --color=always -l | sed 1d) | ansicolumn -t
Show DOCX document in 3up format
$ cpanm App::optex::textconv
$ optex -Mtextconv ansicolumn -DPC3 foo.docx | less
Show highlighted source code in 2up format
$ source-highlight -f esc -i lib/App/ansicolumn.pm | ansicolumn -PC2 | less
INSTALL
$ cpanm https://github.com/kaz-utashiro/App-ansicolumn.git
Text::ANSI::Printf printf function for string with ANSI sequence
Text::ANSI::Printf is a almost-printf-compatible library with a capability of handling string with ANSI terminal sequences, as well as multi-byte wide characters.
This is just a quick hack using existing modules, Text::VisualPrintf and Text::ANSI::Fold::Util. Not tuned for performance. Most of complicated work is done in Text::ANSI::Fold module.
INSTALL: cpanm https://github.com/kaz-utashiro/Text-ANSI-Printf.git
List::GroupBy Group a list of hashref's to a multilevel hash of hashrefs of arrayrefs
List::GroupBy provides functions to group a list of hashrefs in to a hash of hashrefs of arrayrefs.
FUNCTIONS
groupBy( [ 'primary key', 'secondary key', ... ], LIST )
If called with and array ref as the first parameter then
groupBy
will group the list by the keys provided in the array ref.Note: undefined values for a key will be defaulted to the empty string.
Returns a hash of hashrefs of arrayrefs
groupBy( { keys => [ 'key', ... ], defaults => { 'key' => 'default', ... }, operations => { 'key' => sub, ... }, LIST )
More advanced options are available by calling
groupBy
with a hash ref of options as the first parameter. Available options are:keys
(Required)An array ref of the keys to use for grouping. The order of the keys dictates the order of the grouping. So the first key is the primary grouping, the second key is used for the secondary grouping under the primary grouping an so on.
defaults
(Optional)A hash ref of defaults to use one or more keys. If a key for an item is undefined and there's an entry in the
defaults
option then that will be used. If no default value has been supplied for a key then the empty string will be used.operations
(Optional)A hash ref mapping keys to a function to use to normalise value's when grouping. If there's no entry for a key then the value is just used as is.
Each funtion is passed the value as it's only parameter and it's return value is used for the key.
Returns a hash of hashrefs of arrayrefs