dex4er

#!/usr/bin/env perl -c

package App::http2http;

=head1 NAME

App::http2http - generic HTTP proxy server with logging

=cut

dex4er

global import require 'prelude-ls'
# or "lsc -d" command

# 1. Multiple Each Item in a List by 2
list = [1 to 10] |> map (* 2)
list.for-each (n) !-> console.log n

# 2. Sum a List of Numbers
n = sum [1 to 1000]
console.log n

dex4er

#!/usr/bin/perl

# expect.pl (c) 2012 Piotr Roszatycki <dexter@debian.org>

use strict;
use Expect;

die "Usage: $0 cmd [-echo] expect1 send1 expect2 send2 ...\n"
    unless @ARGV;

dex4er

gsettings set com.canonical.Unity.Panel systray-whitelist "['all']"

dex4er

#!/usr/bin/perl

use strict;

use IPC::Open2;
use IO::Select;
use IO::Handle;

use constant {
    BUFLEN => 1024 * 4,

dex4er

log4perl.logger.plack                      = DEBUG, LogfilePlack
log4perl.appender.LogfilePlack             = Log::Dispatch::File::Stamped
log4perl.appender.LogfilePlack.stamp_fmt   = %Y-%m-%d
log4perl.appender.LogfilePlack.filename    = log/error.log
log4perl.appender.LogfilePlack.layout      = PatternLayout
log4perl.appender.LogfilePlack.layout.ConversionPattern = %d{ISO8601}: %c: %m{chomp}%n

log4perl.logger.access                     = DEBUG, LogfileAccess
log4perl.appender.LogfileAccess            = Log::Dispatch::File::Stamped
log4perl.appender.LogfileAccess.stamp_fmt  = %Y-%m-%d

dex4er

foreach my $n (1..3) {
    say $n;
}
# a tu już $n nie działa

dex4er

#!/usr/bin/env perl

dex4er

cpan-import-all.sh http://cpan.metacpan.org/authors/id/D/DE/DEXTER/Symbol-Util-0.0203.tar.gz --sign-tags

dex4er

#!/bin/bash

perlbrew=/usr/bin/perlbrew

export PERLBREW_ROOT="$HOME/opt/perlbrew"

if [ ! -f "$PERLBREW_ROOT/etc/bashrc" ]; then
    $perlbrew init
fi