view release on metacpan or search on metacpan
lib/App/PDFUtils.pm view on Meta::CPAN
following command:
% gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/screen -dNOPAUSE -dQUIET -dBATCH -sOutputFile=output.pdf input.pdf
This wrapper offers support for multiple files and automatically naming output
`INPUT.compressed.pdf` by default.
MARKDOWN
args => {
%argspec0_files,
%argspecopt_overwrite,
lib/App/PDFUtils.pm view on Meta::CPAN
following command:
% gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/screen -dNOPAUSE -dQUIET -dBATCH -sOutputFile=output.pdf input.pdf
This wrapper offers support for multiple files and automatically naming output
C<INPUT.compressed.pdf> by default.
This function is not exported.
Arguments ('*' denotes required arguments):
view release on metacpan or search on metacpan
lib/App/PPI/Dumper.pm view on Meta::CPAN
=head2 Methods
=over 4
=item run( OPTIONS, INPUT_FILE )
Parse INPUT_FILE with the given PPI::Dumper options, then print the result to
standard output.
=over 4
=item -m
view release on metacpan or search on metacpan
lib/App/PTP/Cheat_Sheet.pod view on Meta::CPAN
Run with:
ptp file1 file2 ... [--grep re] [--substitute re subst] ... [-o out]
=head2 INPUT FILES
Input files can appear anywhere on the command line and are processed in the
order in which they are given.
=over 8
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
my $junk = "";
my $current = \$junk;
while (<TYPEMAP>) {
next if /^\s*\#/;
my $line_no = $. + 1;
if (/^INPUT\s*$/) {$mode = 'Input'; $current = \$junk; next}
if (/^OUTPUT\s*$/) {$mode = 'Output'; $current = \$junk; next}
if (/^TYPEMAP\s*$/) {$mode = 'Typemap'; $current = \$junk; next}
if ($mode eq 'Typemap') {
chomp;
my $line = $_;
TrimWhitespace($_);
inc/Inline/C.pm view on Meta::CPAN
I32* temp;
CODE:
temp = PL_markstack_ptr++;
RETVAL = $function($arg_name_list);
PL_markstack_ptr = temp;
OUTPUT:
RETVAL
END
}
}
$XS .= "\n";
inc/Inline/C.pm view on Meta::CPAN
#define Inline_Stack_Vars dXSARGS
#define Inline_Stack_Items items
#define Inline_Stack_Item(x) ST(x)
#define Inline_Stack_Reset sp = mark
#define Inline_Stack_Push(x) XPUSHs(x)
#define Inline_Stack_Done PUTBACK
#define Inline_Stack_Return(x) XSRETURN(x)
#define Inline_Stack_Void XSRETURN(0)
#define INLINE_STACK_VARS Inline_Stack_Vars
#define INLINE_STACK_ITEMS Inline_Stack_Items
inc/Inline/C.pm view on Meta::CPAN
sub build_error_message {
my ($o, $cmd, $output_file, $build_noisy) = @_;
my $build_dir = $o->{API}{build_dir};
my $output = '';
if (not $build_noisy and
open(OUTPUT, $output_file)
) {
local $/;
$output = <OUTPUT>;
close OUTPUT;
}
my $errcode = $? >> 8;
$output .= <<END;
view release on metacpan or search on metacpan
lib/App/Phoebe.pm view on Meta::CPAN
C<@extensions> is a list of code references allowing you to handle additional
URLs; return 1 if you handle a URL; each code reference gets called with $stream
(L<Mojo::IOLoop::Stream>), the first line of the request (a Gemini URL, a Gopher
selector, a finger user, a HTTP request line), a hash reference (with the
headers of HTTP requests or the parameters of Titan requests), a buffer of bytes
(e.g. for Titan or HTTP PUT or POST requests), and (sometimes) size.
C<@main_menu> adds more lines to the main menu, possibly links that aren't
simply links to existing pages.
C<@footer> is a list of code references allowing you to add things like licenses
view release on metacpan or search on metacpan
use constant PROGRAMME_NAME => 'spipe';
# ABSTRACT: simple pipeline running interface
our $VERSION = '0.9.1'; # VERSION
# PODNAME: spipe
# raising $OUTPUT_AUTOFLUSH flag to get immediate reporting
$| = 1;
# catch interuptions cleanly
$SIG{'INT'} = 'CLEANUP';
sub CLEANUP { exit(1) }
# variables to catch command line options
our $DEBUG = '';
our $CONFIG = '';
our $DIR = '.';
our $GRAPHVIZ;
our $INPUT = '';
our $ITYPE = '';
#our $CONTINUE; # not implemented yet
our $START = '';
our $STOP = '';
our $VERBOSE;
'v|version' => sub{ print PROGRAMME_NAME, ", version ", $VERSION, "\n";
exit(1); },
'g|debug' => \$DEBUG,
'c|config:s' => \$CONFIG,
'd|directory:s' => \$DIR,
'i|input:s' => \$INPUT,
'it|itype:s' => \$ITYPE,
'graphviz' => \$GRAPHVIZ,
# 'continue' => \$CONTINUE,
'start:s' => \$START,
'stop:s' => \$STOP,
my %args;
$args{config} = $CONFIG if $CONFIG;
$args{dir} = $DIR;
$args{input} = $INPUT if $INPUT;
$args{itype} = $ITYPE if $ITYPE;
$args{start} = $START if $START;
$args{stop} = $STOP if $STOP;
$args{verbose} = $VERBOSE if $VERBOSE;
view release on metacpan or search on metacpan
lib/App/Plog.pm view on Meta::CPAN
{
croak "Error: can't execute '$command' $error_message: $CHILD_ERROR\n" ;
}
# todo: check wantarray
my $text = do { local $INPUT_RECORD_SEPARATOR = undef ; <$out> ; } ;
return $text ;
}
package App::Plog ;
lib/App/Plog.pm view on Meta::CPAN
if (defined $self->{ascii_doc_version})
{
my $pid = open2($reader, $writer, 'asciidoc -o - -s -' );
local $INPUT_RECORD_SEPARATOR = undef ;
print {$writer} $text ; close $writer ;
$entry_html = <$reader>; close $reader ;
}
$entry_html = <<"EOE" ;
view release on metacpan or search on metacpan
lib/App/Pocoirc.pm view on Meta::CPAN
multiple IRC components simultaneously.
If you specify C<local_plugins> at the top level, it will serve as a default
list of local plugins, which can be overridden in a network hash.
=head1 OUTPUT
Here is some example output from the program:
$ pocoirc -f example/config.yml
2011-04-18 18:10:52 Started (pid 20105)
view release on metacpan or search on metacpan
lib/App/Pocosi.pm view on Meta::CPAN
=head2 C<exemptions>
An array of netmasks (the kind which L<Net::Netmask|Net::Netmask>'s
constructor accepts).
=head1 OUTPUT
Here is some example output from the program:
$ pocosi -f example/config.yml
2011-05-22 15:30:02 Started (pid 13191)
view release on metacpan or search on metacpan
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
has server => sub { Mojo::UserAgent::Server->new( ioloop => shift->ioloop ) };
has socket_options => sub { {} };
has transactor => sub { Mojo::UserAgent::Transactor->new };
# Common HTTP methods
for my $name ( qw(DELETE GET HEAD OPTIONS PATCH POST PUT) ) {
monkey_patch __PACKAGE__, lc $name, sub {
my ( $self, $cb ) = ( shift, ref $_[-1] eq 'CODE' ? pop : undef );
return $self->start( $self->build_tx( $name, @_ ), $cb );
};
monkey_patch __PACKAGE__, lc( $name ) . '_p', sub {
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
say $ua->get('www.perl.org')->result->dom->at('title')->text;
# Scrape the latest headlines from a news site
say $ua->get('blogs.perl.org')->result->dom->find('h2 > a')->map('text')->join("\n");
# IPv6 PUT request with Content-Type header and content
my $tx = $ua->put('[::1]:3000' => {'Content-Type' => 'text/plain'} => 'Hi!');
# Quick JSON API request with Basic authentication
my $url = Mojo::URL->new('https://example.com/test.json')->userinfo('sri:☃');
my $value = $ua->get($url)->result->json;
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
L<Mojo::UserAgent> inherits all methods from L<Mojo::EventEmitter> and implements the following new ones.
=head2 build_tx
my $tx = $ua->build_tx(GET => 'example.com');
my $tx = $ua->build_tx(PUT => 'http://example.com' => {Accept => '*/*'} => 'Content!');
my $tx = $ua->build_tx(PUT => 'http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
my $tx = $ua->build_tx(PUT => 'http://example.com' => {Accept => '*/*'} => json => {a => 'b'});
Generate L<Mojo::Transaction::HTTP> object with L<Mojo::UserAgent::Transactor/"tx">.
# Request with custom cookie
my $tx = $ua->build_tx(GET => 'https://example.com/account');
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
my $tx = $ua->put('example.com');
my $tx = $ua->put('http://example.com' => {Accept => '*/*'} => 'Content!');
my $tx = $ua->put('http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
my $tx = $ua->put('http://example.com' => {Accept => '*/*'} => json => {a => 'b'});
Perform blocking C<PUT> request and return resulting L<Mojo::Transaction::HTTP> object, takes the same arguments as
L<Mojo::UserAgent::Transactor/"tx"> (except for the C<PUT> method, which is implied). You can also append a callback to
perform requests non-blocking.
$ua->put('http://example.com' => json => {a => 'b'} => sub ($ua, $tx) { say $tx->result->body });
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
view release on metacpan or search on metacpan
lib/App/PrereqGrapher.pm view on Meta::CPAN
=over 4
=item format
Select the output format, which must be one of: dot, svg, vcg, gml, or html.
See L</"OUTPUT FORMATS"> for more about the supported output formats.
If not specified, the default format is 'dot'.
=item output_file
Specifies the name of the file to write the dependency graph into,
lib/App/PrereqGrapher.pm view on Meta::CPAN
as it will be interpreted as the module of that name. Put an explicit path to stop this:
$grapher->generate_graph('./strict');
=head1 OUTPUT FORMATS
=over 4
=item dot
view release on metacpan or search on metacpan
lib/App/Presto/Client.pm view on Meta::CPAN
my $self = shift;
my $uri = $self->_make_uri(shift);
$self->_rest_client->POST( $uri, shift );
}
sub PUT {
my $self = shift;
my $uri = $self->_make_uri(shift);
$self->_rest_client->PUT( $uri, shift );
}
sub _make_uri {
my $self = shift;
my $local_uri = shift;
view release on metacpan or search on metacpan
bin/pretty-res view on Meta::CPAN
exit 0;
},
'help|h' => sub {
print <<USAGE;
Usage:
pretty-res [OPTIONS] < INPUT
pretty-res --version
pretty-res --help
Examples:
pretty-res -o yaml data.json
Options:
bin/pretty-res view on Meta::CPAN
=head1 SYNOPSIS
Usage:
% pretty-res [OPTIONS] < INPUT
Examples:
% echo '[200, "OK", [1..5]]' | pretty-res -i perl
.----.
view release on metacpan or search on metacpan
bin/prima-repl view on Meta::CPAN
my $fileName = '.prima.repl.history';
my $historyLength = 200; # total number of lines to save to disk
#use Eval::WithLexicals;
my $DEBUG_OUTPUT = 0;
my $initrc_filename = 'prima-repl.initrc';
# Load PDL if they have it
my ($loaded_PDL, $loaded_Prima_Graphics);
BEGIN {
$loaded_PDL = 0;
bin/prima-repl view on Meta::CPAN
my @lines = split /([\n\r])/, join('', @args);
# Remove useless parts of error messages (which refer to lines in this code)
s/ \(eval \d+\)// for @lines;
# Open the logfile, which I'll print to simultaneously:
open my $logfile, '>>', 'prima-repl.logfile';
IO::OutWindow::print_to_terminal(@lines) if $DEBUG_OUTPUT or $to_stderr;
# Go through each line and carriage return, overwriting where appropriate:
foreach(@lines) {
# If it's a carriage return, set the current column to zero:
if (/\r/) {
$output_column = 0;
view release on metacpan or search on metacpan
lib/App/ape/update.pm view on Meta::CPAN
=head1 USAGE
ape update [-p ONLY_PLATFORM -v ONLY_VERSION -s STATUS ] -d Defect1 -d Defect2 test1 ... testN
=head2 MANDATORY INPUT
=over 4
=item B<-d [DEFECT]> : at least one must be passed; this will be associated with all the relevant test results indexed. May be passed multiple times.
view release on metacpan or search on metacpan
lib/App/RPi/EnvUI/API.pm view on Meta::CPAN
if ($light_on_hours == 24 || $dt_now > $dt_light_on){
if (! $self->aux_state($aux)){
$log->_6("turning light on");
$self->aux_state($aux, ON);
pin_mode($pin, OUTPUT);
write_pin($pin, HIGH);
}
}
if (! $light_on_hours || $dt_now > $dt_light_off){
if ($self->aux_state($aux)){
$log->_6("turning light off");
$self->aux_state($aux, OFF);
pin_mode($pin, OUTPUT);
write_pin($pin, LOW);
$dt_light_on = _set_light_on_time($dt_now, $light_on_at);
$dt_light_off = _set_light_off_time($dt_light_on, $light_on_hours);
}
}
lib/App/RPi/EnvUI/API.pm view on Meta::CPAN
if ($pin != -1){
if (read_pin($pin) != $state){
if ($state){
$log->_6("set $pin state to HIGH");
pin_mode($pin, OUTPUT);
write_pin($pin, HIGH);
}
else {
$log->_6("set $pin state to LOW");
pin_mode($pin, OUTPUT);
write_pin($pin, LOW);
}
}
else {
$log->_6("pin $pin state already set properly");
view release on metacpan or search on metacpan
t/01-basic.t view on Meta::CPAN
print $tmpl_fh $template or die $!;
close $config_fh;
close $tmpl_fh;
my $output = <<OUTPUT;
setting1 = value1
setting2 = value2
OUTPUT
my $result = test_app( 'App::Rcsync' => [ '--config', $config_filename, '--stdout', 'test1' ] );
eq_or_diff($result->stdout, $output, 'file parsed properly');
is($result->error, undef, 'threw no exceptions');
view release on metacpan or search on metacpan
t/fromfasta.t view on Meta::CPAN
my $output;
my $tester = App::RecordStream::Test::Tester->new('fromfasta');
diag "basic input";
$input = <<'INPUT';
>foo baz bar
TCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG
GGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACT
TCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG
GGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACT
t/fromfasta.t view on Meta::CPAN
SLYNTVAVLYYVHQR
>empty
>bogus
TCATTATATAATACAGTAGC>>CCCTCTATTGTGTGCATCAAAGG
>empty2
INPUT
$output = <<'OUTPUT';
{"id":"foo","description":"baz bar","name":"foo baz bar","sequence":"TCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG\nGGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACT\nTCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG\nGGAAACTACGTGTGTTATCTCCCAACGATGACATAATATA...
{"id":"baz","description":null,"name":"baz", "sequence":"SLYNTVAVLYYVHQR"}
{"id":"empty","description":null,"name":"empty","sequence":null}
{"id":"bogus","description":null,"name":"bogus","sequence":"TCATTATATAATACAGTAGC>>CCCTCTATTGTGTGCATCAAAGG"}
{"id":"empty2","description":null,"name":"empty2","sequence":null}
OUTPUT
$tester->test_input([], $input, $output);
diag "--oneline";
$output = <<'OUTPUT';
{"id":"foo","description":"baz bar","name":"foo baz bar","sequence":"TCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGGGGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACTTCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGGGGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACT"...
{"id":"baz","description":null,"name":"baz", "sequence":"SLYNTVAVLYYVHQR"}
{"id":"empty","description":null,"name":"empty","sequence":null}
{"id":"bogus","description":null,"name":"bogus","sequence":"TCATTATATAATACAGTAGC>>CCCTCTATTGTGTGCATCAAAGG"}
{"id":"empty2","description":null,"name":"empty2","sequence":null}
OUTPUT
$tester->test_input(['--oneline'], $input, $output);
diag "Test multiple input files with --filename-key";
$output = "";
my $output_template = <<'OUTPUT';
{"id":"foo","description":"baz bar","file":__TMPFILE__,"name":"foo baz bar","sequence":"TCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG\nGGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACT\nTCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG\nGGAAACTACGTGTGTTATCTC...
{"id":"baz","description":null,"file":__TMPFILE__,"name":"baz", "sequence":"SLYNTVAVLYYVHQR"}
{"id":"empty","description":null,"file":__TMPFILE__,"name":"empty","sequence":null}
{"id":"bogus","description":null,"file":__TMPFILE__,"name":"bogus","sequence":"TCATTATATAATACAGTAGC>>CCCTCTATTGTGTGCATCAAAGG"}
{"id":"empty2","description":null,"file":__TMPFILE__,"name":"empty2","sequence":null}
OUTPUT
my $JSON = JSON->new->utf8->allow_nonref;
my @files;
for (1..3) {
view release on metacpan or search on metacpan
lib/App/RecordStream/InputStream.pm view on Meta::CPAN
sub get_filename {
my $this = shift;
if ( ! $this->is_done() ) {
return $this->get_file() if ( $this->get_file() );
return 'STRING_INPUT' if ( $this->get_string() );
return 'STREAM_INPUT' if ( $this->get_fh() );
return 'UNKNOWN';
}
elsif ( $this->get_next() ) {
return $this->get_next()->get_filename();
}
view release on metacpan or search on metacpan
lib/App/Regather/Plugin/configfile.pm view on Meta::CPAN
my ($tt_vars, $pp, $chin, $chou, $chst, $cher);
$self->log->cc( pr => 'debug', fm => "%s called with arguments: %s",
ls => [ sprintf("%s:%s",__FILE__,__LINE__), join(',', sort(keys( %{$self}))), ] ) if $self->{v} > 3;
### PREPARING OUTPUT RELATED VARIABLES
my %out_paths = out_paths( cf => $self->cf, obj => $self->obj,
service => $self->service, rdn => $self->rdn, log => $self->log );
return if ! %out_paths;
my $out_file_pfx //= $out_paths{out_file_pfx};
my $out_file //= $out_paths{out_file};
lib/App/Regather/Plugin/configfile.pm view on Meta::CPAN
}
$tmp_fn = $tmp_fh->filename;
my $tt = Template->new( TRIM => $self->cf->get(qw(core tt_trim)),
ABSOLUTE => 1,
RELATIVE => 1,
OUTPUT_PATH => $dir,
DEBUG => $self->log->foreground // $self->cf->get(qw(core tt_debug)) );
$self->log->cc( pr => 'err', fm => "%s: Template->new( OUTPUT_PATH => %s ) for service %s error: %s",
ls => [ sprintf("%s:%s",__FILE__,__LINE__), $dir, $self->service, $! ] )
if ! defined $tt;
$tt->process( sprintf("%s/%s",
$self->cf->get(qw(core tt_path)),
lib/App/Regather/Plugin/configfile.pm view on Meta::CPAN
my ($tt_vars, $pp, $chin, $chou, $chst, $cher);
$self->log->cc( pr => 'debug', fm => "%s: %s called with arguments: %s",
ls => [ sprintf("%s:%s",__FILE__,__LINE__), join(',', sort(keys( %{$self}))), ] ) if $self->{v} > 3;
### PREPARING OUTPUT RELATED VARIABLES
my %out_paths = out_paths( cf => $self->cf, obj => $self->obj,
service => $self->service, rdn => $self->rdn, log => $self->log );
return if ! %out_paths;
my $out_file_pfx //= $out_paths{out_file_pfx};
my $out_file //= $out_paths{out_file};
view release on metacpan or search on metacpan
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
DIDI... is that a MARTIAN name, or, are we in ISRAEL?
Have you been certain a martian name or are you in israel?
Don't worry, nobody really LISTENS to lectures in MOSCOW, either!
.. FRENCH, HISTORY, ADVANCED CALCULUS, COMPUTER PROGRAMMING,
BLACK STUDIES, SOCIOBIOLOGY!.. Are there any QUESTIONS??
Is it because of your inhibitions that you are going through all
this?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I just had a NOSE JOB!!
You mentioned that you would like to have this suntan?
I just had a MAJOR CONTRACT DISPUTE with SUZANNE SOMERS!!
Is it because of some problems in your childhood that you are
going through all this?
I wonder if I could ever get started in the credit world?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I wish I was on a Cincinnati street corner holding a clean dog!
How do you reconcile your plans?
I just had a MAJOR CONTRACT DISPUTE with SUZANNE SOMERS!!
Possibly this is related to your life?
CHUBBY CHECKER just had a CHICKEN SANDWICH in downtown DULUTH!
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
DIDI... is that a MARTIAN name, or, are we in ISRAEL?
Have you been certain a martian name or are you in israel?
Don't worry, nobody really LISTENS to lectures in MOSCOW, either!
.. FRENCH, HISTORY, ADVANCED CALCULUS, COMPUTER PROGRAMMING,
BLACK STUDIES, SOCIOBIOLOGY!.. Are there any QUESTIONS??
Is it because of your inhibitions that you are going through all
this?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I just had a NOSE JOB!!
You mentioned that you would like to have this suntan?
I just had a MAJOR CONTRACT DISPUTE with SUZANNE SOMERS!!
Is it because of some problems in your childhood that you are
going through all this?
I wonder if I could ever get started in the credit world?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I wish I was on a Cincinnati street corner holding a clean dog!
How do you reconcile your plans?
I just had a MAJOR CONTRACT DISPUTE with SUZANNE SOMERS!!
Possibly this is related to your life?
CHUBBY CHECKER just had a CHICKEN SANDWICH in downtown DULUTH!
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
with your BOOTH!
Is the fact that do I know what it means to be truly one with my
booth the real reason?
I just had a MAJOR CONTRACT DISPUTE with SUZANNE SOMERS!!
Is it because of hangups you have that you are going through all
this?
It's strange, but I'm only TRULY ALIVE when I'm covered in POLKA DOTS
view release on metacpan or search on metacpan
share/ubuntu-xenial-16.04-cloudimg-console.log view on Meta::CPAN
[ 0.000000] ACPI: FACP 0x000000007FFF00F0 0000F4 (v04 VBOX VBOXFACP 00000001 ASL 00000061)
[ 0.000000] ACPI: DSDT 0x000000007FFF0470 001BF1 (v01 VBOX VBOXBIOS 00000002 INTL 20100528)
[ 0.000000] ACPI: FACS 0x000000007FFF0200 000040
[ 0.000000] ACPI: FACS 0x000000007FFF0200 000040
[ 0.000000] ACPI: APIC 0x000000007FFF0240 00005C (v02 VBOX VBOXAPIC 00000001 ASL 00000061)
[ 0.000000] ACPI: SSDT 0x000000007FFF02A0 0001CC (v01 VBOX VBOXCPUT 00000002 INTL 20100528)
[ 0.000000] No NUMA configuration found
[ 0.000000] Faking a node at [mem 0x0000000000000000-0x000000007ffeffff]
[ 0.000000] NODE_DATA(0) allocated [mem 0x7ffeb000-0x7ffeffff]
[ 0.000000] Zone ranges:
[ 0.000000] DMA [mem 0x0000000000001000-0x0000000000ffffff]
view release on metacpan or search on metacpan
lib/App/Sandy/Command/Expression/Add.pm view on Meta::CPAN
Add an expression-matrix to the database. A valid expression-matrix is a
file with two columns. The first column is for the seqid and the second
column is for the raw count. The counts will be treated as weights.
=head2 INPUT
A two-columns whitespace separated file, where the first column is the
transcript id, or the gene id, and the second column is the raw counts.
===> my_custom_expression_matrix.txt
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/Sseg2su.pl view on Meta::CPAN
"
);
# print $cp_dat2DAT[$i] . "\n";
=pod INPUT FILE NAMES
convert seg2 files to su files
=cut
view release on metacpan or search on metacpan
script/json2json view on Meta::CPAN
#use DD; print "to=$to\n"; dd \%Opts;
} # GET_OPTIONS
my $code_from;
PARSE_INPUT: {
undef $/;
if ($from =~ /\A(perl|perlcolor)\z/) {
if ($Opts{safe}) {
require Data::Undump;
$code_from = 'Data::Undump::undump(scalar <>)';
script/json2json view on Meta::CPAN
require YAML::Syck; $YAML::Syck::ImplicitTyping = 1;
$code_from = 'YAML::Syck::Load(scalar <>)';
} else {
die "serializeutils-convert: Can't convert from '$from'\n";
}
} # PARSE_INPUT
my $code_to;
OUTPUT: {
if ($to =~ /\A(perl|perlcolor)\z/) {
if ($Opts{dumper} eq 'Data::Dump::Color') {
require Data::Dump::Color;
$code_to = "Data::Dump::Color::dump($code_from)";
} elsif ($Opts{dumper} eq 'Data::Dump') {
script/json2json view on Meta::CPAN
die "serializeutils-convert: Can't convert to '$to'\n";
}
eval "print $code_to"; ## no critic: BuiltinFunctions::ProhibitStringyEval
die if $@;
} # OUTPUT
# ABSTRACT: Convert between serialization formats
# PODNAME: json2json
__END__
script/json2json view on Meta::CPAN
=head1 SYNOPSIS
Usage:
% serializeutils-convert [OPTIONS] < INPUT-FILE
For example, when called as C<json2yaml>:
% script-that-outputs-json | json2yaml
view release on metacpan or search on metacpan
lib/App/Sets/Sort.pm view on Meta::CPAN
my ($records) = @_;
my $tfh = tempfile(UNLINK => 1);
my $previous;
for my $item (sort @$records) {
next if defined($previous) && $previous eq $item;
print {$tfh} $item, $INPUT_RECORD_SEPARATOR;
}
@$records = ();
seek $tfh, 0, SEEK_SET;
return $tfh;
}
lib/App/Sets/Sort.pm view on Meta::CPAN
my $best = $its{$fk}[1];
for my $key (@keys) {
my $head = $its{$key}[1];
$best = $head if $best gt $head;
}
print {$ofh} $best, $INPUT_RECORD_SEPARATOR;
# get rid of the best in all iterators, cleanup on the way
KEY:
for my $key ($fk, @keys) {
my $head = $its{$key}[1];
view release on metacpan or search on metacpan
lib/App/SilverSplash/IPTables.pm view on Meta::CPAN
join( "\n", map { sprintf( $slout, $_, 443 ) } @{$sslhosts_allow} );
##############################
# add the filter default chains
my $filters = <<"FILTERS";
INPUT -i $Lan_if -j slRTR
FORWARD -i $Lan_if -j slNET
slAUT --protocol tcp --source-port ! 25 -j ACCEPT
view release on metacpan or search on metacpan
local/lib/perl5/x86_64-linux-gnu-thread-multi/Compress/Raw/Lzma.pm view on Meta::CPAN
}
use constant FLAG_APPEND => 1 ;
use constant FLAG_CRC => 2 ;
use constant FLAG_ADLER => 4 ;
use constant FLAG_CONSUME_INPUT => 8 ;
use constant FLAG_LIMIT_OUTPUT => 16 ;
eval {
require XSLoader;
XSLoader::load('Compress::Raw::Lzma', $XS_VERSION);
1;
local/lib/perl5/x86_64-linux-gnu-thread-multi/Compress/Raw/Lzma.pm view on Meta::CPAN
}, @_) ;
my $flags = 0 ;
$flags |= FLAG_APPEND if $got->value('AppendOutput') ;
$flags |= FLAG_CONSUME_INPUT if $got->value('ConsumeInput') ;
$flags |= FLAG_LIMIT_OUTPUT if $got->value('LimitOutput') ;
lzma_auto_decoder($pkg, $flags, $got->value('MemLimit'));
}
@Compress::Raw::Lzma::AloneDecoder::ISA = qw(Compress::Raw::Lzma::Decoder);
local/lib/perl5/x86_64-linux-gnu-thread-multi/Compress/Raw/Lzma.pm view on Meta::CPAN
}, @_) ;
my $flags = 0 ;
$flags |= FLAG_APPEND if $got->value('AppendOutput') ;
$flags |= FLAG_CONSUME_INPUT if $got->value('ConsumeInput') ;
$flags |= FLAG_LIMIT_OUTPUT if $got->value('LimitOutput') ;
lzma_alone_decoder($pkg,
$flags,
$got->value('Bufsize'),
$got->value('MemLimit'));
local/lib/perl5/x86_64-linux-gnu-thread-multi/Compress/Raw/Lzma.pm view on Meta::CPAN
}, @_) ;
my $flags = 0 ;
$flags |= FLAG_APPEND if $got->value('AppendOutput') ;
$flags |= FLAG_CONSUME_INPUT if $got->value('ConsumeInput') ;
$flags |= FLAG_LIMIT_OUTPUT if $got->value('LimitOutput') ;
lzma_stream_decoder($pkg,
$flags,
$got->value('Bufsize'),
$got->value('MemLimit'),
local/lib/perl5/x86_64-linux-gnu-thread-multi/Compress/Raw/Lzma.pm view on Meta::CPAN
}, @_) ;
my $flags = 0 ;
$flags |= FLAG_APPEND if $got->value('AppendOutput') ;
$flags |= FLAG_CONSUME_INPUT if $got->value('ConsumeInput') ;
$flags |= FLAG_LIMIT_OUTPUT if $got->value('LimitOutput') ;
my $filters = Lzma::Filters::validateFilters(0, ! defined $got->value('Properties'),
$got->value('Filter')) ;
lzma_raw_decoder($pkg,
view release on metacpan or search on metacpan
t/lib/TestsFor/App/SimulateReads/Simulator.pm view on Meta::CPAN
SEQID_WEIGHT => 'length',
SEQUENCING_TYPE => 'paired-end',
SEQUENCING_SYSTEM => 'poisson',
SEED => time,
JOBS => 2,
OUTPUT_GZIP => 0,
SEQ_SYS => 'poisson',
QUALITY_SIZE => 10,
GENOME => '.data.fa',
GENOME_SIZE => 2280,
COVERAGE => 5,
PREFIX => 'ponga',
OUTPUT_SINGLE_END => 'ponga_R1_001.fastq',
OUTPUT_PAIRED_END => ['ponga_R1_001.fastq', 'ponga_R2_001.fastq'],
OUTPUT_COUNTS => 'ponga_counts.tsv'
};
sub startup : Tests(startup) {
my $test = shift;
$test->SUPER::startup;
t/lib/TestsFor/App/SimulateReads/Simulator.pm view on Meta::CPAN
$LOG_VERBOSE = VERBOSE;
$test->SUPER::setup;
my %default_attr = (
prefix => PREFIX,
output_gzip => OUTPUT_GZIP,
fasta_file => GENOME,
coverage => COVERAGE,
jobs => JOBS,
seqid_weight => 'length',
count_loops_by => 'coverage',
t/lib/TestsFor/App/SimulateReads/Simulator.pm view on Meta::CPAN
}
}
sub run_simulation : Tests(9) {
my $test = shift;
my $output_single_end = OUTPUT_SINGLE_END;
my $output_paired_end = OUTPUT_PAIRED_END;
my $output_counts = OUTPUT_COUNTS;
my $fastq_count = sub {
my $file = shift;
my $entries = 0;
my %chr_acm;
view release on metacpan or search on metacpan
share/public/slides.js view on Meta::CPAN
else
console.log("Can't send: ", obj);
},
// Return true if the input event is destined for a DOM node that takes input
_event_is_for_input: function(e) {
return (e.target.tagName == "INPUT"
|| (e.target.tagName == "BUTTON" && e.type == 'click')
|| e.target.tagName == "TEXTAREA"
) || (e.originalEvent && this._event_is_for_input(e.originalEvent));
},
_handle_key: function(e) {