Skip to content

Instantly share code, notes, and snippets.

View note103's full-sized avatar
🏠
Working from home

Hiroaki Kadomatsu note103

🏠
Working from home
18 followers · 17 following
View GitHub Profile
@note103
note103 / html_practice_note103.html
Last active March 4, 2023 07:01 — forked from machida/html_practice.html
HTMLの練習 @note103
<!DOCTYPE html>
<html lang="ja">
<head>
<meta charset="utf-8">
<title>カレーのレシピ</title>
</head>
<body>
<article>
@note103
note103 / hash-array_ref.pl
Created February 3, 2018 08:31
#!/usr/bin/env perl
use strict;
use warnings;
# 1
my %japan = (
tokyo => [ 'gotanda', 'shibuya', ],
osaka => [ 'shinsaibashi', ],
okinawa => [ 'naha', 'yomitan', ],
hokkaido => [ 'sapporo', 'obihiro', ],
@note103
note103 / hash_ref.pl
Last active February 3, 2018 08:00
#!/usr/bin/env perl
use strict;
use warnings;
my %dog = (
name => 'Taro',
color => 'brown',
);
my %cat = (
name => 'Tama',
@note103
note103 / array_ref.pl
Last active February 3, 2018 07:27
#!/usr/bin/env perl
use strict;
use warnings;
my @dog = ( 'shiba', 'bulldog' );
my @cat = ( 'mike', 'abyssinian' );
my @bird = ( 'eagle', 'crow' );
my @animal = (\@dog, \@cat, \@bird);
@note103
note103 / git_branch_selector.bash
Last active June 2, 2017 04:46
# requirements: cho
# https://github.com/mattn/cho
function gbs {
local dest=$(git branch | sed -e 's/ *//' | cho)
dest=${dest##\* } # 現在のブランチを選択した場合の処理
git checkout $dest
}
@note103
note103 / zenkaku_search.vim
Last active May 25, 2017 06:58
inoremap <silent><Leader><Leader>z [０-９ａ-ｚＡ-Ｚ＠＄％＃＆＊；：？｜，．]<ESC>$v0d
" 1. 上記をvimrcに入れて挿入モード時に全角検索用の文字列をヤンク
" 2-1. vim-easymotionの easymotion-sn コマンドと組み合わせてサーチ
" 2−2. この際、コマンドラインに貼り付けるには <C-r>" を使う
" 3. 一旦検索されたら以後は ; と , で前後に検索可能＆その時にはハイライトされる
" 個人的にはこのハイライトがありがたいというかそもそもの目的
" 最初はクエリを [^\x01-\x7E] としていたけど考えてみたら自分は日本語むっちゃ使うのでそれでは駄目だった。単純に拾いたくない全角英数記号だけを対象に絞り直した
" GIF movie
@note103
note103 / vote.pl
Last active December 2, 2016 15:13
Perl入学式 #3 復習問題
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
# 1-1
my $foo = {name => 'note103', favorite_foods => [qw( ramen rice apple )]};
my $bar = {name => 'alice' , favorite_foods => [qw( ramen kimuchi orange apple )]};
my $baz = {name => 'bob' , favorite_foods => [qw( ramen meet kimuchi orange banana )]};
@note103
note103 / ted.pl
Created May 29, 2016 02:09
#!/usr/bin/env perl
use strict;
use warnings;
use File::Slurp;
my @ted_en = read_file('ted_en.txt');
my @ted_ja = read_file('ted_ja.txt');
my @out;
for my $te (@ted_en) {
@note103
note103 / line_count.pl
Last active December 8, 2016 02:46
そのディレクトリにある各ファイルの行数を出すやつ
#!/usr/bin/env perl
use strict;
use warnings;
use File::Slurp;
my @iter = glob "*";
my $sum = 0;
for (@iter) {
next if (-d $_);
@note103
note103 / amz.vim
Last active May 20, 2016 04:47
Amazonの日本語まじりの長いURLを短縮するVimマッピング
nnoremap <Leader>amz :%s/\v(amazon.+)\/(.+)(\/dp\/[^?\/]+).*/\1\3/gc<CR>