sironekotoro

// ==UserScript==
// @name     NoThankYouRakutenMailMagazine
// @version  1
// @include  https://dp.travel.rakuten.co.jp*
// @grant    none
// ==/UserScript==
"use strict";

document.getElementById('mail0').checked = false;
document.getElementById('mail1').checked = false;

sironekotoro

gist test

sironekotoro

#!/usr/bin/env perl
use Mojolicious::Lite;

get '/' => sub {
    my $c = shift;
    $c->render( template => 'fizzbuzz' );
};

app->start;
__DATA__

sironekotoro

# curlコマンドでcpanminusプログラムをダウンロードし、cpanmという名前で保存する
$ curl -L cpanmin.us -o cpanm

# cpanmに実行権限をつける
$ chmod +x cpanm

# cpanmの -l(エル)オプションで、指定したディレクトリ(extlib)に指定したモジュール(local::lib)を
インストールする
$ .cpanm -l ~/extlib local::lib

sironekotoro

#!/usr/bin/env perl
use Mojolicious::Lite;

my @entries = ();

get '/' => sub {
    my $c = shift;
    $c->stash( kakikomi => \@entries );
    $c->render('index');
};

sironekotoro

#!/usr/bin/env perl
use Mojolicious::Lite;

my @entries = ();

get '/' => sub {
  my $c     = shift;
  $c->stash( kakikomi => \@entries );
  $c->render('index');
};

sironekotoro

#!/usr/bin/env perl
use Mojolicious::Lite;

# https://tutorial.perlzemi.com/blog/20091121124667.html

# 要 DBI, DBD::SQLite モジュール
use DBI;
use DBD::SQLite;
my $database    = 'test.db';
my $data_source = "dbi:SQLite:dbname=$database";

sironekotoro

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

my %data = (
    alice => 'sushi',
    bob   => 'soba',
    carol => 'sushi',
    dave  => 'sushi',
    ellen => 'soba',

sironekotoro

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

my $date = '07-13-2019';

# 「2019-07-13」の形式に直す。

# 正規表現でキャプチャしたものを並べ替える
$date =~ /(\d+)-(\d+)-(\d+)/;

sironekotoro

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

use Data::Dumper;

# japan
#  ├─ tokyo
#  │    ├─ gotanda
#  │    └─ shibuya