ichigotake

package Yancha::Plugin::SalvageDarkHistory;
use strict;
use warnings;

sub setup {
    my ($class, $sys) = @_;$sys->register_hook( 'before_send_post', sub {
      my $int = int rand 100; #数字が低いほど高確率
      return if $int;
      
      my $pid = fork;

Shinpeim

<?php

function nyan(){
    return 1;
}
$nyan = NyAn();
var_dump($nyan); // => int(1)

Shinpeim

Niigata.ll 発表(？)資料 「Perl なめんな」

猫型です。Niigata.llの開催おめでとうございます。行けなくてくやしいです。資料だけここに公開します。タイトルは「Perlなめんな」です。dis られがちなオブジェクトシステムと例外機構の貧弱さについて現代的な Perl の視点から回答します。

「Perl は可読性が〜」とか 「Perl はオブジェクトシステムがぶっ壊れてる〜」とかうるせえよ CPAN なめんなって話

「素のPerlのオブジェクトシステムは貧弱すぎる」。その通りです、でも Mouse とかを使えば結構素直に書けるのです。

Mouseってなに

Shinpeim

重要

サイズがあまりに大きくなってしまったので、gist ではなくて github 上で管理するようにしました。

https://github.com/Shinpeim/process-book

URL 変わっちゃうの申し訳ないんだけど、一覧性が高くなるのと pull req が受け取れるメリットのほうを取ります。せっかく読みにきてくれたのにひと手間かかっちゃってすみません。

Shinpeim

重要

サイズがあまりに大きくなってしまったので、gist ではなくて github 上で管理するようにしました。

https://github.com/Shinpeim/process-book

URL 変わっちゃうの申し訳ないんだけど、一覧性が高くなるのと pull req が受け取れるメリットのほうを取ります。せっかく読みにきてくれたのにひと手間かかっちゃってすみません。

Shinpeim

#!/usr/bin/env perl
use strict;
use warnings;
use Audio::Play::MPG123;
use Config::Simple;
use File::Spec::Functions qw/catfile/;

sub load_config {
    my $config = Config::Simple->new( catfile( $ENV{HOME}, '.with-soundrc' ) );
    return $config->param('SUCCESS'), $config->param('FAILURE');

Shinpeim

重要

サイズがあまりに大きくなってしまったので、gist ではなくて github 上で管理するようにしました。

https://github.com/Shinpeim/process-book

URL 変わっちゃうの申し訳ないんだけど、一覧性が高くなるのと pull req が受け取れるメリットのほうを取ります。せっかく読みにきてくれたのにひと手間かかっちゃってすみません。

hiratara

(write "Hello, scheme!")

ryanmaxwell

#
# Uncrustify Configuration File
# File Created With UncrustifyX 0.2 (140)
#

# Alignment
# ---------

## Alignment

aereal

#!/usr/bin/env ruby

LOOK = `which look 2>/dev/null`.strip

abort "#{$0} requires |look| executable command" unless File.executable?(LOOK)

def calculate_clarity(word)
  candidates = `#{LOOK} -f #{word}`.strip.lines
  $?.success? ? candidates.count : 0
end