" Disable AutoComplPop. let g:acp_enableAtStartup = 0 " Use neocomplcache. let g:neocomplcache_enable_at_startup = 1 " Use underbar completion. let g:neocomplcache_enable_underbar_completion = 1 " Set minimum syntax keyword length. let g:neocomplcache_min_syntax_length = 3 let g:neocomplcache_lock_buffer_name_pattern = '\*ku\*' " Use smartcase. let g:neocomplcache_enable_smart_case = 1 " Use camel
Perl › 演算子 › here Perl5.10からは、とても便利なDefined-or演算子「//」が導入されました。スラッシュが二つ続く演算子です。とっても検索しにくいので、早めに覚えておくのがいいと思います。近年の機能追加では、僕的には一番お勧めの機能ですね。 # Defined-or演算子 // Defined-or演算子は、左辺が定義されている場合は、左辺値を返却し、未定義の場合は右辺値を返すという動作をします。 # 右辺が代入される my $value = undef // 'default'; # 'default' # 左辺が代入される my $value = 0 // 'default'; # 0 my $value = '' // 'default'; # '' my $value = 'foo' // 'default'; # 'foo' これは、値が与えられなか
Perlの場合、複雑なデータ構造は、配列とハッシュの組み合わせです。 通常、配列やハッシュを処理する時は、ループになりますね。 その時に、ループの最大値を指定しないとなりません。 ループの最大値は、普通、配列やハッシュの要素数-1になります。 実は、複雑なデータ構造の時、ループの最大値を求めるのに悩む時があるのです。 そこで、以下にアンチョコを用意してみました。 参考になれば、幸いです。 ◆ 基本的な配列とハッシュの要素数の求め方（最大インデックスもあり） 配列の要素数の求め方は、配列変数をスカラーコンテキストで評価します。 配列の最大インデックスの求め方は、配列変数のファニー文字『@』を『$#』に変えます。 ハッシュの素数の求め方は、keys関数か、またはvalues関数のリターン値をスカラーコンテキストで評価します。 ◆ アンチョコ use strict; use warnings;
Perl › モジュール › here 日本語などのマルチバイト文字をPerlで適切に扱うにはEncodeモジュールを使用します。次の3つのことを覚えておけば多くの場合適切に日本語を扱うことができます。 外部から入力された文字列はEncodeモジュールのdecode関数でデコードする 外部へ出力する文字列はEncodeモジュールのencode関数でエンコードする ソースコードはUTF-8で保存しutf8プラグマを有効にする この解説での用語 この解説では外部から入力された文字列のことを「バイト文字列」と呼ぶことにします。Perlの内部表現に変換された文字列を「内部文字列」と呼ぶことにします。また「バイト文字列」が特定の文字コードで記述されている場合は「UTF-8バイト文字列」「Shift_JISバイト文字列」などと呼ぶことにします。 プログラミングで日本語を扱う場合にその文字列がバイト文字
2009年07月22日21:30 カテゴリLightweight Languages perl - & はいつ使うべきか 鋭い質問です。 Perlの謎（その１０）サブルーチンの呼び出し方 - 燈明日記 組み込み関数と同名のユーザ定義関数を定義したときは、どうしても『&』付きでないと呼び出せないのです。id:chaichanPaPaの主張は、以下のとおり確認できます。 #!/usr/bin/perl use strict; use warnings; sub atan2{ "atanatan"; } print atan2(1,1), "\n"; しかし、実際にはビルトイン関数を上書きしているモジュールは少なくありません。たとえばCGI::Carpはdie()やwarn()を上書きしています。 それでは、ビルトイン関数の上書きはどうやるのでしょうか？そして、一旦上書きされたビルトイン関数を呼
Twitter API v1.1完全移行まであと1ヶ月を切りましたね！対応に非常に慌てているshiba_yu36です。 どんな変更があるかは結局、Twitter API 1.1で何が変わる？ 5つのポイント：Twitter APIと開発者規約変更のインパクトまとめ - ＠ITあたりにまとまっているとして、今日はTwitter API v1.1とperlでTwitter APIを使っているとおそらく使っているNet::Twitter::Liteについて書いていきたいと思います。 Net::Twitter::Liteに関連するTwitter API変更点 今回の変更では本当に本当にいろいろ変わるのですが、Net::Twitter::Liteに関わる変更としては以下の様なものが挙げられます。ほかにもあるかもしれません。 http(s)://api.twitter.com/1/* -> http(
{}の前にプラスが付いて、+{}とかなってるのをよく見るけど、やっとこれの意味が分かったのでメモ。 このカッコはハッシュ以外にも使われるから、「これはハッシュリファレンスですよ」と明示するためのもの。 use strict; use warnings; use Data::Dumper; local $\ = "\n"; sub p { print Dumper shift; } sub hashref_ng { { @_ } } sub hashref_ok { +{ @_ } } my $ng = hashref_ng(1,2,3,4); my $ok = hashref_ok(1,2,3,4); p $ng; p $ok; 実行結果 % perl hashref.pl $VAR1 = 4; $VAR1 = { '1' => 2, '3' => 4 }; こんな常識も知らずにおりますよ
Perl › 構文 › here Perlにおける真偽値を解説します。Perlにおける偽値は次の五つです。 1 undef 未定義値 2 "" 空文字列 3 0 0 4 "0" 文字列の0 Perlにおける真値は上記以外すべてです。 未定義値、数値の0、空の文字列、0と等しい文字列、空のリストだけが偽値になります。 真になる値の例 # 1 1; # 文字列 "Hellow" # オブジェクト my $obj = Point->new; # 文字列の"0.0" "0.0" "0.0"は、数値としては0と等しいが、真として扱われます。 サンプルプログラム 真偽値のサンプルです。 # 真偽値のサンプル my $var; # 偽。定義した直後の変数はundef $var = undef; # 偽。 $var = 0; # 偽。 $var = 0.0 # 数値で0と等価なものは偽。 $var = 1
（追記：2009/03/25） id:tokuhirom さんからコメントを頂きました。このベンチマークは問題があるそうです。 http://d.hatena.ne.jp/higepon/20050615/1118829090#c （追記：終わり） PerlにはC言語で書かれた関数を呼び出すためにXSという仕組みが存在します。 一部CPANモジュールでも使われているためご存知の方も多いと思いますが、今回はこのXSの簡単な利用方法を紹介したいと思います。 なおXSは、はてなでも使用しています。 さてXSモジュールを使うとうれしい事は C言語で書くことにより、処理が高速になる可能性がある 既存のC言語ライブラリ資産をPerlから利用することができる Perlがあまり得意でない、メモリ内などに存在するビット単位での細かなデータ構造を、あれこれできる などが挙げられると思います。 今回は、高速化に
SQLAlchemy Database Engines 日記。 (TokuLog) - Class::Accessor は言語の機能としてつけるべきだったよね このエントリの中に次のようなくだりがある。「Perl で書かれたオブジェクトのほとんどって、この2つを継承しているものね。」 最近話題のPerlの学習コストの話とも多少関係があるのだが、PerlではCPANの使いこなしってのが重要なのだ。そこで、Class::Accessor とはどういうものか簡単に説明しよう。 基本的には perldoc Class::Accessor perldoc -m Class::Accessor としてもらえばいいのだけれども、もう少し簡単に解説してみる。 （ホントは自分用の備忘録なのだが） オブジェクト指向そのものの話は割愛させてもらいましょう。オブジェクト指向ではメンバ変数に直接アクセスするのは「悪
perlの場合，引数は配列@_を使用してサブプログラムへ渡ります．したがって，サブプログラムf0に３個のスカラ値を渡すプログラムは以下のようになります． #!/usr/bin/perl -w use strict; sub f0{ my @arr=@_; print "f0: @arr\n"; #print "f0: @_\n";でも同じ } f0(1,2,3); ３個のスカラ値を渡す上記プログラムは，３個のスカラ値からなる配列１個を渡す以下のプログラムと同じです． #!/usr/bin/perl -w use strict; sub f0{ my @arr=@_; print "f0: @arr\n"; } my @arr=(1,2,3); f0(@arr); 複数の配列を引数として渡す場合，困ったことになります．つまり，こういうプログラムです． #!/usr/bin/perl -w u
当サイトのblogのエントリーで検索ワードが多いのはCPANなんですがこの古い記事はperl5.6時代に書いた記事(多分10年近く前だと思う)で今時のperl使いにお勧めできるものではありません。 2010年2月にあの miyagawa さんが書いた cpanminus が非常に素晴らしいので CPAN::shell を捨てて App-cpanminus を積極的に利用しましょう。 と言うことでcpanに関連して新しい記事を書いてみました。 CPAN::shell の欠点 設定が面倒 動作が遅い(cpanmと比較して) 多くのメモリが必要(制約のきついレンタルサーバで使うのは無理) 依存するモジュールが多い 基本root権限が必要 cpanm の利点 一枚岩のプログラムで可搬性に優れる 高速で小メモリでも動作可能 pluginで拡張できる local::lib と組み合わせるとユーザーラン
ぬかいわし、タレカツ、鶏の半身揚げ、そして笹団子。新潟を平らげる２泊３日 今回の旅の目的地は新潟。新潟には申し訳ないのだが、自発的に決めた目的地ではない。ＪＲ東日本の「どこかにビューーン！」という行き先ガチャサービスにより決定されたのだ。新潟といえば酒どころ米どころ。ちょうど新米の季節だ。どんとこい。古町エリアに宿を取っ…
この講義の目的 明日以降、Perlの言語自体にはまらない 今日、いろいろやって、なるべくはまってください 疑問があったらどんどん質問してください 目次 Perlプログラミング勘所 Perlによるオブジェクト指向プログラミング テストを書こう ヒント 課題について Perlプログラミング勘所 質問 Perlでプログラミングをしたことがありますか? はじめに 事前課題 http://github.com/hakobe/Sorter 前提 はじめてのPerl、続はじめてのPerlに目を通している 一度はPerlでオブジェクト指向プログラミングしたことがある 事前課題でやっているはず Perlの良いところ CPAN やりたいことはすでにモジュール化されてる それCPANでできるよ 表現力が高い TMTOWTDI (やりかたはいくつもあるよ！) 実際に使われてる はてな/DeNA/NHN/mixi
ファイルテスト演算子の使い方 $file = "/home/httpd/html/index.html"; # ファイルが存在するか確認 if ( -e $file ){ .... } パイプ UNIX 系 OS 全般や、Windows NT といったサーバ OSには、パイプが用意されています。パイプは、プロセス間で通信するために用意された機構で、標準出力と標準入力を経由してデータを受け渡しするためのものです。これによって、一時ファイルなどを経由せずに、ダイレクトにプログラムが標準出力に出力した結果を他のプログラムの標準入力に渡すことができます。 open でパイプ処理 以下では Perl からパイプを使った例を紹介します。ファイル名の先頭に | を付けると、そのファイル名をコマンドとして解釈し、そのコマンドラインへ出力します。 sendmail を使ってメールを送信する例です。 open
私の個人ブログに掲載したら好評でしたので、こちらでもご紹介してみます。 最近知ったんですが、生年月日から年齢を計算する簡単な計算式というのがあるそうです。 (今日の日付-誕生日)/10000の小数点以下切捨て。 PHPで書くと echo (int)((20070823 - 19850101)/10000); Perlで書くと print int ((20070823 - 19850101)/10000); JAVAで書くと System.out.println( (int)((20070823 - 19850101)/10000) ); という感じになります。 日本の法律を確認してみました。誕生日の前日が終了する瞬間（すなわち誕生日をむかえる午前0時00分の直前）に1歳を加えることになる。ただしうるう年など、年によって期間を定めた場合において最後の月に応当する日がないときは、その月の末日を
Twitter ボットの作り方解説第 1 弾。前提条件と、下準備までを解説します。 前書き Twitter をある程度使っていると、突然見ず知らずのアカウントから reply をもらったりして、それがボットだという事は良くあります。 そんなとき、自分だったらこういうボットを作るのに！っていう思いがあっても、なかなか作れない人も多いのではないでしょうか？ ここでは、そのまま動作するサンプルを提示する事で、Twitter のボットを作る方法を解説します。 Perl とか詳しくなくても、Linux の知識がある程度あれば、自由にボットを作れるようになるはずです。 目標 だんだんとレベルを上げながら、以下のようなボットを作る事を目標にします。 あらかじめ用意された定型文の中からランダムでつぶやくボット 特定のワードに反応して、reply するボット 特定の RSS の内容をつぶやき続けるボット ボ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
