Skip to content

Instantly share code, notes, and snippets.

View mishin's full-sized avatar
💭
if you fail to prepare you prepare to fail

Nikolay Mishin mishin

💭
if you fail to prepare you prepare to fail
View GitHub Profile
#!/bin/bash
set -e
# Usage:
# rsync_parallel.sh [--parallel=N] [rsync args...]
#
# Options:
# --parallel=N Use N parallel processes for transfer. Defaults to 10.
#
# Notes:
@mishin
mishin / perltags.pl
Last active August 29, 2015 14:19 — forked from knutov/perltags.pl
#!/usr/bin/perl
# ------------------------------------------------------------------------------
use 5.010;
use strict;
use PPI;
my %variables;
my %scheduled;
my %subs;
@mishin
mishin / bot2.pl
Last active August 29, 2015 14:19 — forked from aufflick/bot2.pl
#!/opt/bin/perl -w
package IRC::Bot2;
use strict;
use warnings;
use Moose;
extends 'IRC::Bot';
use IRC::Bot::Log::Extended;
use Modern::Perl;
use Git::Repository;
use File::Slurp qw( :edit );
my $url = 'https://github.com/mishin/perldoc-ru.git';
my $dir = '/home/mishin/github/test_repo';
#Git::Repository->run( clone => $url => $dir );
my $r = Git::Repository->new( work_tree => $dir );
use DateTime;
@mishin
mishin / perl_gist.pl
Last active August 29, 2015 14:19
it's only for show
#This is my perl tips collection:
http://grep.cpan.me/?q=author%3A%28MIYAGAWA%7CDCONWAY%7CBDFOY%7CSZABGAB%29+shift
author:(MIYAGAWA|DCONWAY|BDFOY|SZABGAB) shift
http://eax.me/perl5-oop/
http://grep.cpan.me/?q=author%3A%28MIYAGAWA%7CDCONWAY%7CBDFOY%29+__DATA__
author:(MIYAGAWA|DCONWAY|BDFOY) __DATA__
→ milla-tutorial$ sp_ch () {(cat $1|aspell --lang=ru-yo list|aspell --lang=en list); };sp_ch lib/POD2/RU/perlretut.pod
#!/usr/local/bin/perl
#
# cpan-github-dists
#
# Use the MetaCPAN API to build a list of CPAN distributions that have a github repo
# We show the 2000 most-recently released distributions
#
# See output for this at http://neilb.org/github-dists.html
#
use strict;
#!/bin/sh
# This file was generated by the xmeta commons-launcher maven plugin.
# Do not edit this file directly.
myPath=`dirname $0`
case `uname` in
CYGWIN*) # cygwin-specific stuff here
myPath=`cygpath -w "$myPath"`
;;
esac
#!/bin/bash
#
# PS1 magic
#
# Mostly copied from YUVAL KOGMAN version, added my own __git_ps1 stuff
# Original: http://gist.github.com/621452
#
# See video demo of this at http://vimeo.com/15789794
#
# To enable save as .bash_prompt in $HOME and add to .bashrc:
=pod
=head1 NAME
Moose::Manual::Contributing - How to get involved in Moose
=head1 GETTING INVOLVED
Moose is a pretty open project and we are always willing to accept bug fixes,
more tests and documentation patches. Commit bits are given out freely, and
use strict;
use warnings;
use utf8;
use Test::More;
tap_encoding 'cp932';
ok(0, 'テスト失敗');