2011-07-01から1ヶ月間の記事一覧

Perlスクリプトを実行する Perlのパスを知る

Perlスクリプトを自動生成する際に shebangにちゃんとした perlパスを埋め込みたいということで調べてみた。 Configモジュールを使うことで知ることができます。 #!perl use strict; use warnings; use Config; print $Config{perlpath}, "\n"; 結果 % perl …

shell-popしたときに、カレントバッファのディレクトリに移動する

EmacsWiki: Shell Pop shell-popは大変便利なのですが、ディレクトリの移動が面倒なことが あります。使い方は人それぞれだと思いますが、私の場合、カレントバッファに 関連した処理を実行したい場合に shell-popを使うので、popupした 際に自動でカレント…

プロンプトの先頭に m4と出る問題

CarbonEmacs+zsh+ansi-termで4mと出る問題 - yaottiの日記 - Emacsグループ と同じなんだけど、homebrew環境ということで一部異なっていたので メモがわりに記載。 % mkdir -p ~/.terminfo/65/ % cp /usr/share/terminfo/65/eterm ~/.terminfo/65/eterm-colo…

本日覚えた操作

kill-whole-line カーソルのある行を killする. vimでいうところの "dd". Ctrl-kだとカーソルから行末までですが、行頭から行末までの kill. キーバインドは "Ctrl + Shift + Backspace" (setq kill-whole-line t)とすることで, Ctrl-kが kill-whole-line関…

すべての AV女優にマッチする正規表現

Regexp::Aseembleで遊んでみた. コード 正規表現作成プログラム #!perl use strict; use warnings; use autodie; use Regexp::Assemble; use Web::Scraper; use URI; binmode STDOUT, ":utf8"; my $cache_file = 'actresses.list'; main() unless caller; su…

Re: Perlを用いて、ファイル名をそのファイルの一行目に挿入するにはどのようにすれば...

http://www.cjrda.com/detail/q1165049091こんなのでいいんじゃないですかね。 % cat テキスト.txt 元のテキストです. % perl -i.bak -wlp -e 'print $ARGV if $. == 1' テキスト.txt % cat テキスト.txt テキスト.txt 元のテキストです. しかしベストアンサ…

emacs内のターミナルの色を変える

shell-popを使い始めたのですが便利ですね. multi-termと合わせて使っているのですが、デフォルトの色が黒背景だと見づらかったので 変更しました. 変更 変更は ansi-term-color-vector 変数を変更することで行います。 '黒', '赤', '緑', '黄', '青', 'マゼ…

Ubuntu 11.04で Gtk2のテストが失敗する問題

以前買った GTK本をいまさら読んでいるのですが、ただ Cで書くのも 面白くないので Perlでも書いてみようと思って Gtk2をインストール しようとしたのですが、テストでこけたのでそれについて。 失敗するテスト 失敗するのは t/GtkScrolledWindow.tです。 % …

hs-minor-mode

Emacsのマニュアルを読んでいると hs-minor-modeという 折り畳みのできる機能を知りました。 具体例 これが こんな具合になります。(C-c @ C-h(hs-hide-block)を実行) 設定 minorモードとして設定します。c-mode, cperl-modeでは利用できました。 (add-hook …

get-shit-done.pl

ついついダラダラと見てしまうサイトをブロックしてくれるPythonスクリプト「Get Shit Done」 | ライフハッカー[日本版] greenisus/get-shit-done · GitHub コード コンフィグファイル読み取りの部分は別にいいか、と思って書いてません。 ソースはこちら…

自分のブログのGoogle Reader購読者数をPerlでぶっこ抜く

自分のブログのGoogle Reader購読者数をRubyでぶっこ抜くの Perl版. コード 仕組みを理解するために Google WebAPI関連のモジュールには頼らず 書いてみました。 #!/usr/bin/env perl package App::GoogleReader; use Mouse; use Carp; use Furl; use JSON; …

Text::UnicodeTable::Simple-0.01をリリースしました。

Syohei Yoshida / Text-UnicodeTable-Simple-0.01 - search.cpan.org リリースしました。初CPANモジュールです。 はじめに Text::UnicodeTable::Simpleというのを書いてます - Life is very short モジュールを書いた動機は上記のエントリの通りです。 サン…