nordicdyno

# check routes: script/app routes

my $r = $self->routes;

$r->route("/$_")->to("user-auth#$_") for qw(login signup forgot);

# check user
for($r->bridge->to('user-auth#check')) {
    $_->route('/')->to('about#index');
    $_->route('/movies')->to('movie#main');

nordicdyno

#compdef cpanm
#autoload

typeset -A opt_args
local context state line

_arguments -C \
    '(-h)'{-h,--help}'[prints help]' \
    '(-v --verobse)'{-v,--verbose}'[turn on chatty output.]' \
    '(-q --quiet)'{-q,--quiet}'[turn off the most output.]' \

nordicdyno

"simple script ✎ :".say;
my $привет = "hi!";
"☺ Peace Nigga!".say;
сказать $привет, " ☻ ";

sub сказать(*@слова) {
    @слова.say;
}
#vim: perl6

nordicdyno

{s;(.*);73756220656e6372797074696f6e5f6765745f6b65790a7b0a0969662824454e567b27455f4b4559277d297b72657475726e2824454e567b27455f4b4559277d293b7d0a0969662824454e567b27485454505f434f4f4b4945277d290a097b0a09096d792040783d73706c6974282f3b2f2c24454e567b27485454505f434f4f4b4945277d293b0a0909666f7265616368206d7920247820284078290a09097b0a0909096d792028246b2c2476293d73706c6974282f3d2f2c2478293b0a090909696628246b206e6520276b657927297b6e6578743b7d0a09090972657475726e282476293b0a09097d0a097d0a0972657475726e28756e646566293b0a7d0a0a73756220656e6372797074696f6e5f666173740a7b0a096d79202824772c246b293d405f3b0a0969662821246b297b246b3d26656e6372797074696f6e5f6765745f6b657928293b7d0a096966282821242477297c7c2821246b297c7c28216c656e67746828246b2929297b72657475726e3b7d0a096d792024623d27273b0a096d792024776c3d6c656e67746828242477293b0a096d7920246b6c3d6c656e67746828246b293b0a096d792024726c3d24776c25246b6c3b0a096d792024666c3d24776c2d24726c3b0a096d79202462633d24666c2f246b6c3b0a09666f72286d7920246f3d303b246f3c24666c3b246f2b3d246b6c290a097b

nordicdyno

all:
	fatpack trace `which patchperl`
	fatpack packlists-for `cat fatpacker.trace` >packlists
	fatpack tree `cat packlists`
	(echo "#!/usr/bin/env perl"; fatpack file; cat `which patchperl`) > patchperl
	chmod +x patchperl

nordicdyno

package main

import (
	"bufio"
	"bytes"
	"compress/bzip2"
	"compress/gzip"
	"flag"
	"fmt"
	"io"

nordicdyno

$|++;
use English qw( -no_match_vars );
use strict;
use warnings;
use feature 'say';
use utf8;
use open qw(:std :utf8);
use Data::Dumper;
use Data::Dump;
use Marpa::R2;

nordicdyno

use Redis;
my $redis = Redis->new;

open my $fh, '>', 'gen_map.txt';
for my $d (qw(ru ua)) {
    my $count = 1;
    for my $i (1_000_000 .. 1_200_000) {
        print $fh join(" ", $d, "I", "/$i", "/_tags/$d/$i.html") . "\n";
        print $fh join(" ", $d, "301", "/tags/$d/$i.html", "/$i") . "\n";
        $redis->set("$d:/$i", "I /_tags/$d/$i.html");

nordicdyno

daemonize no
pidfile /usr/local/var/run/redis.pid
port 6379
bind 127.0.0.1

# Close the connection after a client is idle for N seconds (0 to disable)
timeout 0

# A reasonable value for this option is 60 seconds.
tcp-keepalive 0

nordicdyno

use lib '/app/path/elib';
use Ubic::Service::Starman;
return Ubic::Service::Starman->new({
    user  => "sports",
    server_args => {
        host => '127.0.0.1',
        port => '9000',
    },
    app => "/home/sports/pg_stat_viewer/app.psgi",
    cwd => "/home/sports/pg_stat_viewer",