Data URIに変換するPerlスクリプト
Data URIはまだそれほど使いまくっているわけでもないので、ブラウザーでやったりVimからWSHでやったりいろいろしてたけど、必要な時はだいたい複数ファイルを何回も変換する必要があったりしていろいろ大変なのでPerlで書き直して右クリックから使う方法も考えた。@cho45が書いたのを見て重い腰が上がった。 #!/usr/bin/env perl use strict; use warnings; use MIME::Base64; use MIME::Types; use Path::Extended qw(file); my $mt = MIME::Types->new(); my @r; foreach (@ARGV) { my $f = file($_); my $t = $mt->mimeTypeOf($file->stringify); push(@r, 'data:' .
Vimでカーソル下のファイルをData URI化する
Data URIネタを続ける。昨日書いたData URI変換スクリプトをコマンドラインとかエクスプローラーから送るでクリップボードにコピーして使うだけだとVimで面倒くさい。Vimでは<cfile>でカーソル下のファイル名を拾えるので、それを利用してファイルのパスからData URIに変換するようなスクリプトを書いて使うことにした。 " Convert a file under a cursor to Data URI function! s:ConvertCFileToDataURI() let cfile = expand('<cfile>') call setreg('d', substitute(getline('.'), cfile, system('convert-to-data-uri.pl ' . cfile), '')) normal! V"dp endfunction
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
