Result:
found more than 625 distributions - search limited to the first 2001 files matching your query
( run in 0.793 )
App-csv2tsv
view release on metacpan or search on metacpan
exit if $opt20 ;
exit if ! defined $csv ;
my @tmp = $csv -> error_diag () ; # ($cde, $str, $pos, $rec, $fld) = $csv->error_diag ();
if ( $tmp[0] != 2012 ) { # perldoc Text::CSV 㧠2012 をå‚照。EOFã‚’æ„味ã™ã‚‹ã€‚
print STDERR BRIGHT_RED join (":",@tmp),"\n" ;
print STDERR ON_BRIGHT_RED BLACK "_ERROR_INPUT at line $.: " ;
#use Data::Dumper ; #print STDERR UNDERLINE Dumper $csv ;
print STDERR UNDERLINE BRIGHT_RED $csv ->{_ERROR_INPUT} ;
exit 1 ;
}
}
}
App-csvtool
view release on metacpan or search on metacpan
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::cut
{
=head2 cut
$ csvtool cut -fFIELDS INPUT...
Extracts the given field column(s).
=head3 --fields, -f
lib/App/csvtool.pm view on Meta::CPAN
{ name => "fields|f=", description => "Comma-separated list of fields to extract",
default => "1" },
);
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my @FIELDS = split m/,/, $opts->{fields};
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::grep
{
=head2 grep
$ csvtool grep PATTERN INPUT...
Filter rows by the given pattern. The pattern is always interpreted as a Perl
regular expression.
=head3 --ignore-case, -i
lib/App/csvtool.pm view on Meta::CPAN
use constant COMMAND_ARGS => (
{ name => "pattern", description => "regexp pattern for filtering" },
);
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $pattern, $reader, $output )
{
my $FIELD = $opts->{field};
my $INVERT = $opts->{invert_match} // 0;
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::head
{
=head2 head
$ csvtool head -nLINES INPUT...
Output only the first few rows.
=head3 --lines, -n
lib/App/csvtool.pm view on Meta::CPAN
{ name => "lines|n=i", description => "Number of rows to select",
default => 10 },
);
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my $LINES = $opts->{lines};
lib/App/csvtool.pm view on Meta::CPAN
{ name => "field1|1=", description => "Field of FILE1 to join by" },
{ name => "field2|2=", description => "Field of FILE2 to join by" },
);
use constant WANT_READER => 2;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader1, $reader2, $output )
{
my $FIELD1 = $opts->{field1} // $opts->{field}; $FIELD1--;
my $FIELD2 = $opts->{field2} // $opts->{field}; $FIELD2--;
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::sort
{
=head2 sort
$ csvtool sort INPUT...
Sorts the rows according to the given field.
=head3 --field, -f
lib/App/csvtool.pm view on Meta::CPAN
);
use List::UtilsBy qw( sort_by nsort_by );
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my $FIELD = $opts->{field};
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::tail
{
=head2 tail
$ csvtool tail -nLINES INPUT...
Output only the final few rows.
=head3 --lines, -n
lib/App/csvtool.pm view on Meta::CPAN
{ name => "lines|n=i", description => "Number of rows to select",
default => 10 },
);
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my $LINES = $opts->{lines};
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::uniq
{
=head2 uniq
$ csvtool uniq -fFIELD INPUT...
Filters rows for unique values of the given field.
=head3 --field, -f
lib/App/csvtool.pm view on Meta::CPAN
{ name => "field|f=", description => "Field to key by",
default => 1 },
);
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my $FIELD = $opts->{field};
App-devmode
view release on metacpan or search on metacpan
bin/devmode view on Meta::CPAN
});
# Add the provider to the config
my $tt = Template->new({
LOAD_TEMPLATES => [ $provider ],
OUTPUT_PATH => $out_dir,
});
my %data = (
cwd => file('.')->absolute->resolve,
devmode => file($0)->absolute->resolve,
App-diroctopus
view release on metacpan or search on metacpan
}
# メインã®å¾Œã®å‡ºåŠ›
* REVERSE = sub { @_ } ;
print STDERR " -- " ;
print STDERR BOLD " NO OUTPUT RECORD ! -- " if $OutRec == 0 ;
print STDERR REVERSE ITALIC " Output records: " , CLEAR " $OutRec " ;
print STDERR " " , REVERSE ITALIC " Used random seed: " , CLEAR " $o{s} " ;
say STDERR " " , REVERSE ITALIC " Process time: " , CLEAR " " , ( tv_interval $time_start , [ gettimeofday ] ) , " second(s)." ;
}
App-dt
view release on metacpan or search on metacpan
sub _read_file {
my ($filename) = @_;
my $fmt;
DETERMINE_INPUT_FORMAT:
{
if ($filename eq '-') {
$fmt = $Opts{default_input_format};
last;
} elsif ($filename =~ s/:(json|yaml|perl)\z//) {
sub _write_file {
my ($filename, $data) = @_;
my $fmt;
my $pretty = $Opts{pretty};
DETERMINE_OUTPUT_FORMAT:
{
if ($filename eq '-') {
$fmt = $Opts{default_output_format};
$pretty //= 1 if -t STDOUT;
last;
App-duino
view release on metacpan or search on metacpan
lib/App/duino/Command/build.pm view on Meta::CPAN
sketchbook => $opt -> sketchbook,
hardware => $hardware,
};
$template -> fill_in(
OUTPUT => $makefile, HASH => $makefile_opts
);
system 'make', '--silent', '-f', $makefile_name;
die "Failed to build.\n" unless $? == 0;
}
App-easyDifferentialGeneCoexpressionWrapper
view release on metacpan or search on metacpan
## Execution instructions
The command for running easyDifferentialGeneCoexpressionWrapper is:
```diff
easyDifferentialGeneCoexpressionWrapper -a "PROBESETS_OR_GENE_SYMBOLS" -f "INPUT_FILE" -d "GEO_DATASET_CODE" -v "FEATURE_NAME" -v1 "CONDITION_1" -v2 "CONDITION_2" -o "OUTPUT_FILE"
```
An example usage command for computing the differential coexpression of probesets in the (<a href="https://www.ncbi.nlm.nih.gov/geo/query/acc.cgi?acc=GSE30201" target="_blank" rel="noopener noreferrer">GSE30201 gene expression dataset</a>) is:
```diff
-a <PROBESETS_OR_GENE_SYMBOLS>
A flag to indicate type of data (probesets or gene symbols) being read during execution
-f <INPUT_FILE>
The name of the CSV file listing the probesets or the gene symbols
-d <GEO_DATASET_CODE>
-v2 <CONDITION_2>
Name of the second condition in the feature to discriminate (for example, "can-
cer")
-o <OUTPUT_FILE>
Name of the output file where the output data for the differential coexpression of probesets are written
<p>Help information can be read by typing the following command:</p>
App-efm_perl
view release on metacpan or search on metacpan
For efm-langserver, set config.yaml as below.
tools:
efm-perl: &efm-perl
lint-command: efm-perl -f ${INPUT}
lint-ignore-exit-code: true
lint-stdin: true
lint-formats:
- '%l:%m'
App-finddo
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, $!);
# }
# binmode $OUT, ':utf8';
# local $/ = "\n";
# print $OUT Dump(@_);
#}
script/_finddo view on Meta::CPAN
# if (ref $filename eq 'GLOB') {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, $!);
# }
# binmode $IN, ':utf8';
# return Load(do { local $/; <$IN> });
#}
#
script/_finddo view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-freqtable
view release on metacpan or search on metacpan
script/freqtable view on Meta::CPAN
'output-every=i' => \$Opts{output_every},
'format=s' =>\$Opts{format},
'help|h' => sub {
print <<USAGE;
Usage:
freqtable [OPTIONS]... < INPUT
freqtable --help (or -h)
Options:
--bytes, -c
--chars, -m
--words, -w
script/freqtable view on Meta::CPAN
This document describes version 0.010 of freqtable (from Perl distribution App-freqtable), released on 2025-08-03.
=head1 SYNOPSIS
% freqtable [OPTIONS] < INPUT
Sample input:
% cat input-lines.txt
one
App-genpw-base56
view release on metacpan or search on metacpan
script/_genpw-base56 view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8';
# local $/ = "\n";
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_genpw-base56 view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8';
# return Load(do { local $/; <$IN> });
#}
#
script/_genpw-base56 view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-genpw-base58
view release on metacpan or search on metacpan
script/_genpw-base58 view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8';
# local $/ = "\n";
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_genpw-base58 view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8';
# return Load(do { local $/; <$IN> });
#}
#
script/_genpw-base58 view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-genpw-base64
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8';
# local $/ = "\n";
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_genpw-base64 view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8';
# return Load(do { local $/; <$IN> });
#}
#
script/_genpw-base64 view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-genpw-id
view release on metacpan or search on metacpan
script/_genpw-id view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8'; # if $Config{useperlio} eq 'define';
# local $/ = "\n"; # reset special to "sane"
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_genpw-id view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8'; # if $Config{useperlio} eq 'define';
# return Load(do { local $/; <$IN> });
#}
#
script/_genpw-id view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-genpw-ind
view release on metacpan or search on metacpan
script/_genpw-ind view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8'; # if $Config{useperlio} eq 'define';
# local $/ = "\n"; # reset special to "sane"
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_genpw-ind view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8'; # if $Config{useperlio} eq 'define';
# return Load(do { local $/; <$IN> });
#}
#
script/_genpw-ind view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-git-hub
view release on metacpan or search on metacpan
share/lib/git-hub view on Meta::CPAN
#------------------------------------------------------------------------------
# API calling functions:
#------------------------------------------------------------------------------
api-get() { api-call GET "$1" "$2"; }
api-post() { api-call POST "$1" "$2"; }
api-put() { api-call PUT "$1" "$2"; }
api-patch() { api-call PATCH "$1" "$2"; }
api-delete() { api-call DELETE "$1" "$2"; }
# Build a command to make the HTTP call to the API server, make the call, and
# check the result.
share/lib/git-hub view on Meta::CPAN
curl_command=(
curl
--request "$action"
"$url"
)
[ -n "$data" ] || [ "$action" = "PUT" ] && curl_command+=(-d "$data")
if [ -n "$basic_auth" ]; then
local login="$(get-login)"
if [ -n "$GIT_HUB_PASSWORD" ]; then
curl_command+=(-u "$login:$GIT_HUB_PASSWORD")
else
App-grindperl
view release on metacpan or search on metacpan
bin/grindperl view on Meta::CPAN
-D cc='ccache gcc'
-D cf_by=dagolden
-D cf_email='dagolden@cpan.org'
-D perladmin='dagolden@cpan.org'
-D optimize=-g
-A ccflags=-DPERL_USE_SAFE_PUTENV
To edit the config file, be sure your C<< EDITOR >> environment variable is set
and then run C<< grindperl --edit >>.
=head1 CAVEATS
App-hopen
view release on metacpan or search on metacpan
lib/App/hopen.pm view on Meta::CPAN
#INCLUDE => ['i','|include=s@'],
#LIB => ['l','|load=s@'], # TODO implement this. A separate option
# for libs only used for hopen files?
#LANGUAGE => ['L','|language:s'],
# --man reserved
# OUTPUT_FILENAME => ['o','|output=s', ""],
# OPTIMIZE => ['O','|optimize'],
PHASE => ['phase','=s'], # NO DEFAULT so we can tell if --phase was used
QUIET => ['q'],
App-hr
view release on metacpan or search on metacpan
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8'; # if $Config{useperlio} eq 'define';
# local $/ = "\n"; # reset special to "sane"
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8'; # if $Config{useperlio} eq 'define';
# return Load(do { local $/; <$IN> });
#}
#
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-jt
view release on metacpan or search on metacpan
jt assumes the input is some data serialized as JSON, and perform transformation
based on its parameter. It can be used to deal with various RESTful web service
api, such as ElasticSearch.
=head1 OUTPUT OPTIONS
The default output format is JSON. If C<--csv> is provided then simple fields
are chosen and then converted to CSV. If C<--tsv> is provided then it becomes
tab-separated values.
App-karr
view release on metacpan or search on metacpan
lib/App/karr/Cmd/Board.pm view on Meta::CPAN
Renders a board-oriented summary grouped by status. The default output is a
human-friendly terminal dashboard with colors and task badges for claims,
blocked state, and due dates. Compact and JSON modes are available for
automation and scripting.
=head1 OUTPUT MODES
=over 4
=item * Default output
App-linespeed
view release on metacpan or search on metacpan
script/linespeed view on Meta::CPAN
exit 0;
},
'help|h' => sub {
print <<USAGE;
Usage:
linespeed [OPTIONS]... < INPUT
linespeed --version, -v
linespeed --help, -h
Options:
For more details, see the manpage/documentation.
USAGE
App-local-lib-Win32Helper
view release on metacpan or search on metacpan
xt/800_perlcritic.t view on Meta::CPAN
use strict;
BEGIN {
use English qw(-no_match_vars);
$OUTPUT_AUTOFLUSH = 1;
$WARNING = 1;
}
my @MODULES = (
'Perl::Tidy',
App-local-lib-helper
view release on metacpan or search on metacpan
lib/App/local/lib/helper/rationale.pod view on Meta::CPAN
You can see yours by typing C<perl -V> from the command line. Here's what I see
when I do so on my terminal:
$ perl -V
[EXTENSIVE OUTPUT SNIPPED]
@INC:
/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1/darwin-thread-multi-2level
/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1
/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/darwin-thread-multi-2level
App-makedpkg
view release on metacpan or search on metacpan
# prepare debuild directory
makedpkg '--prepare', '--verbose';
ok !exit_code;
is output_no_config."\n", <<OUTPUT;
building into debuild
debuild/debian/changelog
debuild/debian/compat
debuild/debian/control
debuild/debian/rules
debuild/debian/source/format
before: pwd
debuild/debian/install
OUTPUT
is `find debuild | sort`, <<DEBUILD, 'files copied';
debuild
debuild/debian
debuild/debian/changelog
App-metasyn
view release on metacpan or search on metacpan
script/_metasyn view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8'; # if $Config{useperlio} eq 'define';
# local $/ = "\n"; # reset special to "sane"
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_metasyn view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8'; # if $Config{useperlio} eq 'define';
# return Load(do { local $/; <$IN> });
#}
#
script/_metasyn view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-mgen
view release on metacpan or search on metacpan
lib/App/mgen.pm view on Meta::CPAN
}
## std output
if ( !$self->{options}->{silent} ) {
print "$gen\n";
print "OUTPUT >> $path\n" if $path;
}
return $gen;
}
App-mkfeyorm
view release on metacpan or search on metacpan
lib/App/mkfeyorm.pm view on Meta::CPAN
after 'set_output_path' => sub {
my ( $self, $path ) = @_;
my $tt = Template->new({
OUTPUT_PATH => $self->output_path,
DEFAULT_ENCODING => 'utf-8',
}) || die "$Template::ERROR\n";
$self->_set_template($tt);
};
lib/App/mkfeyorm.pm view on Meta::CPAN
sub _build__template {
my $self = shift;
my $tt = Template->new({
OUTPUT_PATH => $self->output_path,
DEFAULT_ENCODING => 'utf-8',
}) || die "$Template::ERROR\n";
return $tt;
}
App-nauniq
view release on metacpan or search on metacpan
script/nauniq view on Meta::CPAN
'md5' => \$Opts{md5},
'read-output' => \$Opts{read_output},
'help|h' => sub {
print <<USAGE;
Usage:
nauniq [OPTIONS]... [INPUT [OUTPUT]]
nauniq --help
Options:
--repeated, -d
--ignore-case, -i
--num-entries=N, -n
script/nauniq view on Meta::CPAN
This document describes version 0.112 of nauniq (from Perl distribution App-nauniq), released on 2025-09-24.
=head1 SYNOPSIS
nauniq [OPTION]... [INPUT [OUTPUT]]
=head1 DESCRIPTION
C<nauniq> is similar to the Unix command C<uniq> but detects repeated lines even
if they are not adjacent. To do this, C<nauniq> must remember the lines being
fed to it. It's basically a glorified form of something like these:
% awk '!mem[$0]++' INPUT
% perl -ne'print unless $mem{$_}++' INPUT
There are options to control memory usage: option to only remember a certain
number of unique lines, option to remember a certain number of characters for
each line, and option to only remember the MD5 hash (instead of the content) of
each line. There are also other options like append, forget, and so on.
App-nrun
view release on metacpan or search on metacpan
lib/NRun/Check.pm view on Meta::CPAN
# a derived module must call register() in BEGIN{}, otherwise it will not
# be available.
#
# any output generated by the check modules must match the following format:
#
# HOSTNAME;stderr;PID;n/a;error;"OUTPUT"
#
# additionally the exit code must be printed on any error:
#
# HOSTNAME;stdout;PID;n/a;exit;"exit code CODE"
###
( run in 0.793 second using v1.01-cache-2.11-cpan-39bf76dae61 )