tsucchi

#!/usr/bin/perl
use strict;
use warnings;

# 引数が数値A 演算子 数値Bという文字列であれば、その式を計算して結果を返す関数calc_stringを書いてみましょう
# 「数値A」「演算子」「数値B」の間にはそれぞれ半角スペースが入ります
# 数値は正･負の整数とし、演算子は+-*/%が使えるものとします
# 引数が 数値A 演算子 数値B というフォーマットに一致しない場合は ERROR! という文字列を返すようにしましょう

print calc_string("-12 + 34");

tsucchi

sub _create_body {
    my ($c) = @_;

    my $body = '';
    my $boundary = $c->req->{_body}->can('boundary') ? $c->req->{_body}->boundary : undef;

    if ( defined $boundary && $boundary ne '' ) {
        # multipart/form-data の場合

        # ファイル

tsucchi

sub reproxy {
    my ($c, $proxy_base_url) = @_;

    my $path = $c->req->path;
    my $query = $c->req->uri->query;
    my $url = $proxy_base_url . '/' . $path;
    if (defined $query ) {
        $url .= '?' . $query;
    }

tsucchi

export MY_NEW_PERL="perl-5.24@default"
export MY_TOOL_PERL="perl-5.20@default"

alias reply="        perlbrew exec -q --with $MY_TOOL_PERL reply"
alias riji="         perlbrew exec -q --with $MY_TOOL_PERL riji"
alias prt="          perlbrew exec -q --with $MY_TOOL_PERL prt"
alias revealup="     perlbrew exec -q --with $MY_TOOL_PERL revealup"
alias countperl="    perlbrew exec -q --with $MY_TOOL_PERL countperl"
alias from_unixtime="perlbrew exec -q --with $MY_TOOL_PERL from_unixtime"

tsucchi

#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;

my $value = "aa\n\nbb\n";
my @result = split /\n/, $value;

print Dumper(\@result);

tsucchi

|話数 | タイトル | タイトルの元ネタの作品 (作者) | 主なパロディ作品 | 謎カレー空間の題材(対決) |エレメント(象徴するもの) | |------|-------------------| --------------------------- | --------------- | -------------------------- | ----------------------- | ---------------------- | |第1話 | 妖精たちは森に隠れる | 子供達は森に隠れる(コリン・ウィルコックス ) | アイドル業界の闇っぽい諸々? | ファミコン時代のゲーム？(競走) | メロディア(諦めない心) | |第2話 | パーフェクト・フール | パーフェクト・ブルー(宮部みゆき) | 北斗の拳、聖闘士星矢 | 世紀末な感じのリング(プロレス的な何か) | カプリッツィオ(愛(と正義？)) | |第3話 | カレーの国では遠すぎる | 九マイルは遠すぎる(ハリイ・ケメルマン) | ガンダム | 料理の鉄人+インド(カレー作り) | ハーモニー(信じる心) | |第4話 | 一発屋シテミル | インシテミル(米澤穂信) | スケバン刑事、水着大会 | 風雲たけし城(クイズ) | シャウト(個性と他人の個性を認めること?) | |第5話 | キャロルの身代金 | キングの身代金?(エド・マクベイン) | ガラスの仮面 | 不思議の国のアリス(特大ジェンガ) | リズミック(変化を恐れないこと) | |第6話 | すべてがF5になる | すべてがFになる(森博嗣) | 江南スタイル？、youtuber? | ゲーセン+ディスコ(男子力) | ダンシング(自分を信じること) | |第7話 | 黄色いキャラはいかに改装されたか? | 黄色い部屋はいかに改装されたか?(都筑 道夫) | 赤毛のアン | 笑点(大喜利) | ポエミィ(伝えたい言葉や気持ち) | |第8話 | 謎解きは

tsucchi

    use Scope::Guard;
    sub teardown {
        #...  ここに teardown でやりたい終了処理を入れる
    }

    sub startup {
        #... ここに startup でやりたい初期化処理を入れる
        return Scope::Guard->new(\&teardown);
    }

tsucchi

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
#use DBIx::QueryLog;

my @dsn  = (...);
my $dbh = DBI->connect(@dsn, { RaiseError => 1, PrintError => 0, pg_enable_utf8 => 1 });
my $sql = "SELECT sequence_name FROM information_schema.sequences WHERE sequence_schema = 'public'";

tsucchi

#!/usr/bin/perl
use strict;
use warnings;

my $x = {
    xxx => { die "sibou" },
};

tsucchi

#!/usr/bin/perl
use strict;
use warnings;

while ( my $in = <stdin> ) {
    print "$in";
}