ryoo14

My Favorite Web Services

Design

• Coolors

Fun

• Stargazers Map

Search

• 版元ドットコム

ryoo14

" w3m 
function! W3mOpen()
    let l:url = matchstr(getline('.'), 'htt[p|ps]:\/\/[^>,;:]*')
    execute ':vs'
    execute ':W3m' l:url
endfunction

nnoremap <silent> <c-w> :call W3mOpen()<CR>

ryoo14

" w3m 
function! W3mOpen()
    let l:url = matchlist(getline('.'), '\(htt[p|ps]:\/\/[^>,;:]*\)\s')
    execute ':vs'
    execute ':W3m' l:url[1]
endfunction

nnoremap <silent> <c-w> :call W3mOpen()<CR>

ryoo14

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Net::Twitter::Lite::WithAPIv1_1;
use Encode;

my $nt = Net::Twitter::Lite::WithAPIv1_1->new(
    consumer_key => '',

ryoo14

sort -k1,1 num2 | yarr num=1 | sed 's/[ab] //g' | sed 's/ / + /g' | bc

ryoo14

for i in a b ; do grep $i hoge | sort -k2n | tail -1; done

ryoo14

expr $(cat nums | tr "\n" " " | sed 's/ $//' | sed 's/ / + /g')

ryoo14

ls [!a-zA-z]* | xargs rm

ryoo14

seq 1 16 | awk '{if($1%15==0){print "FizzBuzz"}else if($1%3==0){print "Fizz"}else if($1%5==0){print "Buzz"}else{print $1}}' | tr '\n' ','

ryoo14

awk '{print int($1/10)}' ages | sort -n | uniq -c | awk '{print $2*10"〜"$2*10+9,$1}'