kaz-utashiro

javascript: {
    const info = new Map([
	[ 'HNAME', 'ホテルサザンコースト宮古島' ],
	[ 'HTEL', '0980-75-3335' ],
	[ 'ARRDATEY', '2019' ],
	[ 'ARRDATEM', '4' ],
	[ 'ARRDATED', '12' ],
	[ 'DPTDATEY', '2019' ],
	[ 'DPTDATEM', '4' ],
	[ 'DPTDATED', '16' ]

kaz-utashiro

option default --mecab

kaz-utashiro

$_ = do { local $/; <> };
if (open(CHLD, '|-') == 0) {
    print <>;
    exit;
}
print CHLD $_;

kaz-utashiro

tir -rGRc10

kaz-utashiro

while (/pattern/g) {
    my($s, $e) = ($-[0], $+[0]);
    ...

kaz-utashiro

;;; cdif.el --- cdif and ansi-color interface

;;; Code:

(autoload 'ansi-color-apply-on-region "ansi-color" nil t)

(defun cdif-buffer (&optional prefix)
  "Execute cdif command on current buffer and apply ansi-color."
  (interactive "P")
  (if prefix

kaz-utashiro

#!/usr/bin/perl -CSD

use strict;
use warnings;
use utf8;

my %モンスター = (
    0 => "ゼクロム",
    1 => "ワンリキー",
    2 => "ニョロモ",

kaz-utashiro

sub print_wdiff {
    my %arg = @_;
    my @matched = @{$arg{matched}};

    for (my $i = $#matched; $i >= 0; $i--) {
	my($s, $e) = @{$matched[$i]};
	my $t = substr($_, $s, $e - $s);
	if ($t =~ s/\A (?:\{\+|\[\-) (.*) (?:\+\}|\-\]) \Z/$1/sx) {
	    substr($_, $s, $e - $s) = $t;
	    $matched[$i][0] = $s - $i * 4;

kaz-utashiro

package App::Greple::diff;

1;

=head1 NAME

diff - greple module for diff command output

=head1 SYNOPSIS

kaz-utashiro

## なんとなく嫌だ
my %seen;
@opt_icode = grep { not $seen{$_}++ } @opt_icode;

## ダサい
{
    my %seen;
    @opt_icode = grep { not $seen{$_}++ } @opt_icode;
}