karupanerura

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use feature qw/say/;

use IPC::Cmd qw/run/;
use JSON::PP qw/decode_json/;
use List::Util qw/sum/;

karupanerura

use strict;
use warnings;
use feature qw/say/;

use JSON::PP;
use Time::Piece;
use POSIX qw/floor/;

my $events = do {
    open my $fh, '<', 'events.json'

karupanerura

package main

import (
	"bufio"
	"io"
	"log"
	"net"
	"sync"
	"time"
)

karupanerura

const baseExtends = [
  'eslint:recommended',
]

module.exports = {
  env: {
    browser: true,
    node: true,
    es6: true
  },

karupanerura

% curl -vvv http://www.city.kawasaki.jp/
*   Trying 202.214.115.96...
* TCP_NODELAY set
* Connected to www.city.kawasaki.jp (202.214.115.96) port 80 (#0)
> GET / HTTP/1.1
> Host: www.city.kawasaki.jp
> User-Agent: curl/7.54.0
> Accept: */*
>
< HTTP/1.1 200 OK

karupanerura

use strict;
use warnings;
use utf8;

use Path::Tiny qw/path/;
use JSON::Pointer;
use Cpanel::JSON::XS qw/decode_json/;
use Cpanel::JSON::XS::Type;

my $schema = decode_json(<<'__JSON__');

karupanerura

use strict;
use warnings;
use utf8;
use feature qw/say/;
no warnings qw/experimental::uniprop_wildcards/;

say "5" =~ m!\p{nv= /(?x) \A [0-5] \z /}! ? "match!" : "mismatch!";
say "５" =~ m!\p{nv= /(?x) \A [0-5] \z /}! ? "match!" : "mismatch!";
say "五" =~ m!\p{nv= /(?x) \A [0-5] \z /}! ? "match!" : "mismatch!";
say "６" =~ m!\p{nv= /(?x) \A [0-5] \z /}! ? "match!" : "mismatch!";

karupanerura

use strict;
use warnings;
use utf8;
use feature qw/say/;

use JSON::XS;
use B;

my $j = JSON::XS->new->allow_nonref;

karupanerura

<template>
  <svg
    xmlns="http://www.w3.org/2000/svg"
    xmlns:xlink="http://www.w3.org/1999/xlink"
    :viewBox="viewBox"
    :style="{ maxWidth: boxSize + 'px' }"
  >
    <title v-text="text" />
    <defs>
      <path

karupanerura

"foo", "bar", "baz"